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Selection Ch! 8B 


P-8800 シ リー ズ の 歴史 e 8801 の 機能 拡張 , 活用 法 満載 


| 定価 1900 円 


ライ バル は 15 ビ ッ ト 


Ban A CE 


語 ワ ー ド プロ セッ サー 


КТУ 


| これ が 8 ビッ トワ ー プ ロ の 新しい 規準 
88 ユ ー ザ ー 待 望 の < 即 戦力 >、 い よい よ 新 発売 で す . し か も 
うれ し い ニ ュー ス が あり ます 。 仕様 を ご 覧 くだ さい 。 い や 、 ぜ 
ひじ っ くり お 読み くだ さい 。 それ 自体 で 強力 と され る 既 発 
表 の スペ ッ ク を 、 さら に 機能 強化 し て いる こと に 、 お気 づ 
きい た だ け ま し た か 7? 辞書 は 登録 済み 約 5 万 語 ( ほ ゞ 1 
万 語 追 加 で 一 段 と 使い や すく )、 JIS 第 2 水準 カバ ー。 Ж 
右 ス クロ ー ル 最大 88 文 字 。 文字 ボイン ト も これ まで の 全 


APECPC-880ImkHin/TR/m/mnm 


8 ビン ・I6 ビ ン ・24 ビ ン フ リン タ 対 応 5 イ ンチ (2D) 版 


新 ・ 発 ・ 売 %55,000 


A 横 倍角 、 半角 、! 4 朋 に 加え 縦 倍角 、4 倍 角 を 搭載 
下線 、 網 か け 、 時 線 ( 表 の 拡大 ・ 縮 小 ま で で きる ) の 各 機 
能 も 強化 、 ル ビ も 実現 する な ど 豊 富 な 表現 力 を 獲得 し て 
いま す 。 も ちろ ん 、 移 動 や 複写 、 検 索 や 置換 な と の 編集 機能 、 
多彩 な 印刷 機能 な ど 、 ど の ボイン ト を と っ て も これ まで の 8 ビ 
ッ ト ワ ー フ ロ で は 考え られ な か っ た 高い ボテ ン シ ャ ル を 秘め て 
いま す , まさ に 、8 ビ ピット ワー ブロ の 新しい 規準 、 新 発売 で す 


や さ し く 入門 。 使 いこ む ほ と 奥深 〈… 誰 に も 優し い 
ワー プロ を 実現 し まし た 。 
< 即 戦力 > は 、 初め て の 人 で も 即 使え る こと を 目指 し まし た 。 
付属 の 「15 分 間 マ ニュ アル 」 に 目 を 通せ ば 、 そ れ だ け で も 一 
通り の 使い 方 が 解っ て いた だ ける は ず で す .。 キー ボー ド の 左 
上 に ある 5 ら つ の ファ ンク ショ ン ・ キ ー と 画面 に 表示 され る ガイ 
ド に 従っ て 操作 すれ ば 、 い つの ま に か 文書 を 創っ て いく こと 
が で きま す 。 8 ビッ トワ ー プ ブロ が 遂に 、 人 間 の 側 に 歩み 寄っ て 
きた わけ で す 。 この 、 人 間 に 優 し いと いう 点 が < 即 戦 力 > の 最 
大 の 特徴 で す 。 し か も 、 フ ァ ン クシ ョ ン ・ キ ー に 持た せ た 機 能 
は 、 メ イン ・ キ ー に も 持た せ て いま す 。 で すか ら 、 慣れ て くれ ば 
ほとん と の 機能 が ブラ イン ド タ ッ チ で 操作 で き 、 入 力 ス ピー ド 
は 格段 に 向上 し ます 。 人 間 は あく まで も 易しく 、 使 いこ む 
ほど と 奥深 い 、 こ ん な 点 に も 「16 ビ ピッ ト が ライ バル 」 と いわ 
し め る < 即 戦力 > の 素晴らし さ が あ り ま す 。 パ ー ソ ナル 
ボー ジス に きら ビジ タネ ステ IU СУ avs 


| 


| サム シン ググ ッ ド か ら の 回 答 で すま A 


単に で きる 機能 が ある と いう こと と 、 本 当 に 使え る と いう こ 
と は 、 違 うと サム シン ク グ ッ ド は 考え ます 。 私 達 は ー つ 一 
つの 機能 の 質 を ほん と うに 使え る と ころ まで 高め た うえ で 
は じ め て 搭載 し て いま す 。 例え ば 、 辞 書 機能 一 つと っ て 
も 、 登 録 語数 の 多 さ だ け で な く 、 その 内 容 を 充実 させ て 
いま す ビジ ネス 文書 や 、 新聞 、 雑誌 、 小 説 、 論 文 等 
か ら 「 活 き て いる 言葉 」 を 集録 し て いま す . この 質 に 加 
えら 万 語 と いう 膨大 な 量 を 持つ こと で 、 き わ め て 水準 の 
高い 辞書 を 創り あげ る こと が で きた わけ で す . ここ 
に 、< 即 戦力 > の 使い や すさ の 最大 の 理由 が あり ます 
私 達 は 機能 の 質 と も ちい うべ き 「 高 機能 」 と 、 機 能 の 量 で 
ある 「 多 機能 」 の 同時 追求 が 使い や すい ワー フロ の 
条件 で ある と 信じ ます . 高 機能 を 積 上 げ て 、. 多 機能 
を 創り あげ る 、 こ れ が サム シン ググ ッ ド の 基本 で す 


| ほん と うに 使い や すい ワー プロ は 、 どう ある べき か 。 | 


@ 付 属 品 15 分 問 < PIXE (CS 
ス 文書 50 例 登録 ) ORF JSZ — kis. 36 ki xe 
文字 種 全角 、 半 角 ( 英 数 字 、 カ タカ ナ 、 一 部 の 記号 ) 、 倍 角 


( 横 ・ 縦 ・4 倍 角 ) 、! 4 衣 ( 英 数 字 、 カ タカ ナ 、 一 部 の 記号 )、 ル 


"Ed 53 OER 上 下 ス クロ ー ル 、 左 右 ス クロ ー ル (E: 


大 88 文 字 )、 前 画面 、 交 画面 表示 、 頁 指定 、 文 頭 ・ 文 末 呼 び 
出し る 印刷 - 印刷 枚数 ・ 用 紙 サ イズ ・ 印 刷 範囲 の 指定 、 横 ・ 
縦 書 き の 指定 、 一 頁 行 数 ・ 一 行文 字数 ・ 文 字 間隔 ・ 改 行 幅 の 
指定 、 差 し 込み ・ 宛 名 書き ・ 袋 と じ 印 刷 、 文 書名 一 覧 印刷 る 文 
ЖЕН 文書 名 登録 、 文 書名 変更 、 文 書名 一 覧 表示 、 文 書 
複写 、 文 書 削除 、 文 書 併合 @ 辞 書 登録 済み 約 5 万 語 + ユ 
一 登録 る 編集 ・ レ イア ウト 中 央 寄せ 、 右 寄せ 、 左 寄せ 、 
н, 改行 、 下 線 (3 種類 ) 、 網 か け (3 種類 )、 野 線 (3 種 
類 ・ 時 線 保護 ・ 拡 大 ・ 縮 小 ・ 移 動 )、 タプ 設定 、 上 書き 訂正 、 
挿入 、 削除 、 移動 、 複写 、 検索 、 置換 、 禁則 処理 人 外字 


ワー プロ の スタ ンダ ー ド 


60 字 用 紙 サ 邊 4、B4( 終 ・ 横 )、10x11 イ ンチ 、 


TEXTI ZFA (9:725, — Л) ФЕРЕ 四則 
EE © ور را7‎ $: PO-PR20 1、PC-8822 
他 多 数 @ ユ ー テ 文書 ディ スク の フォ ー マ ッ ト ・ 
バッ クア ッ プ 、 X3 ОЕ BÉ T 4220 27:72 
| < 即 戦 カ > シリ ー ズ 好評 発売 中 a 
8 ビッ トシ リー ズ 好評 発売 中 / 

SHARP AX/7. AX/ tawte 用 

(BID) RM ¥ 55,000 
1B ビ ッ ト シ リー ズ 好 評 発売 中 / 
ECPC-9801 用 

FOR) ーー ¥ 55,000 
〈 即 戦 カ スー パー フー ドー ドー X 94,500 
TER JX 3/48 


> RUNE Quis Ra S Kai a саа НА ENES 3455,000 
人 を 大 切 に する テク ノロ ジー 
株 式 会 社 а е E 


T160 東京 都 新宿 区 大 久保 2-5-20 シ ティ フラ ザ 新 宿 3F TEL03 
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LALE 2 7k 3385 

ТТЕ ОРЕ ЧО; 
名 前 を 言い か える わけ に は いき ませ ん 。 人 名 や 地名 を 扱う こと の 多い デー タ 
ベー ス に 、 第 2 水準 漢字 は どう し て も 必要 で すね 。 を こ で ユ 一 カラ CARD。 
第 2 水準 漢字 ROM ボ ー ド を セット し て 、 絶 益 発 売 中 で す 。 


( 栓 、 兼 、 痢 、 初 、 節 、 租 の 漢字 は いずれ も 第 2 水準 で す ) 
ユー カラ CARD の 楽し い 使い 方 満載 の ノウ ハウ 集 
「 カ ー ド 三昧 (ざん まい )」 Y7, 200 
る ユー カラ CARD の 使い 方 ヒン ト 88 事 例 6 88 100 0034724 — v y FA 1- 


ディ スケ ッ ト  @ 印 刷 が 美しく な る 10 種 類 の 専用 印刷 用 紙 ( 計 100 枚 ・ ヒ サ ゴ 製 ) 
@PC-8800 シ リー ズ 用 の み で す 。 


* 全 国有 名 パソ コン ショ ッ プ で デモ を ご らん くだ さい 。 ま た 、 資 料 を ご 請求 くだ され ば 、 


詳細 な 仕様 パン フレ ッ ト を 郵送 いた し ます 。 
@ お 近く に 取扱 店 の な い 場 合 は 、 通 信販 売 い た し ます 。 ま ず 、 ハ ガキ か 電話 で 下記 ま 
で お 申し 込み くだ さい 。 お 支払 い 方 法 等 ご 連絡 いた し ます 。 


カー ド 型 日 本 語 デ ー タ ベー ス 


ィ ー カ ジラ (4 が の 


第 2 水準 漢字 ROM ボ ー ド を セッ ト し た ユー カラ カー ド 
PC-8800 シ リー ズ 5"2D 事 例 デ ー タ 付 一 一 \55,000 


PC-8800 シ リー ズ 5”2D 事 例 デー タ 付 \28,000 
第 2 水準 漢字 対応 済 (第 2 水準 漢字 ROM ポ ボー ド は マイ クロ ペー ス 北 九州 より 発売 中 品名 : ロム 坊 ) 


PC-6601SR/6001mkIISR3.5”1DD 


PC-6006SR ま た は PC- 6007SR の どちら か か 必要 


ユー カラ JJSR (ワー プロ)・ 事 例 デ ー タ 付 一 ーーーーー\22.000 


株 式 会 社 東海 クリ エイ ト 〒108 東京 都 港 区 三田 3-1-7 三 田 東 宝 ビ ル 4F 


宮崎 営業 所 T880 宮崎 市 高千穂 通 1-6-35 住友 生命 し 7F TEL.0985-29-1966 (=F) TELOS3-456-4810 


イシ フォ メー ショ ン ・ サ ービス は 
月 曜日 一 金曜 日 午前 9 時 一 午後 5 時 半 
(祝祭 日 、12:0013:00 を 除く ) 


イン フォ メー ショ ン セ ンタ ー 


PC-8801 シ リー ズ 
の 流れ を みる 


日 本 の マイ コン 時 代 が スタ ー ト し た の は 
だ っ た 8 年 前 の こと で す が , 今 で は も 5X 
昔 の よう な 気 る さえ し ます 。NEC か ら ワ ン ボ 
ー ド マイ コン ・ ト レー ニン グ キ ッ ト TK80 
が 発売 され た 1976 年 以来 , 自分 の ユン ピュ 
ー タ を 持つ と いう 夢 を 追い 求め る マニ ア が 
急増 し まし た 。 

その 関心 の 高まり は , や が て 3 年 後 の 
1979 年 9 H, PC-8001 の 発売 と いう 形 で 結 
実 し まし た 。BASIC を ROM THR, JIS 
キー ボー ド , カラ ー グ ラフ ィ ッ ク が 使え る 


ハイ レベ ル ・ バ パソ コン ロ 2 


と いう 今 の パッ コン の 源流 が 誕生 し た の で 
Fo 

2 パソ ツ ソコン は オフ ィ ス に 入り , 研究 室 や 学 
校 に 入り , 家庭 に 入り , 年 齢 。 性 別 を 問わ 
ず 使 われ る 時 代 が や っ て きた の で す 。 や が 


て 急激 な 技術 革新 と 用 途 の 広がり に より , 


さま ざま な レベ ル の パッ コン が 現われ ます 。 


PC-8001 が 登場 し て か ら 2 年 後 の 1981 
年 に は , PC-6001 と PC-8801 の 2 機種 が 発 
売る され まし た 。PC-6001 は PC-8001 の 約 半 
分 の 価格 に 設定 され , 入門 者 , ホビ ィ ス ト 


な まま を ター ゲッ ト と を とし た も の で ,。 コシ ピュ 
ー タ が 家庭 の 茶の間 や 勉強 部 屋 な が ぼ で つか 
われ る 道 を 大 きく ひら く 〈 こ と に な り ま し た 。 

一 方 の PC-8801 は PC-8001 の 上 位 機 種 
に あたる も の で , メモ リ 容 量 , グラ フィ ッ 
ZA, 漢字 処理 な ど を 中 心 に 強化 され , + 
フィ ス で の 使用 に も 耐え る ハイ レベ ル ・ っ 
2 コン 020280838 が (よし た 。 

この PC-8801 Z, 8 ビット 機 の 標準 機 
と も いえ る PC-8800 シリ ー ズ の 初子 で あ 
っ だ た わけ で す 。 


PC-8801 が PC-8001 の 上 位 機種 し し て 


発売 され た の は 1981 年 12 月 で す が , 当初 か 
ら 究 極 の 8 ビッ トマ シン を 目指 し , NEC が 
最 先端 技術 を 注ぎ こん で 世に 送り 出し た も 


の で す 。 し か も , 当時 人 気 の PC-8001 07 
フト と ハー ド 資 源 を 活用 で きる と あっ て , 
だ た だ たち まち ベス ト セ ラー マシ ン に の し あがっ 
だ た の で す 。 で は , その PC-8001 が どの よう 


な 性 能 を 持っ て デビ ュー し た の か 振り 返っ 
СС 


ハー ドウ ェ ア の 特徴 


CPU 部 分 は PC-8001 と 同様 で びす が , A 
モリ 構成 に 大 き な 違 い が あ り , 基本 実装 メ 
モリ は トー タル で 184K バ イト に も 達し ます 。 

内 訳 は , N-BASIC 35 4 UŒ = X 32K, 
N。。- BASIC が 40K, ユー ザー RAM が 64 
K, グラ フィ ッ ク КАМ が 48K で す 。 さ きら 
に オプ ショ ン で は КОМ は 8 K バ イト 単位 
で 7 バン ク ( 計 56K) ま で , RAM は 32K バ 
イト 単位 で 必要 な だ け ( 実 際 上 は 10 バ ンク 
程度 ) 増設 で きま す 。 

メモ リ 容 量 が PC-8001 より 大 幅 に 強化 
6 


され た わけ で す 。 こ れ ら は Z-80 の アド レン 
ス 空 間 (64K) に バン ク 切 換え な ど に よっ て 
オー バー レイ し つつ 処理 きれ ます 。 

次 に , 画面 表示 に つい て みて も, PC-8001 
より す で れ た 性 能 を 備え を て いま す 。 
PC-8801 は PC-8001 と 同じ よう に , テキ 
スト 画面 は 80 字 X25 行 か ら 40 字 X20 行 まで 
の 4 モー ド を 選択 で き , 8 色 カ ラー, リバ 
ー ス , ブリ ンク , シー クレ ッ ト の 表示 モー 
ド を 使い 分 ける こと が で きま す 。 し か も , 
PC-8801 は この ほか に , 高 分 解 能 グラ フィ 


ックス が 使用 で きる こと で す 。 

キャ ラク タタ 単位 で カラ ー 指 定 が で きる モ 
ー ド で は , 640X200 ド ッ ト を 3 画面 か , 
640X400 ド ッ ト を 1 画面 持つ こと が で きま 
す 。 ま ただ, 1 ドッ ト 単 位 で 8 色 の カラ ー 指 
定 が で きる モー ド で は , 640X200 ド ッ ト を 
画面 使用 で きま す 。 


いずれ も , バッ ク グ ラウ ンド カラ ー8 色 , 
ボー ダー カラ ー( 画 面 周辺 色 ) 8 色 が 指定 で 
きま す 。 


PC-880 15, この ほか に グラ フィ ックス 
画面 と テキ スト 画面 と を 合成 する こと も で 
きま す 。 も ちろ ん , ラ イト ペン や RE モジ ュ 
レー タ を 使用 する こと も で きま す 。 

この よう に PC-8801 は , 当時 の パソ ツユ ュ ン 
の 中 で は 最高 の 表示 能力 し いえ る も の で し 
Tis 

外部 記憶 装置 に は , 8 イン チ 標 準 フロ ッ 
ビィ ディ スク (画面 倍 密 ), ミニ フロ ッ ピ イィ 
ディ スク , オー ディ オカ セッ ト な ど が 使用 
айыке E DE s 
ト 用 の イン タフ ェ ー ス を 基本 装備 し て いま 
T 

バス ・ ス ロッ ト は PC-8012 の 標準 バス の 
上 位 版 の も の を 4 スロ ッ ト 内 蔵 し , 増設 メ 
モリ や 1/O 装置 な ど を 装備 で きま す 。 

まだ, 実務 上 大 切な 時 間 管理 機能 も PC- 
8801 は 充実 し て いま す 。 電源 を 切っ て も 内 
蔵 自 動 充電 式 電池 に より バッ クア ッ プ され 
自動 的 に 年 月 日 , 時 分 秒 な ど を カウ ント で 
きる 時 計 が あり ます 。 

今 で は パッ コン に 漢字 処理 機能 は 不可 欠 
で す が , 当時 , PC-8801 は この 機能 は オプ 
ショ ン で 用 意 る きれ て いま し た 。 


PD780C- 


(Z-80A コ ン パ チ ブ ル )4MHz 


A PC-8801 


16 ド ッ ト ※X16 ド ッ ト の 漢字 キャ ラク タ を 
含ん だ 漢字 ROM ボー ド を 本 体内 に 備え る 
t, JIS 第 1 水準 漢字 2965 字 , プラ ス 非 漢字 
約 700 字 が 使用 で き る の で す 。 そして, 高 分 
解 能 ゲ ィ スプ レイ を 併用 する と , 漢字 画面 
は 40 字 X20 行 の 構造 が 可能 と た なり, 実用 性 


N-BASIC、 
Nss-BASIC 
< |D メイ ン メ モリ 


グラ フィ ッ ク 


VRAM 


БЕС ЗК 
40K バ イト 
64K バ イト 
48K バ イト 


RREN テキ スト 表示 ・ 
表 示 内 容 
7 7 711/7 + | N-BASIC 動 作 時 


Nas-BASIC 
動作 時 


640X200 ド ッ 
640 x 200 ド ッ 
640 x 400 ド ッ 
8 色 ( 黒 、 青 、 赤 、 マ ゼン ダ 、 緑 、 
指定 可 。 
MINES AU t АРАЙ Е 


ВО F X 2547.805 X 2011 

40X 3F X 2541 .403C F X 2011 

文字 及び グラ フィ ッ ク 記 号 (248 種 ) 
160X100 ド ッ ト 8 色 


バック グラ ウン ド 礼 選 三 指定 可 、 ド ッ ド ぎ と の カラ ー 


が 高く な り ま す 。 

ij, プリ ンダ.(PC-8821) は 18 ピ ン ペ ッ 
F t, 高 品位 で . プリ ンタ 内 部 に 漢字 ROM 
ボー ド を 実装 すれ ば , 手軽 な 漢字 プリ ンタ 
だ AADR ま 9 っ 


文字 構成 16X16 ド ッ ト 

文字 種類 JS 第 一 水準 の 漢字 (2965 種 ) 
非 漢字 ( 約 700 種 ) 

面 画 構成 40 文 字 X20 行 


4 スロ ッ ト 内 蔵 (PC-8012 バ ス 上 位 コ ン パ チ ブ ル ) 


パラ レル イン タフ ェ ー ス (セン トロ ニク ス 社 仕様 に 準拠 ) 


| 本 体内 スロ ッ ト に 内 蔵 可 


ト モノ クロ 3 ペー ジ 


| 内蔵 (PC-8031 用 ) 


ト 8 色 1 ペー ジ 
К モノ クロ 1 ペー ジ ・・ 


| 8-232C 規 格 に 準拠 


入力 4 ビッ ト 、 出力 1 ビッ ト 、 割 込 lCch* * * 


シア ン 、 黄 、 白 ) 


600 ボ ー( PC-8001 コ ン パ チ ブ ル )* * * 
1200 ボ ー 


| | カラ ーCRT  R.G.B./ 同 期 信 
モノ クロ CRT コン ポジ ッ ト ビ 


Руж 


NiCd 電 池 に て バッ クア ッ プ 可 


言 号 分 離 出力 方 式 


源 | AC100V + 10%. 50/60Hz ) 


デオ 信号 出力 方 式 


ZEE 


デレ ビ TV アダ プ タ 経 


で 接続 


0 一 35'C、20 一 80%( 但 し 結 忠 し な いこ と )) 


JIS 標 準 配列 準 処 


10 キ ー、 コ ント ロー ルキ ー、5 フ ァ 
キャ ピタ ル ロ ッ ク 可 、HELP、COPY キ ー 


u セパ レー ト タ イ プ ( 本 体 と カー/ 
rom 


PC-8801 


表 1 


РС= の INE Lp 
マイ クロ ソフト 社 製 の N。。-BASIC TT. 

これ は , N-BASIC に グラ フィ ッ ク 処 理 , 
漢字 処理 な どの 命令 を 付加 し た も の で す 。 | 


ンク ショ ン キ ー 


レ ケ ー ブ ル に より 接続 ) 


ж ж SAFE 


1/0, 17 


à " PC-8801 iX, PC-8001 と の 互換 性 


を 持た だ せる だめ 同じ N-BASIC ゎ も 搭載 し 
て いま す 。 画面 設 計 や カモ セッ トイ ンタ フェ 
ー ス も コン パチ ブル で , N-BASIC の 著 積 


* いずれ か を 選択 可 。 
* * 専用 高 解像度 ディ スプ レイ 使用 。 
ディ オカ セッ トイ ンタ フェ エー ス は 、 コ ネ ク 夕 兼用 (切り 換え 方 式 )。 


ソフ トウ ェ ア の 特徴 


本 体 496(W ) x 342(D) x107(H)mm 
キー ボー ド 464(W ) X342(D) х72(Н)тт 


きれ た ソフ ト 資 産 を 活用 で きる と いう わけ 
で す 。 こ の よう に 下位 機 と 相互 に 深い 関連 
を 持た せ た パ パ ツ ユン は , 当時 国内 で は 初め 
て の 試み で し た 。 


РС-8801 は , 周辺 装置 の 面 で も PC-8000 
シリ ー ズ と の ユン パチ ビリ ティ を 持っ て い 
る の で , PC-8000 シリ ー ズ の ユー ザー は , 
ハー ド , ツ フト 共に 最小 限 の 投資 で PC-88 
シリ ー ズ が 活用 で きま す 。 

共有 で きる 周辺 装置 に は , ミニ デイ スク , 
プリ ンタ , ライ トペ ン , RF モジ ュ レ ー タ , 
拡張 ユニ ッ ト 用 の 各種 オプ ショ ン ボ ー ド の 
一 部 な ど が あり , PC-8000 シリ ー ズ の ユー 
ザー に は 大 き な 魅 力 で す 。 

新しい シス テム を 構成 する 場合 は , 高 性 
能 の 標準 フロ ッ ピ ィ や 高 分 解 能 ディ スプ レン 
4, 漢字 プリ ンタ な ど , オフ コン 並み の 周 
辺 装置 が 揃っ て いま す 。 


表 2 PC-8800 シリ ー ズ 製品 一 覧 


優れ た コス ト パ フ ォ ー マ ンス の メイ ン フ レー ム 


操作 性 に 富む キー 


ボー ド CPU セ パパ レー ト タ イ プ 


PC-8801 用 


ELO] arnowr-r 


JIS 第 一 水準 の 漢字 (2965 種 ) 非 漢字 ( 約 700 種 ) 
PC-8801 ポ ー ド 上 に 実装 ( サ プ ボ ー ド ) 


18 ピ ンド ッ ト ・ マ トリ 
クス プリ ンタ 


18 ピ ン ヘ ッ ド に より 高 印字 品質 を 実現 S 
イン ター フェ ー ス 条件 ・ コ ント ロー ルコ ー ド は PC-8023 に 準拠 


ВС 8621002 селт 


漢字 HOM ボ ー ド 


JIS 第 一 水準 の 漢字 (2965 種 ) 非 漢字 ( 約 700 種 ) 
PC-8821 内 部 スロ ッ ト に 実装 


14 イ ンチ ・ モ ノ ク ロ 
| ( 高 解像度 ) 解 能 
ディ スプ レイ 


実現 


水平 走査 周波 数 24.8KHz の 採用 に よ 


り 最 大 640 メ 400 ド ッ ト の 高 分 


※PC-8800 シ リー ズ 専 用 


14 イ ンチ ・ カ ラー 
( 高 解 像 度 ) 


水平 走査 周波 数 24.8KHz の 採用 に より 最大 640 メ X400 ド ッ ト の カラ 
ー 表 示 を 実現 


※PC-8800 シ リー ズ 専 用 


8 イン チ フ ロッ ピ ィ デ 


ィ ス ク ユ ニッ ト ー タ 転送 


81278054172 台 を 実装 、DMA 転 送 方 式 に よる 高速 デ 


容量 IM byte/ ド ライ ブ 


8 イン チ フ ロッ ピ ィ デ 
E FF 
(増設 用 


8 イン チ 薄 形 ド ライ ブ 2 台 を 実装 
PC-8881 、PC-8882 の 接続 に よ 


り 、4M バ イト ま て の 容量 を 実現 


PC-8801 iX, 本 体 と キー ボー ド が レバ パレ 
ー ト に な っ て いて , その 間 は 1 本 の カー ル 
コー ド で 結ば れ て いま す 。 

本 体内 に 拡張 用 スロ ッ ト が 備わっ て いる 
OC, 従来 の PC-8000 シリ ー ズ の 拡張 に 必 
要 だ っ た ユニ ッ ト は 不要 に な り , 本 体 だ け 
で も ある 程度 の シス テム ・ ア ッ プ が 可能 で 
Зе 

また , キー ボー ド は 操作 性 の 良い 大 型 の 
も の で , PC-8001 に 比べ て キー 配置 な ど に 
改良 点 が み ら れ ます 。 た と えば カー ソル 移 
動 キ ー が 4 方向 独 立 し , 使い や すい ょ う 手 
前 に 置か れ て いま す ( 図 1)。 


図 1 PC-8801 


キー 配置 


SHIFT 


ROLL[[ROLL 
UP 1DOWN 
ЫШЫ 


JHUE 
A Ka muna 


rc amd HEL 2008] 


$ 6 に , PC-8801 の 新 機能 と し て 
「COPY」「HELP」「ROLL UP, "ROLL 


DOWN」 が 加わ っ て いま す 。 


T Ww UUUIIVIINU vak 7 дуу 


べ ス ト セ ラーマ シン PC-8801 の 発売 ヵ 
5 2 年 後 の 1983 年 1 月 に , 姉妹 機種 PC- 
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相違 点 は 表 3 の と お り で す が , 同機 の 主 な 


8801MK II が 登場 し まし た 。 PC-8801 と の 特徴 を あげ て み ま し ょ う 。 


第 1 に PC-8801 の ソフ ト を その まま 継 


承 す る コン パチ ブル 設計 に な っ て いる こと 。 

第 2 に ユー ザー の 活用 範囲 に 合わ せる タ 
イプ が 用 意 さ る れ た こ t. model 10 は 本 体 
だ け , model 20 は ディ スク 1 基 , model 30 
は ディ スク 2 基 で す 。 

第 3 に 漢字 ROM を 標準 実装 し , 日 本 語 
処理 に も 容易 に 対応 びき る よう に し た だ こと 。 

第 4 に 幅 35cm, 奥行 き 34.5cm, 高き 12cm 
і, PC-8801 に 比べ , 容積 比 で 46% も ユン 
パク ト に な っ て いる こと 。 

第 5 に 本 体 の 置き 方 は タテ , ヨコ 自由 な 
の で , スペ ー ス に 合わ せる こと が で きま す 。 

いう な れ ば , 従来 別々 だ っ た PC-8801 本 
体 , PC-8031 ディ スク ユニ ッ ト , 漢字 ROM 
が 一 体 と な り ま し た が , 新しい ハー ドウ ェ 
ア の 追加 は ほとん ど な い の で す 。 

発売 前 の 観測 で は , PSG( プ ログ ラマ ブ 
ル ・ サ ウン ド ・ ジ ェ ネ レー タ ) の 追加 , グラ 
フィ ッ ク RAM の 拡大 , 高速 の 5 イン チ デ 
ィ ス ク ド ラ イブ , ハー ド 全 般 の 高速 化 な ど 
が うわ きる さる れ て いた だ も の で す 。。 じ が し ,。 い 
ざ フ タ を 開け て みる と , 旧来 の ハー ド の ュ 
ン パ クト 化 が 目立つ だ け 。 もっとも, PC- 
8801 と いう マシ ン 自 体 が 8 ビッ ト 機 最高 
の コス ト パ フ ォ ー マ ンス を 誇る 基本 人 性能 
持っ て いる だ け に , むし ろ 用 途 を 広げ る 意 
図 が あっ て も 不思議 で は な いで し ょ 5 

УЕБ оу FOER 
も る る こと な が ら 5, や は り い い ソ フト に 恵 
まれ な けれ ば 役に立ち ませ ん 。 この 点 で も 
PC-8800 シリ ー ズ は , 母体 で ある PC-8001 
の 誕生 以来 , いろ いろ な 人 の , いろ いろ な 
希望 が どん どん いい ソフ ト を 生み 出し て き 
まし た 。 ソ フト は すでに 数 千種 類 , 現在 も 
きら に 増え つづ け て いま す 。 周辺 機器 も , 
着 々 と を の 数 を 増やし て いま す 。 

と すれ ば , こう し た 土壌 を 生か し た シリ 
ー ズ の 組み 立て . すなわち , 新しい スペ ッ 
ク の ハー ド を 次 々 と 出す より , 息 の 長 い マ 
シン と し 育て て も ら っ た は ほう が デニ = ザー に 
は あり が だ た だい の で す 。 


E 


i4, PC-8801MK II の ハー ドウ ェ ア の 
概要 は 表 4 , 図 2.3 の と お り で す が , 主要 な 
特徴 を みて み ま し ょ Э. 


. PC-8801 


外部 に 接続 


漢字 ROM 内 蔵 


漢字 ROM ボ ー ド が オプ ショ ン 


コン パク ト な 本 体 
体積 46% 減 、 重 量 30% 減 
(PC-8801 +PC-80S31 と の 比較 ) 


薄型 キー ボー ド 
ATWZATVZTYy- 


大 き な 本 体 と ディ スク ユニ ッ ト 


厚い キー ボー ド 


ディ ッ プ スイ ッ チ の 前 面 配置 


| 


本 体 後 部 に 配置 


EM. —— 


拡張 用 スロ ッ ト が 3 個 


拡張 


スロ ッ ト が 4 個 


内 蔵 ス ピー カー の 音量 調節 可 


汎用 1/|I0 ポー ト と カセ ッ ド イン タフ ェ ー ス の コネ クタ 
が 独立 


メモ リウ エイ ト 用 ディ ッ プ スイ ッ チ あり 


ボー ダー カラ ー の 機能 な し 


機能 あり 


拡張 N ss -BASIC 使 用 s] 


N ss -BASIC の み 


アプ リケーション ソフ トウ ェ ア が 標準 添付 


デモ プロ グラ ム の み 


DISK BASIC シ ステ ム デ ィ ス ク 添 付 


シス テム ディ スク 別売 り 


カレ ンダ ー 時 計 の 年 の 自動 設定 機能 あり 


機能 な し 


N-BASIC に お ける RS-232C の サポ ー ト あり 


ディ スク ユニ ッ ト の 内 蔵 
NAO 
第 1 は , ディ スク ユニ ッ ト が 内 蔵 る され て 


サポ ー ト な し 


いる こと で す 。 こ の スタ イル は PC-9801F, 
PC-100, MZ-5500, FM-11, PASOPIA-16 
な ど に も み ら れ る , 当時 の 新しい 傾向 で す 。 
と くに 中 級 以 上 の パ ツ コ ユン で は , ディ スク 

9 


М 


ドラ イブ 内 蔵 の 本 体 に 。 セパ レー ト タ イ プ 
の キー ボー ド と いう スタ イル が 標準 と な っ 
TCE 

ディ スク の 重要 性 が 増し , 大 き な 本 体 を 
コン パク ト に する 必要 が 生じ て くる と, E 
うし て も この スタ イル に 落ち つく よう で す 。 


薄く て 軽い キー ボー ド 


PC-8801MK II で は , 従来 より 薄く て 軽 
い キ ー ボ ー ド を 採用 し て いま す 。 ス テッ 
プ ・ ス カル プチ ャ ー タ イプ と 呼ば れる この 
キー ボー ド は , 長 時 間 の 使用 に 最も 適し て 
いる ОТ Зе 

キー 配置 で は カー ツル コン トロ ー ル キー 
の 位置 が 変わ っ て いて , 右側 の シフ トキ ー 
の 下 か ら 6, キー パッ ド 上 段 へ と 移っ て いま 
3 キー ニー ボード は PC-100 に そっ くり で す 。 


ディ ッ プ スイ ッ チ 


PC-8801 で は , ディ ッ プ スイ ッ チ が 本 体 
背面 中 央 に あり ます が , PC-8801MK II で 
は 前 面 右 下 の 扉 の 中 に 16 個 つい て いま す 。 

この スイ ッ チ は 起動 時 の マシ ン の 状態 を 
定め る だ め の も の で , BASIC の 種類 , 画面 
の 文字 の 大 きる, RS-232C の モー ド な ど を 
決め る こと が で きま す 。 

PC-8801MK II は ディ スク 内 蔵 型 で ある 
7:5, ROM BASIC を 立ち 上 げ る と き に 
は , この ディ ッ プ スイ ッ チ を 操作 し な けれ 
ば な り ま せん 。 4 つの BASIC の 選択 は 表 
5 の よう に し ます 。 頻繁 に 扱わ れる た め 前 
面 に 置か れ た の で す 。 

この ディ イップ スイ ッ チ は , PC-8801MK 
II に な っ て SW1 の 7.8 と SW2 の 7 が 新 し 
く 追加 さ れ て いま す 。 

AH VO ポー ト は 本 体 背面 中 央 に あり , 
ジョ イス ティ ッ ク , バー コー ドリ ー ダ の 接 
続 な どの 多種 多様 な 応用 が 考え られ ます が , 
この ポー ト と 拡張 命令 の CMD SING XD 
音楽 演奏 と は 共存 で きま せん 。 その 選択 は 
ディ ッ プ スイ ッ チ の SW1 の 8 で 行い ます 。 


IS 
すぐ に 役立つ プロ グラ ム 
MM さら 
本 体 に 添付 き うれ た テー プ や ディ スク に は 
デモ プロ グラ ム の ほか に , すぐ に 役立つ プ 
10 


(4) 表 示 能 力 


(7 拡張 用 スロ ッ ト 
(8) オ ー デ ィ オ カセ ッ ト 
イン タフ ェ ー ス 

(9) 汎 用 !/O 

0 プリ ンタ イン タフ ェ 
ー ス 

⑪0 シ リア ルイ ンタ フェ 
ー ス 

0⑫8 イン チ フ ロッ ピ ィ 
ディ スク イン タフ ェ ー ス 

9 ミニ フロ ッ ピ ィ デ ィ 


表 4 PC-8801 MKII の 機能 仕様 


@ メ イン CPU 
@ サブ CPU 
@ メ イン 


e77 
@ テ キス ト 表 示 


@ グラ フィ ッ ク 
表示 


@ カ ラー グラ フ 
ィ ッ ク 表 示 


@ バ ッ ク グ ラウ 
ジンガ ラー 


@ ビデ オ 出 力 


ө JIS 標 準 配列 
準拠 

@ セ バ パレート タ 
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PD780C-1 4MHz 
PD780C-1 (ディ スク コン トロ ー ル 用 
N-BASIC お よび モニ タ 32K バ イト 
Na-BASIC 40K バ イト 40 
スロ ッ ト 内 増設 可能 最大 56K パ イト (8K バ イト ※7 バ ンク ) 
ディ スク コン トロ ー ル 用 . 2K バ イト 
ユー ザー ズ メ モリ 64K バ イト 

テキ スト エリ ア 32K バ イト 
Nas -BASIC$) es T 

変数 ・ フ ワー クエ リア ・ テ キス ト VRAM31K バ イト 
グラ フィ ッ ク 用 VRAM 48K バ イト 
スロ ッ ト 内 増設 可能 32K 単 位 で パンク 切り 替え 
ディ スク 入力 バッ ファ ・ ワ ー ク エリ ア 16K バ イト 
ВО F х 2517. 80X F X20 行 40X F х 2547. 40XF х 2017 
(上 記 の いずれ か を 選択 ) 
(х=, 7—7, シー クレ ッ ト 
カラ ー 8 色 (キャ ラク タ 単 位 に 可能 ) 
640X200 ド ッ ト 3 画面 
640X400 ド ッ ト 1 画面 (専用 高 解像度 ディ スプ レイ 使用 時 ) 
(上 記 の いずれ か の 画面 を 選択 ) 
画面 合成 可 (カラ ー グ ラフ ィ ッ クス 、 テ キス ト 合 成 ) 
カラ ー8 色 (キャ ラク タ 単 位 に 可能 ) 
640X200 ド ッ ト 1 画面 
カラ ー8 色 (ドッ トド 単位 に 指定 可 ) 
画面 合成 可 (カラ ー グ ラフ ィ ッ クス 、 テ キス ト 合 成 ) 


(キャ ラク タ 単 位 指定 可 ) 


(カラ ー グ ラフ ィ ッ クス 、 グ ラフ ィ ッ ク 表 示 は 、N。 -BASIC 動 作 時 ) 


8 色 指 定 可 


RGB EZ — KEDAR (カラ ー ) 

コン ポジ ッ ト ビ デオ 信号 出力 方 式 (輝度 変調 、 モ ノ ク ロ ) 
家庭 用 TV (TV アダ プ タ 経 由 ) に 接続 可 

2 画面 独立 表示 可 

文字 構成 16X16 ド ッ ト 

文字 種類 JIS 第 1 水準 の 漢字 (2965 宇 ) 非 漢字 ( 約 700 種 ) 
画面 構成 40 文字 X20 行 (専用 高 解像度 ディ スプ レイ 使 
Е O E a 、 5 ファ ンカ ショ ン キ ー、. 寺 ャ ピタ ダ 7 
ШЕКЕ T БОРҮ = 

(本 体 と カー ルケ ー プル に より 接続 ) 


3 スロ ッ ト (PC-8012, PC-8013. PC-8801. PC-8001MKII 上 位 互換 性 あり ) 


600/1200 ボ ポー 


入力 2 ビッ ト 、 出 力 3 ビ ッ ト 、 制 り 込 み 1 チ ャ ン ネ ル 
パラ レル イン タフ ェ ー ス (セン トロ ニク ス 社 仕様 に 準拠 ) 


RS-232C 規 格 に 準拠 。 割 り 込み アデ ボ ー リ ング 制御 可 
75/150/300/600/1200/2400/4800/9600 ボ ー 
本 体内 スロ ッ ト に 内 蔵 可 


e 本 体内 に 実装 可 (最大 2 基 ) 

拡張 用 ミニ フロ ッ ピ ィ デ ィ ス ク (PC-80832 用 ) イ ンタ フェ ー ス 内 蔵 
Ni-Cd 電 池 で バック アップ 
AC100V 土 109。、50/60Hz 
10 一 35C 、20 一 8092( た だ し 結 時 し な いこ と ) 


e 本 体 
e キーボー ド 


消費 電力 46W(model30) 


350(W) X 345(D) x 125( H)mm 
412(W) х 195(0) x 32(H)mm 


[2 Zn: 2542525 


RS-232C 
イン タフ 
ス 


r- 


GVRAM 
48K 


グラ フィ ッ ク コ ント ロー ル 
ビデ 本 イン タフ エー スス 


電源 
+5\, + 12V, — 12V 


カラ ー デ ィ ス プレ イ 


モノ クロ デイ スプ レイ L — — p — — — — — — — —— — — — 


家庭 用 テレ ビ 


図 3 メモ リマ ッ プ 
ログ ラム が いく つか 入っ て いま す 。 


tutor.n88 
は パソ コン 家庭 教師 プロ グラ ム で , キー ボ 


メイ ン CPU の メモ リマ ッ プ 


F 
VRAMO VRAM1 | VRAM2 FFRH 
16K バ イト 16K バ イト | 16K バ イト 
0000H 


ー ド の 使い 方 や 。 グラフィック の 概念 な ど 
が 学 さ ます 。 ゲ ー ム ディ スク に は アド ベン us гура ーー 

: ue маре mom pd em 
チャ ー ゲ ー ム と ね ずみ ゲー ム が 入っ て いま 32K 32K 8K パ イト 。 8K バ イト 1 RAM 

バイ ト パイ ト | 326/14 | 
す 。 E ا‎ 
前 生ま EAI お OS E a Moos 0 N。。-BASIC で 使わ れる メモ リ 
= s 64K RAM 
拡張 機能 の 追加 FFFFH Barra Шш | [353 LI 


PC-8801 の 主 言語 で ある N。。-BASIC を 
その まま 引き 継い で いま すか ら , 膨大 な ツ 
フト 資産 を 活用 する こと が で きま す 。 ま た, 
PC-8801MK II で は 拡張 機能 が 新しく 使え 
る よう に な っ て いま す 。 

拡張 Ni。-BASIC パッ ケー ジ を テー プ ま 
た は ディ スク か ら ロ ー ド し , 画面 の 高速 ク 
リア , 絵 を か く と き 便 利 な ター トル グラ フ 
ィ ッ クス , 4 オク ター プ の 音楽 機能 な どの к 
新しい コマ ンド を 追加 する も の で す 。 

メモ リマ ッ プ は 図 3 の と ぉ おり で す 。 0 

ザ プ CPU の メモ リマ ッ プ 


7FFFH Fan 
16K バ イト 
4000H 


7FFH 
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X5 BASIC の 選択 


Nss-DISK BASIC 


ШШ! As ES] 
"I i [53 
BICIS Ма 0 Dy 
PEK! C EEE 


Nes-BASIC 


ا 


8 гл a FRES 

LN (1. 3 Я 

MISIN LA ы La 
3 4 


rq 
iD: I 
E 


6—7-8 


Nas-DISK BASIC 
シス テム ディ スク 


П ве И LF ETA 
SI ВОЕН 
СЕЕ нү к 
2 3 人 3.5 +6 
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不 要 


DISK BASIC 


LEEREN 


PC-8801 の 基本 性 能 を 維持 し て きた PC 
-8800 シリ ー ズ も , 同 ク ラス マシ ン と の 間 
で 見 劣り する 面 も 出 て きた た め , 1985 年 2 
月 に PC-8801 MK II SR を 発表 し て , 一 
気 に 勝負 に で まし た 。 主 な 機能 アッ プ の 点 
を あげ て み ま し ょ 2 う 。 

⑧ 高 速 グ ラフ ィ ッ クス 

グラ フィ ッ ク 能 力 が 一 気 に パ ワー アッ プ 
し まし た 。 デ ィ ス プレ イ の 表示 スピ ー ド は 
これ まで の 倍 以 上 に アッ プ さ れ , 8 ビッ ト 
の 限界 に 迫っ て いま す 。 

人 @512 色 カラ フル グラ フィ ッ ク 

アナ ログ RGB デ ィ ス プン レ イ (PC-KD 
852) と 組合 せる と ,512 色 中 8 色 と い うぅ 幅広 
い カ ラー 選択 が 可能 と な り ま し た 。 往 妙 な 
色 表 現 も BASIC で 自由 に 出せ ます 。 

@ FM 音源 シン セ サ イ ザ 

最新 の シン セ サ イ ザ IC に より 6 重 和音 
8 オク ター ブ の 自動 演奏 が 可能 で す 。 ぅ うち 
3 重 和 音 は 自然 音 に 近い 斉 づ くり が で きる 
FM 音源 で す 。 そ の うえ , 楽 品 や 効果 音 な ど 
49 種 の サウ ンド を 内 蔵 し て いま す 。 

まる に グラ フィ ッ ク と サウ ンド の 競演 と 
いっ た と ころ で す 。 これら の 機能 強化 の た 
DU, 次 の ハー ドウ ェ ア 変 更 が 施 き れ て い 
12 


ETE に に に だ で 

кА 

Бейш Tt PCL DE 
Pies ecc ЕЕ, 


DISK BASIC 
シス テム ディ スク 


КЕШЛГЕ Lu 


ka um i لا‎ E ph 
ПЕР Ы 


ます 。 


Ж ¥ 


・4th КОМ を 4 つ に 増設 
・ テ キス ト 用 高速 RAM の 追加 


・FM 音源 LSI の 付加 


・ ア ナグ n RGB 
・VRAM アク セス の サイ クル スチ ル 化 


・VRAM に 対す る ALU 論理 演習 回 路 の 


A PC-8801MK II SR 


4 拡張 命令 の 配置 
FFFF 
= wa ipe 


E600 


拡張 命令 処理 ルー チン 


ОСОО 


XXXX 
(不定 ) 


ァイル バッ ファ 
(Ngs-DISK BASIC) 


8400 


採用 


CPU は 従来 どおり で 変更 は きれ て いま 
ERE GOG, 
り 使え る よう に PC-8801 MK II と の コン 
パチ ブル モー ド が 用 意 き れ て いま す 。 

で は , PC-8801 MK II SR の 新しい 機 
能 を 詳し く 見 て み ま し ょ う 。 


いま まで の ソフ ト が そっ く 


APC-8801MKIITR 
基本 的 な 機能 は SR その まま に 、 
電話 機 モ デム 、 NCU を 一 体 化し 
た モデ ル 。 誰 で も 簡単 に パソ 
コン 通信 が 楽し め る よう に な 
30$. 


モー ド 選 択 


ハー ド ・ ソ フト が 変更 きれ た の に と も な 
от, N。。-BASIC も バー ジョ ン ア ッ プ さき 
N, SR に は N。。-BASIC Ver.1.4 E. Nss- 
BASICVer.2.0 が 実装 る きれ て いま す 。 

この た だ め , SR は PC-8801 MK II の よう 
に , N モ ー ド か Na モー ド か と いっ た 単純 
な も の で は な く な り , 次 の よう に モー ド は 
5 つら な が ます 。 

① N-BASIC モー ド 

従来 と 同じ PC-8001 と の ユン パチ ブ 
ルモード 

② N-BASIC+ キ ハイ スピ ー ド モー ド 

N-BASIC モー ド に , テキ スト 画面 の 
表示 が 高速 され た モー ド 。 

③v1 モー ド 

PC-8801MK II と の ュ ユン パチ ブル モー 
ド 。 
④ V1 キ ハイ スピ ー ド モー ド 
V1 モー ド で , SR に 新しく つけ られ た だ 
ハー ド を 利用 で きる モー ド 。 も ちろ ん V2 
モー ド は ほど 高速 に は な り ま せん が , PC- 
8801MK II と 交換 性 を 保 あ な が ら , グラ 

フィ ックス や テキ スト 画面 表示 な ど が あ 

る 程度 高速 化 々 きれ ます 。 

⑮ V2 モー ド 

SR の 高速 化 き れ た ハー ド に 対応 し た 

ッ フ ト の 動く モー ド 。 強化 され た 機能 を 

すべ て 使う こと が で きま す 。 

5 €, N。。-BASIC iz, V1 で は Ver.1.4 
が , V2 で は Ver.2.0 が 使わ れ て いま す 。 ま 


0000 - 
M5 メモ リマ ッ プ 


8000 --- - - - - -- 
EOROM E1ROM E2ROM | | E3ROM 
6000 --- : š - = 
Nss-BASIC| | N-BASIC 
ROM ROM 


X, モー ド 選 択 は , 前 面 の 右 す み に つ けら 
れ た だ 2 つの スラ イド スイ ッ チ を 使っ て 行く 
よう に な っ て いま す 。 


メモ リマ ッ プ 
MS 
PC-8801 MK II SR の メモ リマ ッ プ は 


図 5 の よう に な っ て いま す 。 これ を 見 る と 
分 か る よう に , SR は E0~E3ROM の 4 つ 
の 4 th ROM を 持っ て いま す 。 こ れ ら 6 の 
ROM の 内 容 は 次 の と お ぉ り で す 。 
(D EO ROM 
PC-8801MK ПО 4th ROM と 同等 
@⑦E1 ROM 
V2 モー ド で の グラ フィ ックス 用 モジ 
pem 
@Е2 ROM 
CALL x, ROLL 文 , ロ ング エラ ー メ 
ッ セ ー ジ な ど PC-8801MK II の DISK- 
BASIC で サポ ー ト る され て いた モジ ュー ル 
(0 ES ROM 
S Z = E а аи 
これ ら の ROM の 増設 に より , V2 モー 
ド に お いて は , PC-8801MK II に DISK 
BASIC で サポ ー ト る れ て いた CALL, 
ROLL, WHILE, —WEND 37; E 27 ROM 
BASIC で サポ ー ト る れる よう に な り , エ ラ 
ー メ ッ セ ー ジ も , 
SN error 
の よう が な ショ ー ト メッ セー ジ で な か なく 
Syntax error 
と いう よう に ロン グ メ ッ セ ー ジ で 表示 され 
deb. 


また だ た, モニ タ ROM に お いて も , いま ま 
で DISK BASIC で サポ ー ト る れ て いた 
D. ^ R.|^ へ W な ど が モニ タ ROM 上 に 移 
$n, M コ マン ド の バグ が と れ ま し た 。 

この よう に DISK BASIC の 負担 が 軽減 
る れ た 結果 , SR の V2 モー ド で 使わ れる 新 
し い シ ステ ム デ ィ ス ク は , 大 きる が 約 3.5K 
バイ ト ほ ど 小 る さく な り , その 分 フリ ー エ リ 
ア が 拡張 る れ て いま す 。 

また , V2 モー ド に お いて は , 増設 され だ 
ROM を 機械 語 レ ベル で 容易 に 使用 で きる 
よ ょ うに, グラ フィ ックス 用 の GBIOS, ミュ 
ー ジ ッ ク 用 の MBIOS が 用 意 き れ て いま す 。 
ктр с есе сз 

Nss-BASIC 

RE 


SR に は Ver.1.4 と Ver.2.0 の 2 つの Nas 
-BASIC が あり ます が , メモ リマ ッ プ を 見 
る と 分 か る よう に , Nss- BASIC ROM は 1 
つ し か あり ませ ん 。 つ ま 0, N。。-BASIC は 
バー ジョ ン こ を 違っ て いま す が , 基本 的 に 
BASIC ROM を 共用 し て いま す 。 

言い 換え る L, N。。- BASIC ROM+ 
EOROM が Ver.1.4 € N。。- BASIC 
ROM-E0— 3 ROM が Ver.2.0 と いう こ 
と に な り ま す 。 

この た め , Ver.1.4 で も エラ ー メ ッ セ ー ジ 
は КОМ, ディス ク に か か わら ず , ロ ング メ 
ッ ギ ポー ジ で 表示 きれ ます の LEIST NM 
1 モー ド は コン パチ ブル モー ド と いっ て も , 
この Ns BASIC Ver.1.4 を 使っ て いる の 
で Nass -BASIC ROM 内 の サブ ルー チン を 
多用 し て いる ソフ ト を 動か す 場 合 は 注意 が 


GVRAM 0 GVRAM 1†1GVRAM 2 
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必要 で す 。 
高速 グラ フィ ックス 


サイ クル スチ ル お よび ALU の 採用 に よ 
っ つて, グラ フィ ックス は 高速 に な り ま し た 。 
具体 的 な 速 さ は 表 6 の よう に な っ て いま す 。 

KPT, V2 と ある の は V2 モー ド , VI+ 
HS と ある の は V1 サ ハイ スピ ー ド モー ド 
EF 

また , 各 値 は V1 モー ド , すなわち 従来 の 
グラ フク イッ クズ スズ ! ビ よる 速 き を 1 どじ だ た とき 
DEUS соз ее ИОВ SES 
V2 モー ド で 従来 の 39 倍 に 高速 化 き され て い 
る わけ で す 。 

実際 。 V2 モー ド に お いて は フル スク リ 
ー ン で CLS2 が 約 0.13 秒 し か か か り ま せん 。 
も ちろ ん , ビビ ュー ポー ト も 考慮 きれ て ぉ り 

VIEW (1.1) — (638.198) 
と し た 場合 で も 約 0.14 秒 し か か か り ま せん 。 

この よう に , 単純 な 比 を 見 た だ け で も , 
SR の グラ フィ ックス が 従来 に 比べ て いか 
に 高速 化 き れ た か が 分 か り ま す 。 

この よう な 高速 化 の た め の 改 良 に よっ て , 
高速 書き 込み モー ド は V2 モー ド , V1+> 
イス ピー ド で は 無 意 味 し な り ま し た 。 す な 
ODEN EENES pre 
T 

SCREEN.1 
を 行っ て も スピ ー ド は 変わ ら ず , 従来 の よ 
うな DMA に よる 停止 も な く な っ た だ ので, 
DMA を オフ に し て も スピ ー ド は 変わ り ま 
Su ern 


な お , V1 モー ド で も 高速 書き 込み モー 
ド が 改良 され , スピ ー ド は アッ プ し て も 画 
面 は ちら つか な いよ うに な っ て いま す 。 

強化 きれ た グラ フィ ックス を 十分 に 生か 
せる よう に , ター トル グラ フィ ックス 拡張 
命令 が 用 意 き れ て いま す 。 こ れ は PC- 
表 6 y 


グラ 


(640X200 カラ ー モ ー ド ) 
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8801MK II に 添付 る され て いた 拡張 命令 パ 
ッ ケ ー ジ を .SR 用 に ダー ジョ ン ア ッ プ し た 
も の で , グラ フィ ッ ク の 高速 化 に よっ て か 
な り 使い 勝手 の よい も の に な り ま し た 。 


FM 音源 シン セ サ イ ザ 


標準 で 装備 され た FM 音源 シン セ サ イ 
ザ は , ヤマ ハ の YM-2203 で , 使用 で きる の 
は V 2 モー ド だ け で す 。 

この FM 音源 シン セ サ イ ザ は , ピッ チ 変 
調 の 入力 デー タ に 従っ て メモ リ 内 の サイ ン 
波 を 読み 出し , それ を エン ベロ ー プ デー タ 
に 従っ て コン トロ ー ル し て 入力 する ЕМ 
音源 を 使っ た シン セ サ イ ザ で す 。 実際 に 使 
いこ な す た め に は , FM 音源 の 概念 を 十分 
に 理解 する 必要 が あり ます 。 

$C, 実際 の 性 能 で す が , この シン セ サ 
イザ は 49 の 音色 を 使っ て 6 重奏 が 可能 で , 
その 音色 も 自由 に 作り 替え を る こと が で きま 
す 。 ま た だ , 別売 り の ミュ ー ジ ッ ク イ ンタ フ 
ェ ー ス ボー ド (MIDI) を 接続 すれ ば , キー ボ 
ー ド や 外部 シン モ サ イザ を コン トロ ー ル す 
LORS dA err ie те 

この シン セ サ イ ザ を BASIC で 制御 で き 
S SO: de 0D ОЛЕ УА デー 
ト が 用 意 き る きれ て いま す が , SR の 場合 は これ 
ら の ステ ー ト メン ト を 拡張 命令 と し て 扱い , 

NEW CMD 


ミュ ー ジ ックス テー トメ ント 


CMD BGM 


を 実行 し な けれ ば リン ク さ れ ま せん 。 し た 
が っ て , FM 音源 シン モ サ イザ を 使い た い 
場合 は V2 モ ー ド を 立ち 上 げ て , NEW 
CMD を 実行 する 必要 が あり ます 。 こ の 命 
令 を 実行 後 は E100H-E5FFH を ワー ク と 
し て 使用 する た め , この エリ ア は フリ ー エ 
リア と し て 使用 で き な 《 な り ま す 。 
IE TR 
アナ ログ RGB 


V2 モー ド で は , カラ ー 表 示 は 512 色 モー 
ド に 設定 され ます 。 

この 512 色 の 中 か ら 任 意 の 8 色 を 選べ る 
も ので, 512 色 を 一 度 に CRT に 表示 で きる 
わけ で は あり ませ ん 。 基 本 と な る 8 色 を か 
な り 微 妙 な 色調 に 設定 し て 表示 で きま す 。 
だ だし, これ は アナ ログ CRT の 場合 だ け 
С, ИЛОВА АТО 
d, アナ ログ RGB の СКТ が な けれ ば , こ 
の モー ド は 無 意 味 ど と いう わけ で す 。 

また , この 512 色 か ら の 人 色 選 択 (( パ レット 
機能 ) BASIC で 制御 する だめ に し に, 

CMD PAL 

と いう コマ ンド が 用 意 る きれ て いま す 。 た だ だ 
үз EDIE x puce Бу ж ЕНУ als 
と 同様 , NEW CMD 命令 を 実行 し な けれ 
ば 使え ませ ん 。 

な お , アナ ログ RGB で は , カラ ー パ レッ 
ト 制御 用 の ポー ト が デジ タル RGB の 場合 


並列 動作 モー ド の 制御 を 行 


CMD OUTM 


MIDIR- h^ 1 バイ ト 分 デー タ を 送り 出す (M) 


CMD PLAY 音楽 を 発生 する 


CMD SOUND 


音楽 を 発生 する (M) 


CMD STOPM 


dires e que) 


※CMD UNLINK 


拡張 命令 を 取り さる 


CMD VOICE 音色 を 設定 する 


CMD VOICE COPY 


音色 デー タ を 配列 変数 に コピ ー す る 


CMD VOICE LOF 


各 ボ イス に LFO 効 果 を 与え る 


CMD VOICE RGE 


FM 音源 LSI(OPN ) の レジ スタ に 値 を 設定 する 


@※ は 、PC-8801MKIISR の み 、PC-8001MKIISR に は な い 。 
@(M) は 、 別 売り の ミュ ー ジ ッ ク イ ンタ フェ ー ス ボー ド が 接続 し て ある 場合 に 有効 。 
@ PC-8001MKIISR の 場合 は ステ ー ト メン ト の 先頭 の 'CMD' は 不要 。 


と 少し 違う の で , この ポー ト を 直接 操作 す 
る ゲー ム ソ フ ト な ど を B 2 モー ド で 動か す 
t, 画面 が 薄 青く な っ て し まい ます 。 


高速 テキ スト RAM 


SR に は 新しく テキ スト RAM 用 高速 
RAM が 使わ れ て いま す 。 こ の 高速 RAM 
は V2 モー ド あ る い は N-BASIC モー ド , 
V1 モー ド で ハイ スピ ー ド モー ド を 選択 し 
だ 場合 , 図 6 に 示し た F000H—FFFFH に 
割り 当て られ ます 。 

これ に よっ て テキ スト RAM は 高速 化 
L, テキ スト 画面 表示 速度 は N-BASIC 十 
ЖАЛИ eE ТИ. УЕ 
ERVEN Е чай суу. ш 
zu; > d 

この と き メ イン メモ リ も バン ク 切 り 替 え 
に よっ て 使用 で きま す が , テキ スト 表示 の 
た め の DMA 転送 が 常に 高速 RAM に 対 
し て 行わ れる た め , テキ スト RAM へ の ア 
クセ ス は で き な く な り ま す 。 

また , 外部 DMA 転送 は 高速 RAM で は 
な く 〈 メ イン メモ リ 上 に 行わ れる の で , 84 
ンチ ディ スク で は この 高速 RAM 上 に 直 
接 デ ー タ を 転送 する こと は で きま せん 。 


マニ ニョ ベッ ルレ 


解説 書 た として, リフ ァ レ ンス マニ ュ ア ル 
と ユー ザー ズ ガ イド の 2 冊 が つい て いま す 。 
リフ ァ レ ンス マニ ュ ア ル は 従来 の も の に 比 
べ て 読み や すく , ユー ザー ズ ガ イド も 初心 
者 の た ゆめ に たい へ ん 分 か りや すく 工夫 る され 
て いま す 。 これだけ 細か く 説明 さる れ て いれ 
Ії, まっ た く 初 め て の 人 で も 途方 に くれ る 
こと も な く , マシ ン に 親しむ こと が で きる 
TERE 


図 6 高速 テキ キス ト RAM 


外 #R 

K у S0 
マシ ン の 外観 か ら 6 感じ る の は , デザ イン 
が よく な っ て いる こと で す 。 本 体 は や や 横 
に 広く な り , 全体 的 に カド が と れ て 丸く な 
っ て いま す 。 

キー ボー ド は , カー ツル 移動 キー が テン 
キー の 上 に つい て いる の は 相 変 ち ず で す が , 
従来 より も つい て いる の は キー が し っ か り 
し, た た は Fo РО fag SU sb ve bs 
タン も , 従来 は ディ ッ プ スイ ッ チ 類 と 一 緒 
に まとめ られ て , 使い に くい 面 が あり まし 
た が , PC-8801 の よう に 左 す み に つ けら れ , 
ボタ ン も 大 きく な っ て 使い や すく な り ま し 
た 。 た だ だ, 新しく つけ られ た シン セ サ イ ザ 用 
ボリ ュー ム が , な ぜ か 本 体 後ろ の に つい て い 
т 

アナ ログ СЕТ に つい て は , CRT に 回 転 
式 の 台座 が つき ,CRT の 向き を 調節 で きる 
E EO EIL, 

また , 内 蔵 デ ィ ス ク は 従来 と 同じ 5 イン 


ます 。 


チ 2D イ ン テ リ ジュ ント タイ プ で す が , 7 
クセ ス 時 の カチ ッ , カチ ッ と いう 音 が 消え を 
静か で す 。 

な お , 付属 の ディ スク に は 新 機能 を 取り 
入れ だ た デモ プロ グラ ム や , 面白 い ア ニ メ ー 
ショ ン が た くさ ん 入っ て いて 楽し め ま す 。 
また だ た, V1+ キ ハイ スピ ー ド モー ド で PC- 
8801MK II 用 と し て 開発 る きれ だ た ゲー ムツ 
フト を 動か し て み ま す と , か な り 動 き が 速 
く , これ は ワー プロ ソフ ト で も 同じ こと て 
スク ロー ル な ど が 高速 化し て 使い や すく な 
り ま す 。 ハ ー ド が 改良 され た の で すか ら 速 
い ぃ の は 当然 で す が , も し 既存 の ツ ソフト て 騰 
いと 思う の が あれ ば 試し て みる と よい で し 
325 

いずれ に し て も , 全体 的 に よく 改良 され 
だ マシン bue The 
と ころ で , 最 近 発表 きれ た PC-8801MK II 
TR は , SR に 多 機能 電話 モデ ム を 内 蔵 さ せ 
た モデ ル で す 。 き た る パッ ュ コン 通信 時 代 に 
を そなえ ぇ た, SR の 発展 機 し いう こと が で き 


ru ugundim Г 


PC-8800 シリ ー ズ で 独自 の 境地 を 開拓 
し て きた だ NEC は , 1985 年 11 月 に, 同 シ リー 
ズ 新 製品 2 機種 を 発表 し ま し た 。 

PC-8801 МКП FR,8801 МКП MR で す 。 


まず , PC-8801 MK II FR は , 8800 シ リ 
ー ズ の 普及 機 ほ し て 登場 し ます 。 

基本 的 に は PC-8801 MK II SR と 同じ 
で す が , 大 規模 ゲー ト ア レイ の 採用 , オプ 


ショ ン ボ ー ド スロ ッ ト ル 3 を 1 に , モノ ク 
ロディ スプ レイ イン タフ ェ ー ス , きら に ., 
市 販 ソ フト に も まっ た くく 影響 の な く な っ て 
いる , あの 歴史 的 と も いえ る N-BASIC の 
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削除 一 一 な ど に より , コス ト ダ ウン が 実現 
し た と いう も の で す 。 

8801 MK II FR の 新しい ポイ ント は , 
熟語 交換 の 日 本 語 BASIC を 標準 搭載 し た 
に と で じょう (モデ リッ と 10 は オデ ショ ン )。 Б 
な み に 漢 字 ROM は 第 1 水準 が 標準 に な っ 
ECE EIN AAI RL, モデ 
ル 20( デ ィ ス ク 1 基 ), モ デル 30( デ ィ ス ク 2 
基 ) の 3 タイ プ が 用 意 る きれ て いま す 。 


PC-8801MK IIFR» 


PC-880 MK II MR は , 88002 ) —X 
の いわ ば 最上 位 機種 とし て 登場 する も の で , 
1 モデ ル の み で す 。 

同機 を 8800 シ リー ズ の 最上 位 機種 と 位置 
づけ る 強化 ポイ ント として, 次 の 点 が あげ 
DqUACUIO, 

① 1M バ イト ディ スク ドラ イブ 2 04 

載 

メイ ン メ モリ RAM を 192K バ イト に 

拡大 

漢字 は JIS 第 1, 2 水準 を 標準 搭載 

④ 辞 書 機能 を 強化 し た 文節 交換 の 日 本 語 

BASIC を 標準 搭載 

これ ら の 強化 に よっ て , ビジ ネス ユー ス 
に も 十分 耐え られ る マシ ン に 成長 し た と と 
も に , スモ リ の 拡大 に よっ て きら に 本 格 的 
な アニ メラ イク な ゲー ム が 十分 楽し め る よ 
2 に な る な ど , 幅広 く 活 用 で きる よう に な 
EES 

と ころ で , 以上 の 強化 に よる 従来 市 販 ツ 
フト ウェ ア の コン パチ ビリ ティ が 気 に な り 
ます が , 2D, 2HD ディ スク を マシ ン が 自動 
的 に 選別 し , 従来 の 2D に 対し 読み 取り , 書 
き 込 み の 両方 を 可能 た し た こと で を その 心配 
を な が ぐ じ CI まず 。 ま だ,SR 以 降 の マシ 
16 


ン , MR 対応 の 外 づ け 2HD ディ スク ドラ 
イブ が 発売 きれ ます 。 

な お , 従来 機種 を 8801 MK II MR 並み 
に 拡張 する た め の オ プシ ョ ン と し て , 以下 
の 製品 が 発売 され ます 。 

① 通 信用 モデ ム ボ ー ド 

PC-8801-12 


APC-8801MKIIMR 


② マ ル チ ボ ー ド A(128K バ イト メモ リ , 
第 2 水準 漢字 ROM, パラ レル I/F) 
PC-8801-20 

③ 外 づけ 2HD ディ スク ドラ イブ 
PC-8831-MW 

④CMT イン タフ ェ ー ス ボー ド 
PC-8801-21 


PC を 


内 部 解析 する 


1983 年 12 月 号 一 1984 年 11 月 号 
19834128 8 — PC を 内 部 解析 する 鈴木 輝彦 
1984 年 1 月 号 外部 周辺 機器 と の 入出 力 鈴木 輝彦 
1984 年 2 月 号 PC-8001MKITTI の グラ フッ クス 編 鈴木 光彦 
1984 年 3 月 号 。 PC-8001 の グラ フィ ックス 編 鈴木 光彦 
1984 年 4 月 号 Naa-BASIC の グラ フィ ックス 編 鈴木 輝彦 
1984 年 6 月 号 数値 表 現 あ れこ れ $$ < om E 
1984 年 8 月 号 数値 関 数 あれ これ 鈴木 光彦 
1984 年 10 月 号 文字 列 処 理 と ガベージ コレ クシ ョ ン 鈴木 光彦 
1984 年 11 月 号 。 BASIC イ ンタ プリ ンタ の 構造 鈴木 輝彦 


NENNEN PC-8001/MKII, 8801 mwa 


PC を 内 部 解析 する 


鈴木 E 


1983 年 12 月 掲載 


は じ め に 
E , 


PC シリ ー ズ の 内 部 解析 を 今月 号 か ら , 
6 回 連載 程度 で お 送り し て いく つも り で す 。 
取り 扱う の は PC-8001, PC-8001MKII, PC 
-8801 の 3 機種 で す 。 

上 記 の 3 機種 は ハー ド 的 , ツ フ ト 的 に 共 
通 点 が 多い の で 一 緒 に 扱う わけ で す が , や 
は り 区 別 は 必要 な の で , その 区 別 を 以下 の 
ЫЯ ЧУЕ ск 

PC-8001 ог (N)…… 各 機種 の N-BASIC 

モー ド に 関す る も の 
(N80-BASIC を 含む ) 
PC-8001MKII or (N80)…… PC-8001MKII 
に の み 関 する も の 
PC-8801 or (N88)…… PC-8801 の N88 モ ー 
ド の み に 関 する も の 

iX, 本 連載 で 使用 する 「 レ ジス タ 」 と 
いう 言葉 は 「 内 容 の 変化 する レジ スタ 」 を 
Sei. 

それ で は さっ そく 〈, 解析 内 容 の 紹介 に 入 
арк Ба чына 


PC の 内 部 解析 
L 
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周辺 機器 へ の 
1/4 F 82) 


0018H (N)(N88) 
レジ スタ : すべ て 保存 
A レ ジス タ の デー タ を 周辺 機器 に 出力 す 
る 。 出 力 先 は 以下 の よう に な る 。 


нэ E B49H(N) 


00H 


ОНЕГЕН | 00H 以 外 


CMT 80H — E: FSH | 


た だ し , CMT に 対す る 出力 は 事前 に イニ 
シャ ライ ズ し て お く 必 要 が ある 。 
の ウリ ルー ニン だ は 
RST 18H 

で コー ル す る こと が で きる 。 一般 的 な 使い 
方 で は 上 記 の アド レス に 00H を 入れ , 
CRT に 01H を 入れ て プリ ンタ に 出力 先 を 
切り 替え を る と いっ だ こと が で きる 。 


周辺 機器 へ の 
文字 列 出力 


52EDH (N) or 52ECH (N) 
レジ スタ : AFB,C,D,E,H,L(N) 
HL レジ スタ 対 の アド レス か ら 0 の 入っ 
て いる アド レス まで , 文字 列 出力 を 行う 。 


52ECH コー ル 時 は HL レジ スタ 対 の 次 の 
アド レス か ら 6。 出力 先 は EB49H の 内 容 に 
ENS 


CRT に 
] 文字 表示 


0257H (N) 3E0DH (N88) 
レジ スタ : すべ て 保存 
カー ソル 位置 に A レ ジス タ の キャ ラク タ 
1 文字 を 表示 する 。A レジ スタ が 20H 以 下 の 
コン トロ ー ル ・ コ ユ コード な ら 6, その 動作 を 行 
p 
カー ソル 位置 に つい て 
X (1 ~) : EA64H (N) EF87H (N88) 
Y(1 ~) : EA63H (N) EF86H (N88) 
aba s m— FE 
EA5BH (N) EF8CH (N88) 


VHAM 上 の 
アド レス を 求め る 


03F3H (N) 429DH (N88) 
レジ スタ : AF,D,E,H,L(N) 
A,F,H,L(N88) 

HH レジスタ に XX 座標 (1 一 ) し レジ スタ 
СҮТ) る 六 む で て ユール す る t, 
HL レジ スタ 対 に VRAM 上 の アド レス を 
入れ て も どる 。80/40 字 , カラ ー/ 白 黒 な ど 
も 考慮 され て いる 。 


カー ソル 表示 


0BE2H (N)4290H (N88) 
レジ スタ : AF (N) 
すべ て 保存 (N88) 
カー ツル 位置 に カー ソル を 表示 する 。 
BASIC で INKEY$ を 使用 する と き に , こ 
の ルー チン を コー ル す れ ば カー ソル を 表示 
する こと が て きる も 


カー ソル 消去 


0BD2H (N) 428BH (N88) 
レジ スタ : AF (N) 
すべ て 保存 (N88) 
カー ソル を 消去 する 。 た だ し , LOCATE 
命令 に よる カー ツル の 消去 と は 状態 が 違う 。 


レジ スタ : AF,B,C,D,E,H,L(N) 
H レ ジス タ の 双 座 標 (1 一) エレ ジス タ 
の Y 座 標 (1 一) に カー ツル を 移動 し て A 
レジ スタ の キャ ラク タ を 表示 する 。 
た と えば 画面 の ホー ム ポ ジ シ ョ ン LA7 
を 表示 し た いと き は 
LD HL, 0101H 
LD A,A’ 
CALL 2D7H 

と する わけ だ 。 


カー ソル 移動 


03A9H (N) 
レジ スタ : АЕ (N) 

H レ ジス タ に 双 座 標 (1 一 ) し レジ スタ 
に Y 座 標 ( 1 一) を 入れ て コー ル す る と 、 カ 
ー ツ ル を を の 位置 に 移動 どき る 。 た と えば 

LOCATE 10, 10 


441DH (N88) 
レジ スタ ALFB,C,H,L(N88) 

EF87H に X 座 標 (1 ~) EF86H に Y 座 
標 (1 一 ) A レ ジス タキ ャ ラク タコ ー ド 
を セッ ト し て コール す る と , その 位置 に A 
レジ スタ の コー ド を 表示 する 。 ま た だ た , コン 
トロ ー ル ュー ド は る その 動作 を 行う 。 

た と えば , BASIC に よる 

LOCATE5, 5 : PRINT `A” 


を 行う に は , 
LD HL, 0606H 
LD (EF8 H), HL 
LD A A! 
CALL 447DH 
ENDS 
sl O IER ORE 


文字 表示 お よび 
アト リピ ュー ト 設 定 


4350H(88) 


カー ツル が 必要 の な いと き に コー ル す る と d レジ スタ : すべ て 保存 
消 を る 。 LD HL, 0B0BH HL レジ スタ 対 に VRAM 上 の アド レ 
[с ссср эк злу жс у с OT: CALL 3A9H х, B レ ジス タ に キャ ラク タコ ー ド , Cv 
1  — ЛУЛУ ELE EP E 
カー ソル 移動 と — ー ル する と , VRAM に B の コー ド を 書き 
1 文字 表示 1 文字 表示 B, その 位置 の プア トリビュー トコ ュー ド を 
zog C レ ジス タ の 値 に モッ ト す る 。 うま く 利 用 
すれ ば セミ グラ フィ ッ ク が 可能 だ と 思う 。 
02D7H (N) の だ と えば , (10, 5) に 緑色 の 'A' を 表示 
する に は , 
ピット 7 | 6 Д m 3 I 0 LD HL, 060BH 
CALL 429DH 
А ] P? E^ Ld кы リバ ー ス | プリ ンク | シークレット LD B, 'A' 
= LD C, 88H 
F LQ | キャラ クタ ノー マル | ノー マル ノー マル | ノー マル | ノー マル 
カラ ー コ ー ド 1 2 =i] : «| Am 7 
7 グリ ー ン | レッ ド | ブル ー グラ フィ ッ ク Hu | J 
? س ار‎ e = & a | в [= е в ок Га | = 
? š ^ amat (uud a ИЛ РЭА n | ۴ 
ñ OE ыы R グリ ー ン | OFF | OFF | OFF | OFF | ON ом ON ON 
Б t 
те pasta Я 
В | И ライ ン | ライン cia レッ ド | OFF | OFF | ON ON | OFF | OFF | ON oN 
指 ] T 
定 | 0 ЙІ Mec Y Jua SE ie а Аа ブル ー OFF ON OFF ON OFF ON OFF ON 


アト リピ ュー トコ ー ド 表 (N)(N88) 


RGB 一 カラ ー コ ー ド 対応 表 
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CALL 4350Н 
と する 。 


アト リ ビ ュ ー ト 設定 


04F8H (N) 
レジ スタ : AF,B,C,D,E,H,L(N) 

H レ ジス タ に 双 座 標 ( ~), し レジ スタ 
に Y 座 標 (1 一) A レ ジス タ に アト リ ビ ュ 
ー ト コー ド を 入れ て コー ル す る と , tof 
置 の アト リピ ビュ ー ト を セッ ト す る こと が で 


きる 。 
た と えば , (5, 10) に 青色 の `B' を 表示 
する に は , 
LD HL, 0B06H 
LD A,'B' 
CALL 02D7H 
LD HL, 0B06H 
LD A, 28H 
CALL 04F8H 
t3 $5. 
Da ЕСО сц TRU 


アト リ ビ ュ ー ト 設定 
その どら 


06E6H (N) 
レジ スタ : AF,B,C,D,E,H,L(N) 
EDC4H に XX 座標 (1 ~) EDC3H tz YEE 
B (1 ~) EDBAH に アト リ ビ ュ ー ト ュー 
ド を 入れ て コー ル す る k, 上 記 と 同様 の 動 
作 を する 。 


プリ ンタ に 
1 文字 出力 する 


0D60H (N) 3ED4H (N88) 
レジ スタ : すべ て 保存 (N) (N88) 

A レジ スタ の デー タ を プリ ンタ に 出力 す 
る 。 た だ し TAB コー ド (09H) は 送ら れ 
ず , スペ ー ス が 複数 個 送ら れる 。 

出力 に つい て は 以上 で 終わ り で す 。 Kl 
キー 入力 関係 で す 。 
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リア ル タ イ ム ・ キ ー 
入力 


0FACH (N) 35CEH (N88) 
レジ スタ : A,F (N)(N88) 

キー ボー ド を スキ ャ ン し て A レ ジス タ に 
キャ ラク タコ ー ド を セッ ト し て も どる 。 た 
だ し , キー 入力 が な いと き は キャ リー フラ 
ACY) vu» BONIS で ロク ラグ "(2Z) 
を セッ ト (N88) し て も と る 。 

た と えば , キー が 押 き れ て いる 間 , その 
キャ ラク タ を 表示 する プロ グラ ム は 次 の よ 
うに な る 。 (PC-8001 に よる ) 

LBL : CALL OFACH 
JR CEBE 
CALL 0257H 
JR LBL 


1 文字 入力 待ち 


0F7BH (N) 3583H (N88) 
レジ スタ : AF(N)(N88) 
キー 入力 が ある まで , 待ち 続け る 。 キ ー 
入力 が あっ た ら A レ ジス タ に キャ ラク タコ 
ARRANT БЕ bo 
たとえば, 10 文 字 キ ー 入 力 ま た は スト ッ 
プ ・ キ ー 入 力 が あっ だ た ら も どる サブ ルー チン 
は , 


LD B, 10 

LBL : CALL OF7BH 
CP 3 
ЖЕЛ. 2 
CALL 0257Н 
DJNZ LBL 
RET 


と いう よう に な る 。 (PC-8001 に よる ) 


スト ッ プ ・ キ ー の 
チェ ッ ク 


0CF1H (N) 35C2H (N88) 
レジ スタ : A, Е (N) (N88) 

スト ッ フ ・ キ ー が 押 き れ て いれ ば キャ リー 
ЛО ОЕМ T SES. 

た だ し , PC-8001 で は ESC キ ー も チェ ッ 
ク し て いる 。ESC キー が 押さ きれ て いれ ば , 
CUTIA (ZIWE У 200ү) 
と も に リッ EOE 

たとえば, ストップ ・ キ ー が 2 回 押さ きれ る 


まで 待つ の は 

гр В, 2 
EBE: CALL 0CF1H 
JR NC, LBL 
DJN LBL 
RET 
と な る 。 (PC-8001 に よる ) 
Аиа улс S do ы тетү а 


スク リー ン ・ エ ディ タ 


1B7EH (N) 5F92H (N88) 
レジ スタ : AF,B,C,D,E,H,L(N)(N88) 
スリー ンド ・ テ ディ イク より Wax 
Fares kohe. idt v cep 
押さ きれ た と き は キャ リー フラ グ (CY) を リ 
セッ ト し , ス トッ プ ・ キ ー の 場合 は セッ ト し 
で て も と る 。 ま EE ンジ スス タス 対 に は イン ジ 
ッ ト バ ッ フ ァ の 先頭 アド レス か ら 1 を 引い た 
値 が 入る 。 そ し て , デー タ の 最後 に は 0 が 
入る 。 
イン ジン トバ パッ シン ァ に つい て 
EC96H—ED95H (N) 
E9B9H —EABS8H (N88) 
E4510 77 3 A41: Cu sss 
っ て HL レジ スタ 対 に は EC95H (N) が 入 
っ て も どっ て くる と いう こと で ある 。 


1 行 キ ー 入 力 


1B8AH (N) 5FC8H (N88) 
レジ スタ : AF,B,C,D,E,H,L(N) (N88) 
スク リー ン ・ エ ディ タ と ほぼ 同じ 動作 を す 
る 。 た だ だし, 2, 3 異な る 点 が ある の で 注 
意 が 必要 で ある 。 そ れ は リスト 1 の プロ グ 
ラム で 実際 に 試し て ほし い 。 そう すれ ば よ 


《 分 か る と 思う 。 


だ と えば , その まま リタ ー ン キー を 押し compare SCREEN EDIT with LINE INPUT 
Kb, カー ツル を 動か し た り , 文字 を 入力 9C999H 
し た りす れ ば , その 差 が 分 か る だ ろう 。 な 2149C9 START: HL ,MSG1 CLS : PRINT 'screen edit." 
CDED52 52EDH 
5, スト ッ プ ・ キ ー を 押す と 抜け 出せ る 。 i CD22C9 ALPHA PRINT 'ABC...Z'; : LOCATE 5,1 
CD7E1B 1B7EH ; SCREEN EDIT 
D8 C IF STOP THEN RETURN 
CD33C9 PRINT PRINT DATA & KEY WAIT 
um 
お わり に 2159C9 HL ,MSG2 CLS : PRINT "line input." 
CDED52 52EDH 
CD22C9 ALPHA PRINT 'ABC...Z`; : LOCATE 5,1 
CD8A1B 1B8AH ; LINE INPUT 
: CD33C9 PRINT PRINT DATA & KEY WAIT 
一 般 的 な 使用 法 ほ し て は 1 行 入 力 は コマ nr E ont 
` > > а ч = а Зат = 
ンド な どの 受け 付け に , スク リー ン ・ エ ディ АРА” PRINT 'ABC..Z'; 
T TE LD - B,26 
タ は 修正 に 用 いる と よい だ ろう 。 0257H 
今回 は ここ まで 。 次 回 は グラ フィ ッ ク 関 | 
HL ,0602H LOCATE 5,1 
係 を 取り 扱う 予定 で す 。 (9EA63H) ,HL 
な お , 知り た いこ と や 質問 が あれ ば 
T > _ 9 CDEC52 52ECH PRINT KEY IN DATA 
Oh! FC 編集 部 まで 。 分 か っ て いる こと 215FC9 LD HL,MSG3 PRINT "hit any Кеу."; 
HAEC S š | CDED52 52EDH 
KEME SET SS U 37. cu x. "Ju CD759F аф 。 INPUTSCIO 
C9 
9C736372 12, “screen edit.” ,13,10,0 
65656E29 
65646974 
2E9D9A99 
8C6C696E 12, line input./,13,10,0 
6520696E 
カー ソル X 座標 E A64H EF87H 7975742E 


9D9A99 
= 4 f 9D9A6869 13,10,'hit any Кеу.^,@ 


7429616E 


` à 79206B65 
L Y 座標 EF86H 
カー ソル Y E A63H 86 792Е@@ 


アト リピ ュー トコ ー ド | EA5BH EF8CH 
E E C96H E9B9H 
XA vU — E D95H — EABAH 
CRT の 桁 数 E A65H EF89H 
CRT の 行 数 E A62H E F88H 
T 
カラ ーFFH 
の -« ) IH E6B9H 
CRT の モー ド | он EA6 
カー ソル 表示 フラ グ | EASFH E6A7H 


スク ロー ル 開 始 行 


H 
(1 —25) EA5EH E6B 0 
EASDH | E6BIH 
スク ロー ル 行 数 ( 0 一 24) (1 一 25) 
た だ し 0 で + 行 
ワー ェ タ エア 
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は じ め に 


前 回 の 内 部 解析 は どう で し た か 。 同時 に 
複数 機種 扱っ て いる の ぞ で 多少 混乱 し た り 
分 がり に く か っ だ りす る と 思い ます が , そ 
を は が まん し て くだ さい 。 

と ころ で 今回 は グラ フィ ッ ク 関 係 を 扱う 
予定 だ っ た が, 特集 と の 関係 で 次 回 と いう 
こと に させ て いた だ た だき, 今回 は 外部 周辺 機 
器 と の 入出 力 に つい て 述べ て いく 。 

外部 周辺 機器 ほし いっ て も 対象 と な る の は 
最も 5 メジャー な CMT (カセット ) と これ か 
ら の 普及 が 了 予想 され る ディ スク の 2 O, 

そん な わけ で まず , カセ ッ ト 関 係 の サブ 
ルー チン か ら 始 め よ 5 


N-BASIC 
(BASIC 用 ) 編 


CMT 出 力 セッ ト 


0C46H 

レジ スタ :AF 
セー タン コタ (ON に し で て, 82512 
22 


CMT の 出力 用 に 初期 設定 し た 後 , 時 間 待 
ち を し て か ら も どる 。 
な お ぉ 0C46H ょ より F1B9H に フッ ク す る 。 
OED, 
CALL Е1В9Н 
を 行う 。 ち な み に F1B9H は C9H (RET), 


CMT1 バ イト 出力 


0CDAH 
レジ スタ (AT 
A レ ジス タ に 入っ て いる デー タ を СМТ 
に 出力 する 。 た だ し , 事前 に CMT を 出力 
用 に 初期 化し て お 〈 必 要 が ある 。 
7 35, 0CDAH 4 り F20DH に フッ ク す る 。 


CMT 入 力 セ ッ ト 


0BF3H 
レジ スタ : AF 
モー ター・ リ レー を ON に し て 8251 を カ 
セッ ト の 入力 用 に 初期 設定 する 。 そし て カ 
セッ ト の キャ リア 信号 を 検出 し て か ら も ど 
е Da 
な お , 0BF3H か ら F1B6H に フッ ク す る 。 


CMT 1 バイ ト 入 力 


0C88H 
レジ スタ ` A, F 
CMT より デー タ を 1 バイ ト 入 力 し て , 


1984 年 1 月 掲載 


を その デー タ を A レ ジス タ に 入れ て も どる 。 
た だ し , 事前 に CMT を 入力 用 に 初期 化し 
て お く 必 要 が ある 。 

な お , 0C88H よ り F1A4H ヘ へ フッ ク し て 
v5, 


CMT 入 出力 終了 


0C2EH 
レジ スタ AF 
8251 を 終了 状態 に 設定 し て , 時 間 待 ち を 
行っ た あと に モー ター・ リ レー を OFF に 
Utd 3535s, 
ài, . フッ ク は し て いな い 。 


以上 で N-BASIC で 使用 され て いる 主 
な サブ ルー チン は 終わ り 。 使い 方 は た と え 
ば , デー タ を テー プ に セー ブ す る 際 に は , 

① CMT 出力 モッ ト 

デー タ 出 力 

@ CMT 入出 力 終了 
と すれ ば OK だ 。 ま た ロー ド の 際 に は , 出 
妃 の と ころ を 入力 に すれ ば よ We だ だ し, 
実際 の と ころ は も う 少 し 細か な , そし て 複 
雑 な 処理 が 必要 ど だ が , それ に つい て は 別 の 
機会 に て わし 述べ た いと 思う 。 

lis, 上 記 サ プル ー チ ン 中 ストップ キ 
ー が 押 き れ た り , テー ブリード エ ラー が 発 
生 し た りす る と Tape read error を 表示 し 
て BASIC イ ンタ プリ タ の コマ ンド 待ち に も 
どっ て し まう の て 使用 の 際 に は 注意 が 必要 
Тео 

次 に N-BASIC (モニ タ 用 ) 編 で ある 。 


N-BASIC 
(モニ タ 用 ) 編 


CMT デ ー タ 出力 


5ED9H 

レジ スタ : AFLB,C,H,L 

HL レジ スタ 対 の 示す アド レス か ら 6 DE 
レジ スタ 対 の 示す アド レス まで の メモ リ の 
ss を 。。 ス ター ト ア ドレ ス や チェ ッ ク サ 
ム も 含め た モニ タ の 出力 形式 で CMT に 出 
Jy 5. KIU き の ル ー チ ン で は 8251 の 
設定 や モー ター・ リ レー の ON/OFF は 行 
われ な い 。 

な お , 以下 の モニ タ 用 ルー チン の うち , 
た だ し 書き の な いも の も 同様 な の で 注意 し 
て は ほしい 38 


CMT デ ー タ ブロ ッ ク 出 力 


5F1BH 
レジ スタ : AiF,B,C,H,L 

C レ ジス タ の 示す バイ ト 数 の 値 と HL 
レジ スタ の 示す アド レス か ら 5C レ ジス タ の 
対 の 示す アド レス か ら C レ ジス タ の 示す バ 
イト 数 の み モ の デニ タタ 。 そし て チェ ッ ク 
サム を CMT に 出力 する 。 

な お , チェ ッ ク サ ム の 値 は バイ ト 数 と デ 
ー タ の 和 の 16 進 下位 2 桁 の 値 に マイ ナス を 
つけ た 値 で ある 。 


CMT 1 バイ ト 出 力 


5F2FH 

レジ スタ : すべ て 保存 
A レ ジス タ の デー タ 1 バイ ト を CMT に 
出力 する 。 


CMT デ ー タ 入力 


5F3AH 
レジ スタ : A,F,B,C,H,L 
マシ ン 語 モニ タ の 出力 形式 で セー ブ さ れ 
だ テー プ を メモ リ に 読み 込む か , まだ は メ 
モリ と 比較 する 。FF33H の 内 容 が 00H の と 
き 読み 込み , 00H 以 外 の と き 比 較 に な る 。 
この ルー チン だ け は 8251 の 設定 どけ を 行 
SS CCAS VTL, eR IO 
ON/OFF は 行わ ず , エ ラー 発生 時 は モニ タ 
の コマ ンド 待ち に も どる 。 


CMT 1 バイ ト 入 力 


5F9EH 

レジ スタ AF 
CMT か ら デ ー タ を 1 バイト 入力 し て , 
その デー タ を A レ ジス タ に 入れ て も どる 。 
た だし, エラ ー 発 生 時 は モニ タ の コマ ンド 
待ち に も どる 。 


こん な と ころ で N-BASIC 編 は 終わ b, 
参考 まで に , と きど き 困 る マシ ン 語 テー プ 
の アド レス を 調べ る プロ グラ ム ( リ スト 1 ) 
を の せ て お ぉ く 。 使い方 は モニ タ か ら 

* G8040 Q 
ЕАУ А Е аа 
読み 終わ る と アド レス を 表示 し て , ia 
マン ド 待 ち に も どる 。 


N88 
-BASIC 


CMT 出 力 セ ッ ト 


7F4DH 

レジ スタ : AFB 
8251 の 初期 設定 と モー ターON 動作 を 
行う 。 な お 、 ボ ー レ ー ト の 指定 方 法 は コー 
ル 前 に 行う 。F009H に FBH を 入れ る と 
1200 ボ ー, FAH を 入れ る と 600 ボ ー に な る 。 


CMT 1 バイ ト 出 力 


CMT に A レ ジス タ の デー タ 1 バイ ト を 
出力 する 。 ス トッ プ キ ー が 押 き る れる と デー 
タ 出 力 を 中 断 する 。 


CMT 出 力 を クロ ー ズ 


レジ スタ AF 
出力 を クロ ー ズ し た あと , し ば らく 待っ 
で 0 モー ター ザン ーー タ :ORE( ほ お る 5 


CMT 入 力 セ ッ ト 


7ED0H 
レジ スタ : AFHL 

8251 の 初期 設定 と モー ターON 動作 を 

行う 。 ボ ー レ ー ト の 指定 方 法 は 出力 モッ ト 

と 同じ で ある 。 

モー ター ON の あと , キャ リア 信号 を 検 

出す る と も と どる 。 


CMT 1 バイ ト 入 力 


レジ スタ : AF 
CMT か ら デ ー タ を 1 バイ ト 入 力 し て , 
A レ ジス タ に 入れ て も どる 。 ス トッ プ キ ー 
が 押さ る れ た と き は デー タ 入 力 を 中 断 す る 。 


CMT 入 力 を クロ ー ズ 


レジ スタ : AF 
入力 を クロ ー ズ し た 後 , モー ター・ リ レ 
ー を OFF に し て も どる 。 
以上 で カセ ッ ト 関 係 は 終わ り で ある 。 次 
は ディ スク 関係 だ 。 


2 


w 


ディ スク 編 


PC-8031 の 初期 化 


00D2H (N) 36E2H (N88) 

レジ スタ : A (N) A, Е, D (N88) 
ディ スク ドラ イブ を 初期 化し て , つなが 
っ て いる ドラ イブ 数 を A レジ スタ に 入れ て 


e 
се; 
©з 


° 


PC-8031 へ コマ ンド 送信 


017CH (N) 37C9H (N88) 
レジ スタ : すべ て 保存 (N) 
A,F (N88) 
ディ スク ユニ ッ ト に AA レジ スタ の コマ ン 
ド を 送る 。 送信 は ハン ド シ ェ イク に よっ て 
行わ れる 。 デー タ 送 信 と の 違い は ATN 信 
号 を セッ ト す る 点 だ け で ある 。 
な お , エラ ー 時 に は CY フラ グ を セッ ト 
boob る 。 


PC-8031 デ ー タ 送信 


0183H (N) 37D2H (N) 
レジ スタ : すべ て 保存 (N) 
F (N88) 
ディ スク ユニ ッ ト に A レ ジス タ の デー タ 
を 送信 する 。 エ ラー 時 に は CY フラ グ を セ 
> FL C€ 22, 


PC-8031 か ら の デー タ 受 信 


01E9H (N) A3847H (N88) 

レジ スタ : A,F (N)(N88) 
ディ スク ユニ ッ ト か ら 1 バイ ト の デー タ 
を 受信 し て , その デー タ を A レ ジス タ に 入 
れ て も どる 。 エ ラー 時 に は CY フラ グ を セ 
z k LUURE, 
4 


N 


PC-8031 と 入出 力 を 行う 
E 


0099H (N) 
レジ スタ :F (N) 
ディ スク ユニ ッ ト と の デー タ の や り と 5 
を 行う サフ シー チ シ ン 。 どの サフ ジテ チン は 
セッ ト す る パラ メー タ が 多い の で 注意 し て 
は ほしい 。 
A レジ スタ : 入出 力 す る セク タ 数 
B レ ジス タ : ト ラッ ク ナ ン バー 
両面 ディ スク の トラ ッ ク ナ ン バ ー は 次 
の 式 で 求め る 。 
実際 の トラ ッ ク ナ ン バ ーX 2 
FIAI AFI 
C レ ジス タ : 入出 力 開始 モク タナ ン バ ー 
DE レジ スタ 対 : 入出 力 す る アド レス 
(EDC5H) : 0 
(EDC6H) : ドラ イブ ナン バー (0—3) 


572, リード シン タク 8 ド で 男 ファ イイ の 区 
別 は 以下 の よう な フラ グ の 指定 で 行う 。 

ух +Z sS 02 @GV3e= 0 

ライ ト Zex CVE 1 


RNI 292 —7#%,6ү —0 

な お , エラ ー が 発生 し た と き は CY フラ 
が を セッ タ ト じ で で ほっ つて で る ご パラメータ 
を 正しく 与え な いと 大 切な ディ スケ ッ ト を 
破壊 する こと に な る の で くれ ぐれ る も 注意 し 


SI まい 。 
D: ドラ イジ 1 の ボー ジイ イス.0。 トラ ッ 
ク NE EES 1 — 162 С000Н 


—CFFFH に 読み 込む 。 
KOR AASV Z<; CY: 0 
LD (EDC5H), A 
LD (EDC6H), А 


LD B, A 
ENC, А 27А 1.0) 
р CA 
LD А, 16 
р DE, C000H 
CALL 0099Н 
JP 5C66H モニ タ へ 
Бя 
ディ スク と セク タ の 
入出 力 を 行う 
ес 


369AH (N88) 


レジ スタ : A,F,D,E,H,L 
前 述 の サブ ルー チン と は ほ ば 同じ 働き を 
する 。 た だ し , パ ラメ ー タ の 与え 方 が 異な る 。 
上 レジ スタ トラッ クン バー 
6 レジ スタ セクタ ナン バー 
HL レジ スタ : 入出 力 の アド レス 
EC85H SES g 603.) 
ERSDH RSA 7:0) 204256079) 
を その ほか に つい て は 前 述 の サブ ルー チ 
ン と 同じ で ある 。 
ドラ イブ の タイ プ に つい て 
0, 1 :DMA タイ プ 
2 SS RAZ 
3 : DS: ダイブ 


お わり に 


今回 の 内 部 解析 も , も う 終 わり で す 。 多 
少 か け 足 ぎみ な の と ころ が あり , 分 か り に さく 
いか も し れ ま せん 。 分 か り に くい 点 が あれ 
ば どん どん お 便り くだ きい 。 で きる だ け お 
el Or AE ALE er E 

次 回 に を 。 グラ フィック を や る つも り で 
FOTRAL Os 


SF98 
SF9E 


= 8040 
Ë 8041 
8044 
804? 
S 8049 
804B 
804E 
id 8050 
: 8052 
8054 
8056 
8059 
805B 
895E 
8061 
8063 
8065 
8067 
8069 
806B 
896D 
896F 
8971 
8073 
8075 
8077 
8079 
807B 
807D 
8080 
8081 
8082 
8085 
8086 
8087 
8088 
808B 
898C 
898F 
8090 
8093 
8094 
= 8095 
os 8098 
| 809B 
809E 

809F 

80A2 

89A5 


80A8 


80AD 


АЕ 
З2ЗЗЕЕ 
3A66EA 
E607 
F69C 
3266EA 
D339 
DB49 
E604 
2008 
CDF 19C 
30F5 
C3985F 
CD140D 
3E4E 
D321 
3E14 
D321 
DB29 
DB21 
E602 
28FA 
DB21 
E630 
20E? 
DB20 
FE3A 


CD2E0C 
C3665C 


we we we ee өө 


ORG 


ÉRROR: EQU 
INDATA:EQU 


CMTSRH:XOR 


LOOP2: IN 


LOOP1: 


LOOP9: IN 


20544F20 MESAGE:DC 


80AC 00 


END 


8040H 


SF 98H 
SF 9EH 


A 
(9FF33H ) , A 
A, (QEA66H) 
Q?H 

9CH 
(9EA66H ) , A 
(30H) , A 

A, (40H) 
94H 

NZ ,LOOP1 
9CF 1H 
NC,LOOP2 
ERROR 
0D14H 

A, 4EH 
(21H), A 
A,14H 
(21Н),А 
^,(20H) 
^,C21H) 
02H 
Z,LOOPO 

A, (21H) 
30H 
NZ,LOOP1 
A, (20H) 


HL , MESAGE 
っ 2EDH 

HL 

SEC9H 
9C2EH 
SC66H 


ge cM 


we wo wo мо Ce 9 ve өө» өө ve ve ve 99 ve WO ve 99 ve vo ve өө ve veo ve ws v ve We vo v» vo wo 99 өө BO ve we v9 BO we v» ve ve мо 99 өө wo wo өө өө 


MACHINE LANGUAGE TAPE ADDRESS SEARCH 
FOR PC-8001 & PC-8001mk2 
ON CASE OF ERROR JP ERROR & MON 


DATA READ MODE SET 


PORT39H 


MOTOR ON 


STOP CHECK 


8251 SOFTWARE RESET 


8251 MODE SET 


8251 COMMAND SET 


READ 8251 STATUS 


IF SYNDET=9 THEN LOOP9 
READ 8251 STATUS 


‘IF РЕ<>@ OR ТхЕ<>@ THEN LOOP1 


DATA READ FROM CMT 


IF DATA<>3AH THEN LOOP1 


DATA READ 


HL <= START ADRS & SUM CHECK 


DATA READ 


S.ADRS 


HL <= E.ADRS 


HL <= S.ADRS & (SP) <= E.ADRS 
PRINT HEX$(HL); 


PRINT " TO 
HL <= 


MOTOR OFF 
GOTO MON 


E. ADRS 
PRINT HEX$(HL); 


ГИН 
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ИШНЕН рс-з001МКП _ 


C-8001 


Hf T Ar 


LI 


1984 年 2 月 掲載 


は じ め に 
っ 


PC-8001MKII の グラ フィ ックス は , テ 
キス ト 画 面 が 160X100 ド ッ ト 8 @, 一 方 グ 
ラフ ィ ッ ク 画 面 が 640X200 ド ッ ト 単 色 ま だ 
は アル トリビュー トラ ー, Бат 8:320; 
200 ド ッ ト 4 色 と な っ て いま す 。 

この うち テキ スト 画面 の 方 は PC-8001 
編 で や る こと と し て 今月 は グラ フィ ックス 
画面 に つい て くわ し く 述 べ だ たい と 思い ます 。 


P ビ -8001MKII の 
BASIC 


МКП の BASIC は PC - 8001 の BASIC 
を 拡張 し た も の で す 。 を そし て BASIC の 拡 
張 に と も な い ワ ー ク エリ ア も 0Е600Н 
—0ЕЕЕЕН (8001 は 0EA00H —0FFFFH) 
と 1 K バ イト ほど 大 きく な り ま し た が ,」 実 
際 に 使用 る きれ て いる の は 0OE600H 
ー0E7FFH t 0EA00H —0FFFFH C 
0E800H —0E9FFH は 空き エリ ア で す 。 

0E600H—0E7FFH の ワー クエ リア は グ 
ラフ イッ クス や 8 インチ ディ スク で 利用 きれ 
て いま す 。 こ の うち グラ フィ ックス 関係 の 
主要 な も の を 表 1 に あげ て お きま す 。 以 下 
の 文中 に その 名 称 を 利用 し ます の で 見 て ぉ 
COCOS NO, 
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ボー ト 


IT, きっ を < PC-8001MKII の グラ フ 
ィ ッ ク 関 係 の I/O ポート, その 解析 結果 を 
E も ょ う 。 


グラ フィ ッ ク コン トロ ー ル ポー ト 
ポー ト ア ドレ ス 31H 


31H に 出力 し た 内 容 は PORT31 (E6C6H) に 
保存 きれ て いま す 。 


CG 
MODE 


4ROM 


[o] 


R|B GRPH | CLSL | MMODE 


4 ROM 4th ROM 選択 
0 : 4th ROM 選択 
1:N80-ROM 選択 
MMODE-— 2 =) =— FR 
0 : ROM モー ド 
1:64K RAM モー ド 
グラ フィ ッ ク モ ー ド と と カラー 指定 と の 関 
係 は マニ ュ ア ル を 参照 し て くだ きい 。 


c6 
mope | “RPH 


. CLSL | SCREENS 4 


0 I 0 SCREEN I, 0 00H 
0 SCREENO, 0 FFH 
0 SCREEN2, 0 OIH 


SCREEN 3, 0 02H 


DAETA 


G | R | B | カラー| SCREEN 命令 
pr ua | 

оо [о = SCREEN , ,0 

T + 

йс SCREEN , , 1 
| 

0 | 0 赤 SCREEN , , 2 

0 | に も ДО E OSCREEN l 3 

Офо | 0 & SCREEN , ,4 

(pe | シア ン SCREEN , , 5 

Tc eT 黄 SCREEN , ‚6 

ogg SCREEN , , 7 

カラ ー 指 定 


ос а ско е RC 
グラ フィ ッ ク VRAM 選択 
ポー ト ア ドレ ス 5CH 


この ポー ト に デー タ を 過 放 叶 る と, メモ 
リ の 8000H —0BFFFH 2? VRAM t- 9] b 
替わり ます 。 出力 する デー タ は 何で も か ま 
いま せん 。 
機械 語 な 6 

DISC 
で で お 3 


OUT (5CH), A 


メイ ン メモ リ 選択 
ポー ト ア ドレ ス 5FH 


この ポー ト に デー タ を 出力 する と, メモ 
J の 8000H —0BFFFH が メイ ン RAM に 
切り 替わり ます 。 出力 する デー タ は 何で も 
か まい ませ ん 。 機械 語 な ら 

D3 5F OUT (БЕН), A 
Z së 


2224177 
サブ ルー チン 


これ か ら が 本 来 の グラ フィ ックス 関係 の 
サブ ルー チン で す 。 こ の サブ ルー チン は Nso- 
ROM 中 の サブ ルーチン で すか ら , 使用 す 
る 前 に 

ЗА C6 Еб LD  A,PORT3I) 


F6 01 OR (01H 

ЕЗ DI 

SD CG E6- :ELD e PORTIN A: 
03-531 OUT (31H), A 
FB EI 


と し て Nso-ROM を 選択 し て て だ きい 。 

な お , 各 サ ブルー チン の パラ メー タ は ス 
クリ ー ン の モー ド (MODE) が 正しく 設定 
きれ て いる こと を 前 提 と し て いま す の で 注 
意 し て くだ きい 。 


グラ フィ ッ ク 画 面 ク リア 
7378H 


レジ スタ : A,F,B,C,D,E,H, 

フッ ウジ の 6064 ドカ ma SZ 
画面 の ビュ ー ボ ポー ト 内 を クリ ア し ます 。 

バッ ク グ ラウ ンド カラ ー は CMD 
COLOR の 第 2 パラ メー タ で BCOLOR 
(OE6CBH) に 記憶 きれ て いる コー ド で す 。 


グラ フィ ッ ク 画 面 に 点 を 打つ 
6 F27H 


Entry: 
XB HL レジ スタ 対 
Y 座 標 …… DE レジ スタ 対 
カラ ー コ ー ド … (COLOR) (E6DAH) 
セッ トモ ー ド …〔OPEMOD〕 (E6D9H) 
レジ スタ : すべ て 保存 
グラ フィ ッ ク 画 面 に 指定 され だ 色 と モ ー 
ド で 点 を 打ち ます 。 た だ ただし, ビュー 座標 は 
HE ST, 絶対 座標 に 基づい て いま す 。 
な お , (OPEMOD) と 機能 の 関係 は 以下 


00H | = PSET 
бн РВЕЗЕТ 
02H AND 
03H OR 
04H XOR 


PORTSI E6C6 


ー ト 3IH に 出力 し た 値 


ポ 


KMODE E6C7 漢字 の 表示 モー ド E 
FCOLOR E6CA フォ アグ ラウ ンド カラ ー 
BCOLOR E6CB バッ ク グ ラウ ンド カラ ー 
VIEWLT ECC. D ビュ ー ポ ー ト 左側 境界 値 
VIEWUP ЕСЕГЕ ビュ ー ポ ー ト 上 側 境界 値 
VIEWRT E6DO, 1 ビュ ー ポ ー ト 右側 境界 値 
VIEWDN E 6'D: 2,3 ピュ ー ポ ボー ト 下 側 境界 値 
XAXISO E6D4, 5 最後 の 点 の X 座標 
YAXISO Д ESD5, 7 最後 の 点 の Y 座 標 E 
MODE E6D8 スク リー ン モ ー ド 
ОРЕМОРр E6D9 ドッ ト を 打つ と き の 機 能 
COLOR E6DA ドッ ト を 打つ と き の 色 
| XAXISI E6DB, C ЕЕ 始点 の X 座標 
YAXISI E6DD,E 始点 の YEE 
XAXIS2 Е: Б:0ЈЕ:,: E.O 終点 の X 座 標 
WAITS 2 ESEI, 2 終点 の Y 座 標 
KCODE E6E5 表示 する 漢字 の コー ド 
XCENTR E6FA, B 円 の 中 心 点 の X 座標 
YCENTR EEC ED 円 の 中 心 点 の Y 座標 
RADIUS EG- EB =; F 円 の 半径 
SANGLE Е 700—3 円 弧 の 開始 角度 
EANGLE E 704~ 7 円 弧 の 終了 角度 
RATIO E708— B 円 の 縦横 の 比率 
BNDCOL E72E ペイ ント 時 の 境界 色 


表 1 ワー クエ リア 


л е ы RR 
グラ フィ ッ ク 画 面 に 線 を 引く 


7009H 
Entry : 
始点 文 座標 ………… (ХАХ151)(Е6ОВН) 
ра22 95 (YAXIS1)(E6DDH) 
終点 XX 座標 ……… (ХАХІЅ2)(Е6рЕН) 
ра 825 (YAXIS2)(E6E1H) 
TUS = aed) Ыры (COLOR) (E6DAH) 
ウッ シン スク SAFE 


グラ フィ ッ ク 画 面 に 線 を 引き ます 。 絶対 
座標 に 基づい て お り , 始点 や 終点 が ビュ ー 
ポー ト 外 で も 補正 され ます 。 し た が っ て 線 
が 引か れる の は ビュ ー ポ ー ト 内 だ け と いう 
c pA ELMAR) 
スト 1 に の せ て お きま す 。 


Sb 
グラ フィ ッ ク 画 面 に 箱 (B) を 描く 


728FH 


Entry: 
上 記 の 線画 ルー チン と 同じ 
レジ スタ : AF,B,C,D,E,H,L 
グラ フィ ッ ク 画 面 に 箱 を 描き ます 。 N80- 
BASIC の B オ ォ オプション に 相当 し ます 。 線 画 
は 前 述 の ライ ン ル ー チ ン を 利用 し て 4 本 の 
線 を 引き ます 。 


о E ASAE 
グラ フィ ッ ク 画 面 に 箱 (BF) を 描く 
72ЕЗН 


Entry: 
上 記 の 2 つの ルー チン と 同じ 


E6C6 


A999 
A993 
A995 


3AC6E6 
F691 


210000 


210000 
220ВЕ6 
21ЗЕ@1 
22DFE6 
210000 


BASIC!) A F. 
上 記 プ ログ ラム を モニ タ か ら 人 入力 後 , 実行 し て くだ さい 。 


100 “ 
318.4 
2206 
130 CLEAR 300,&H9FFF : 


PORT31: 


START: 


LINEEX: 


COLOR: 


ХАХ151: 
ҮАХ151: 
XAXIS2: 
YAXIS2: 


ORG @A000H 
EQU 9E6C6H 

LD А, (РОВТЗ1) 

1 

OUT (31H),A 
LO (PORT31),A 
EQU 7009H 

EQU 9E6DAH 
EQU 9@E6DBH 
EQU 9E6DDH 


EQU 9@E6DFH 
EQU 9E6E1H 


N89-ROM SELECT 


; LINE(X1 ,Y1 )-(X2。Y2 ) ,[ 上 COLOR] 


i0 
; 
LINE: 


LOOP1: 


LOOP2: 


COLOR MODE 9 › 


LD HL,9@ 

LD CYAXIS1),HL 
EOT HEI 

LD (YAXIS2),HL 
ш HL,9 

PUSH HL 

LD AL 

AND 3 


LD (COLOR),A 
LD (XAXIS1),HL 
ED — DE, 319 

EX DE,HL 

OR А 

SBC HL,DE 

PUSH AF 

LD (XAXIS2),HL 
CALL LINEEX 

POP АЕ 

POP HL 

INC HL 

JR — NZ,LOOP1 


LD HL,9 
LD (XAXIS1 ) ,HL 
EU. HEISE 


LD (XAXIS2),HL 
|n HI .A 

PUSH HL 

LD (YAXIS1),HL 
LD ^L 


AND 3 

LD (COLOR) , A 
LD... ОЕ» 199 
ЕХ DE,HL 

OR A 

SBC HL,DE 


LD (YAXIS2),HL 
PUSH AF 

CALL LINEEX 

POP AF 


JR NZ,LOOP2 


LINE(X1 ,Y1 )-(X2,Y2 ) , LCOLORJ 


140 CMD SCREEN 2,0,1 


159 DEF USR=&HA999 


169 END 


: CMD CLS 3 


: A=USR( 9 ) 


CONSOLE 0,25,0,0 


- 


Y1=9 
Y2=199 
FOR X1=9 TO 319 


X2-319-X1 


IF HL=DE THEN Zflg<=1 
LINECX1,Y12-(X2,Y2) , ECOLORJ 


NEXT X1 
X1=9 
X2=319 


: FAR Y1=A TN 199 


PO 


COLOR=Y1 AND 3 


Y2=199-Y1 


LINE(X1 ,Y1 )-(X2,Y2) ,[COLOR] 


NEXT Yi 


レジ スタ : AF,B,C,D,E,H,L 
グラ フィ ッ ク 画 面 に 箱 を 描き ます 。 N80- 
BASIC の BF オプ ショ ン に 相当 し ます 。 線 
画 は 画面 クリ アル ー チ ン の 一 部 を 利用 し て 
KN まお SD だ 7 が > この ルー チン に は 小さ る な 
バグ が ある の で す 。 た と えば , 

CMD LINE(700,0) —(750,199),1, BF を 
実行 する と 本 来 な ら 何 も 描 わ れ な い は ず で 
す が , 実際 に は 画面 の 右端 に 線 が 引か れ ま 
+, し か し 実用 上 は あま り 問 題 に な ら な い 
EES 


グラ フィ ッ ク 画 面 に 円 弧 を 描く 
7821H 


Entry: 
中 心 点 XX 座 標 ……〔XCENTRJ(E6FAH) 
Y 座 標 …… (YCENTR)(EGFCH) 


円 の 半径 ………… (RADIUS)(E6FEH) 
開始 角度 ………… (SANGLE)(E700H) 
Ai i (EANGLE)(E704H) 
縦横 の 比率 …………… (RATIO)(E708H) 


еке we (COLOR)(E6DAH) 
レジ スタ : AiF,B,C,D,E,H,L 
グラ フィ ッ ク 画 面 に 円 弧 を 描き ます 。 線 
画 は 絶対 座標 に 基づい て 行わ れ ま す 。 与え 
る パパ ラメ ー タ の うち , 角度 と 比率 は 単 精度 
数 値 で 与え ます 。 単 精度 数 値 の 求め 方 の 分 
か ら な い 人 は リス ト 2 を 参考 に し て くだ さる 


グラ フィ ッ ク 画 面 に 円 を 描く 
7825H 


Entry: 
上 記 の ルー チン と 同じ 。 た だ し , 開始 角 
度 と 終了 角度 に は 0 を 与え て くだ さい 。 
レジ スタ : AF,B,C,D,E,H,L 
グラ フィ ッ ク 画 面 に 円 を 描き ます 。 
その ほか の 点 は 上 記 ル ー チ ン と 同じ で す 。 


ペイ ント 動作 を 行う 
74EAH 


Entry: 

開始 点 X 座 標 …… (XAXIS1)(E6DBH) 
эв (YAXIS1)(E6DDH) 
ы (COLOR) (E6DAH) 
irai (BNDCOL) (E72EH) 


レジ スタ : AF,B,C,D,E,H,L 
ペイ ント 動作 を 行う ルー チン で す 。 フ パラ 
メー タ を セッ ト し て コー ル す る と N80= 
BASIC と 同じ 動作 を 行い ます 。 


画面 コピ ー を 行う 
7A9AH 


Entry: 
function…… A レジ スタ 
レジ スタ : A,F,B,C,D,E,H,L 
画面 コピ ー を 行い ます 。function と は 
Nso-BASIC の CMD COPY の オペラ ンド 
で 1 一 5 の いずれ か の 値 で す 。 ュ ピー 動 
作 中 に スト ッ プ キー が 押 き る れる と CY フラ 
EEE SEEDED 


[о TT 
グラ フィ ッ ク 画 面 に 漢字 を 表示 する 
7C94H 


у т к ied 
Entry: 
X BEBE een (ХАХІ51) (EGDBH) 
Y WEB ee (ҮАХІЅ1) (E6DDH) 
Жо сл суша (COLOR) (E6DAH) 
漢字 コー ド ………… (KCODE) (E6E5H) 
漢字 モ ー ド ……… [KMODE]〕 (E6C7H) 
(KMODE) ЕЕ 
00H JIS | 
x 
03H 1/2 
04H 1/4 


オペ モー ド …… (OPEMOD) (E6D9H) 
(オペ モー ド に つい て ドッ ト セ ッ ト ル 
ー チ ン を 参照 の こと ) 
漢字 を 表示 する ルー チン で す 。 パ ラメ ー 
タタ を セッ ト し て コー ル す る と と グラフィック 
画面 に 漢字 を 表示 し ます 。 


お わり に 
к з 


今回 の 内 部 解析 は どう だ っ た で し ょ うか 。 
PC-8001,PC-8801 の 方 に は つま ら な か っ 
だ た か も し れ ま せん が , 次 回 に は ぜひ と も や 
り た いと 思い ます 。 

それ で は 次 回 も よろ し く 。 


ORG 94999H 

E6C6 PORT31 :EQU 9E6C6H 

Ф 
A000 3AC6E6 START: LD — A,CPORT31) ; N80-ROM SELECT 
A003 F601 OR 1 
A005 F3 DI 
A996 D331 OUT (31H),A 
A008 32C6E6 LD (PORT31),A \ 
A99B FB EI 
279C CINT3: EQU 279CH ; HL => (FLOW ACC) 
27B3 CSNG: EQU 27B3H ; (FLOW ACC) => SNG 
F9A8 FLUACC:EQU 9F9A8H ; FLOW ACC 
6D4A CHKCOL:EQU 6D4AH 
7825 CIRCLE:EQU 7825H 

; f 
E6CA FCOLOR:EQU 9E6CAH ; FOREGROUND COLOR 
E6DA COLOR: EQU 9E6DAH ; COLOR 
E6FA XCENTR:EQU 9E6FAH ; INT 
E6FC YCENTR:EQU @Е6ЕСН 3 INT 
E6FE RADIUS:EQU 9@E6FEH ; INT 
E799 SANGLE:EQU  0E700H ; FLOAT 
E794 EANGLE :EQU  0E704H ; FLOAT 
E798 RATIO: EQU 9E798H ; FLOAT 

; CIRCLECX, Y), ERADIUS3, [COLOR] 

; , CSANGLE J, CEANGLE J, ERATIOJ 
A99C 21A000 CIRCLO:LD — HL,160 ; X <= 160:INT 
A99F 22FAE6 LD (XCENTR ) ,HL 
A912 216499 LD HL,199 $; Y <= 100:INT 
A915 22FCE6 LD (YCENTR ) ,HL 
A918 3ACAE6 LD A,(FCOLOR) ; COLOR <= FCOLOR 
A01B CD4A6D CALL CHKCOL 
A91E 32DAEó LD (COLOR),A 
А@21 210000 іо HL,9 ; 
A024 CD9C27? CALL CINT3 ; (FLOW ACC) <= 0:SNG 
A027 CDB327 CALL CSNG ; 
А@2А 21A8F0 LD  HL,FLUACC 
A02D 1100E7 LD DE,SANGLE ; SANGLE <= 0:SNG 
А@З@ 010400 LD  BC,4 
A033 EDBO LDIR 
А035 21A8F9 LD HL,FLMACC ; EANGLE <= 0:SNG 
A038 1104E? LD DE,EANGLE 
A93B 010400 LD BC,4 
A93E EDB9 LDIR 
A949 219199 LD HL,1 $; RATIO <= 1:SNG 
A943 CD2C27 CALL CINT3 
A946 CDB327 CALL CSNG 
A949 21A8F9 LD  HL,FLUACC 
A94C 1198E7 LD  OE,RATIO 
A94F 919499 LD BC,4 
A052 EDB9 LDIR 
A954 210000 ED: HL,9 ; FOR RADIUS=9 TO 95 STEP 5 
A957 ES LOOP: PUSH HL 
A058 22FEE6 D (RADIUS) ,HL 
A05B CD2578 CALL CIRCLE ; CIRCLE(X,Y),R,C,1 
AQSE E1 POP HL 
A95F 110500 EDS DE; 
A062 19 ADD HL,DE 
A063 EB EX DE,HL 
A064 216400 LD HL, 199 
A967 B? OR А 
A068 ED52 SBC HL,DE 
A96A EB EX DE,HL 
A96B 20EA JR | NZ,LOOP ; NEXT RADIUS 
A06D C9 RET 
A96E END 
BASIC リ スト 


上 記 プ ログ ラム を モニ タ か ら 入 力 後 , 実行 し て くだ さい 。 


100 * 


110 * 


1290 -. 


130 
140 
150 
160 
170 
180 


CLEAR 300,&H9FFF : CONSOLE 9,25,9,9 
CMD SCREEN 2,0,1 : CMD CLS 3 
FOR CL=1 TO 3 : CMD COLOR CL 
DEF USR=&HA999 : A=USR(9 ) 
NEXT CL 
END 


CIRCLE(X,Y),Cradius], [color], Csangle],Ceanglel, [ratio] 
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ウ ク ス 編 


1984 年 3 月 掲載 


は じ め に 
u v A vm 


$ C, 4 回 目 の 今回 は PC-8001 すなわち 


N-BASIC Ø, グラ フィ ックス 関係 の 命令 


に つい て 説明 し て いき ます 。 いきなり グラ 
フィ ックス 命令 た いき だ いと ころ で す が , 
画面 の 初期 設定 を し な いわ け に は いか な い 
DT, まず そちら 6 の 方 か ら 6 始め ます 。 


初期 設定 
グラ フィ ックス 命令 


WIDTH 命 令 
エン トリ アド レス : 0843H 


ul 
3 


î, BASIC の 命令 を 利用 する と き に は, 
1? WIDTH 89,25 
LD HL,DATA 
DEC 
RST 19H 
CALL 9843H ; WIDTH entry 


DATA: DC ‘80,25 
DB @ 


と し ます が , この WIDTH 命令 は 以下 の よ 
う 2 な 使い 方 も で きま す 。 
; WIDTH 80,25 


LO  B,80 
LO  C,25 
CALL 093AH 


093AH より 始ま る ルー チン は B レ ジス 
Z に 桁 数 ,C レ ジス タ に 行 数 を 入れ て コー 
ル す る と, 画面 設定 を 行い ます 。 保存 きれ 
る レジ スタ は HH と し の み で す 。 

また , 命令 の エン トリ アド レス を コール 
し た 場合 は , 全 レ ジス タ が 破壊 され ます 。 
21, HL viz АУ МХ 
ト の 終わ り の アド レス , すなわち 


(HL) =00H 
また だ は 
(НІ) = : (ЗАН) 


の アド レス を 指し て いま す 。 
EROTU UU s HRS RELIQUUM 
CONSOLER S 
エン トリ アド レス : 0884H 
REESE с ы REN 

の 命令 は 以下 の よう に 利用 する し か あ 
り ま せん 。 
; CONSOLE @,25,@,1 
DATA 


CALL 9884H 


.... 


DATA: DC “80,25,0,1” 
DB ё 


бесе суык рз реш Уу КЫ 生生 | 
COLORS S 
エン トリ アド レス : 0951H 

———— 

の 命令 $ ま た, リス ト 1 の よう な 方 法 
оо Жарлы Жы Бы EN 
エリ ア を 変更 する こと が で きま す が , 使用 
頻度 が 低 じ の で あえ ぇ て 必要 は な いと 思い ま 
Y s 


画面 クリ アル ー チ ン 
エン トリ : 045AH 
レジ スタ : A,F,B,C,D,E,H,L, 

eU) IRSE 


PRINT CHR$(12); 
と 同じ 動作 を し ます 。 


以上 で 初期 設定 は 終わ り 。 
D SA ス 命令 で す 。 


いよ いよ グラ 


PSET 命 令 
エン トリ アド レス : 06B8H 


PRESET 命 令 
エン トリ アド レス : 0705H 


上 記 の 2 つの 命令 は いち いち パラ メー タ 
を 文字 列 で 与え て いた の で は 使い も の に な 
り ま せん た ぷ を さき さ で リス 下 王 の よう に SB 
&PRESET 用 サブ ルー チン を 作り まし た 。 
使い 方 は HH レジ スタ に 双 座 標 ( 1 —160), A 
レジ スタ に Y 座 標 (1 一 100), A レジ スタ 
БУДА УУ Съ 
ます 。 こ れ で 何と か 使い も の に な り ま す 。 
し か し , 本 格 的 な 活用 に は も っ と 本 格 
的 に プログラム を 組む 必要 が あり ます 。 


POINT 命 令 
エン トリ アド レス : 070BH 


Ж 


この 命令 , 


は 関数 な の で 簡単 に は 利用 


で きま せん 。 そこ で , この 命令 を 参考 に し 
て リス ト 2 の よう な サブ ルー チン を 作っ て 
3 b s 

使い 方 は H レ ジス タ に 双 座 標 。 し レジ ス 
タ に Y 座 標 を 入れ て コー ル す る と , A レジ 
スタ に 00H ま た は FEFH を 返し ます 。 
ROSES 

LINESS 
エン トリ アド レス : 138FH 
ру = со р ON CR KE G DEMO 

この エン トリ アド レス を 利用 し て 線 を 描 
《 場合 に は , 与え を る パラ メー タ の 文字 列 中 
の — 記号 は 2 DH で は な 〈F 4 HH に 変換 
DDE RDC FI; PSE RIB 
B1H に , PRESET iz BOH に 変換 する こと 
も 忘れ な いよ うに 。 

な お , スタ ー ト ポイ ント と エン ド ポ イン 
ト は レジ スタ で 与え て 線 を 引 〈 場合 は , 次 
DE 5X i 

LINE (X1, Y1) 一 


— 


(X2, XI ESET 


w... 


ORG  0C800H 
ЕД 
C899 START: EQU $ 
[1 
; width & console & color 
[2 
093A WIDTH: EQU  093^H ; control crt uidth 
9884 CONSOL:EQU  0884H ; CONSOLE entry 
9951 COLOR: EQU @951Н ; COLOR entry 
C800 0650 ; LD B,80 ; WIDTH 80,25 
C802 9E19 LD C,25 ; 
C804 CD3A09 CALL WIDTH ; 
C807 215EC8 LD HL ,DTCONS ; CONSOLE 0,25,0,1 
C89A 2B DEC HL Н 
C80B D? RST 10H 1 
C89C CD8408 CALL CONSOL ; 
1 C89F 2167C8 LD HL,DTCOLR ; COLOR 7,0,1 
I C812 2B DEC HL ; 
C813 D? RST 10H ; 
1 C814 CD5109 CALL COLOR $ 
| C817 CD5A04 ; CALL 945AH ; PRINT CHR$(12); 
} pset & preset 
, 
264Е LD H, 79 
2E32 LD L,50 
9E91 LD [дә | ; C=1 
110001 LD DE,0100H ; DX=1 DY=0 
41 LOOP1: LD ВС ; В=С 
3E05 LOOP2: LD A,5 : А=5 
C5 PUSH BC 
D5 PUSH DE 
CD47C8 CALL PSET 5 PSERGHI-1,U-1,A) 
D1 POP BE 
TG LD А,Н ; X=X+DX (H=H+D) 
82 ADD A,D ; 
6? LD H,A ; 
7D LD A,L 
83 ADD A,E ; 
6F LD L,A ; 
Cy POP BG 
10EF DJNZ LOOP2 р B=B-1 : 
7B LD A,E ; SWAP DX,DY : 
ED44 NEG + (E-D : D--E) 
5А LD E,D ; 
БФ LD D,A ; 
ac INC. C ; C-C*1 


と 線 を 引く 場合 は , B レ ジス タ に (X1+ 
U, СЕ (Y 1+ 15, i 
Au (X 24), :E レジ スタ に (Y 21+ 
` 1), そし て PSET また は PRESET 以下 
の パラ メー タ は いつ も の と ちり 与え ます 。 
そし で て で, 13C8H や コー ル す る の で す 。 
くわ し いこ と は リス ト 3 を 参照 の こと 。 


GET @ [AS 5 
エン トリ アド レス : 1886H 


PUT@[AJ 命 令 
エン トリ アド レス : 1891H 


この 2 つの 命令 は 簡単 に は 利用 で きそう 
に あり ませ ん 。 し か し , あえ て それ を 試み 
まし た 。 た だ し , 通常 の エン トリ アド レス 
で は 使い 道 が な い の で , LINE 命令 と 同じ 
く レ ジス タ に 座標 を 与え る 方 法 を と り ま し 


pset & preset sample program 


IF B<>@ THEN LOOP2 
DX--DX 


た 。 こ の 場合 は GETFLG t GTORPT を 
正しく セッ ト し て か ら 18B2H を コー ル す 
る こと に な り ま す 。 以 上 の 結果 を リス ト 4 
に あげ て お きま す 。 


お わり に 
PE 3 


今回 の 内 部 解析 は いか が で し た か 。 いつ 
も より , サン プル プログ ラム を 多く の せ て 
み ま し た 。N-BASIC の ROM 内 ルー チン 
に は グラ フィ ッ ク 関 係 が ほとん ど (ぜん ぜ 
A?) 4, 一 部 を 利用 する と いっ た 手段 
を と ら 5 ざる を えま せん で し た 。 


し か し , これ を 参考 に し て グラ フィ ッ ク 
ス の マシ ン 語 に よる サポ ー ト を 実現 し て 
だ さい 。 で は , 次 回 も よろ し く 。 


31 


LD A,C ; 
FE64 сЕ 100 ; 
20E3 JR NZ,LOOP1 ; 
КЕТ ; 


IF C く <>199 THEN LOOP1 
END 


pset & preset subroutine 


y-coordinate of dot point in L (1-100) 
function code in А (0-15) 


; 
;  inputs:x-coordinate of dot point in H (1-160) 
; destorys:A,F,B,C,D,E 


. 


PLOTSB:EQU @ЕВ1СН 
YCOORD:EQU 9EDBBH 
XCOORD:EQU 9EDBCH 
FUNCCD:EQU 9EDBDH 


PRESET: 


ES PUSH HL 
C842 21B02F LD HL , 2FBOH ; OR B,CPL in Z89 code 
C845 1804 JR PSET1 
C847? PSET: 
C84? ES PUSH HL 
C848 212FB0 LD HL , 9B92FH ; CPL,OR В in Z89 code 
C84B 221DEB PSET1: BD (PLOTSB+1 ) ,HL 
C84E Е1 POP HL 
C84F 22BBED LD (YCOORD) , HL 
C852 32BDED LD (FUNCCD ) , A 
C855 CDD29B CALL 9BD2H ; erase cursor 
C858 CD6B97 CALL 976BH ; culculate address etc. 
C85B C3C606 JP 96C6H 


C85E 392C3235 DTCONS:DC '0,25,0,1°,0 
C862 2C302C31 


C866 99 
C867 372C302C DTCOLR:DC “?7,0,1 ,0 
C86B 3100 

C86D ç END 


ORG 9C799H 
point function subroutine 


inputs:x-coordinate of dot point in H (1-160) 
y-coordinate of dot point in L (1-100) 
outputs:IF A-0 THEN POINT(H,L )=0, ELSE POINT(H,L )=-1 

destorys:A,F,B,C,D,E 


YCOORD:EQU 9EDBBH 
XCOORD:EQU 9EDBCH 


; 
POINT: 
22BBED (YCOORD) , HL (XCOORD)=H : (YCOORD )=L 
976BH culculate address etc. 
^,0 
E if СҮ=1 or Z-1 then A=99H 
else A=9FFH 


z 
A 


"nu 
NNUU 
Ut ut 


13C8H LINECX1,Y1)-(X2, Y2) ,PSET , 2 


9B1H “PSET* 
2. 
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š 


; GET@ and PUT@ sample program 
; 


ORG 9C999H 

EF2C GETFLG:EQU 9EF2CH ; GET or PUT 
EF34 GTORPT:EQU 9EF34H ; А option 
сода GET: 

C900 AF XOR A 

C901 3234EF LD (GTORPT),A $ not GET@A 
C904 3D DEC A 

C905 322CEF LD (GETFLG),A ; GET@ set 
C908 060B LD B,11 ; X1 = 10 
C904 9E9B LD C,11 ; X2 = 10 
C90C 1614 LD D,20 i.Y1.z 19 
C99E 1E14 LD E,20 tY2 2 19 
C910 213DC9 LD HL ,DATA1 

C913. 2B DEC HL 

C914 D? RST 10H 

C915 CDB218 CALL 18B2H $; GET€(B-1,C-1)-(D-1,E-12,AX,G 
C918 PUT: 

C918 AF XOR А 

C919 3234EF LD (GTORPT),A ; not PUTQA 
C91C 322CEF LD (GETFLG) ,A ; PUT@ set 
C91F 969B LD B,11 ; X1 = 10 
C921 9E9B LD C,11 ・ ; X2 = 10 
C923 1614 LD D,20 ;-Y1 = 19 
C925 1E14 LD E,20 ; Y2 = 19 
C927 2143C9 LOOP: LD HL ,DATA2 

C924 2B DEC HL 

C92B 07 RST 10H 

GIZO C5 PUSH BC 

C92D D5 PUSH DE 

C92E CDB218 CALL 18B2H $; PUT6(B-1,C-1)-(D-1,E-1)2,AX,PSET 
C931 01 POP DE 

C932- -C1 POP BC 

C933 04 INC B ; X1=X1+1 
C934 9C INC C ; Y1=Y1+1 
C935 14 INC D ; Х2=Х2+1 
C936 1C INC E ; Y2=Y2+1 
C93? 7B LD AE 

C938 FE64 GP 100 

C93A 20EB JR NZ,LOOP $ if X2<>100 then LOOP 
C93C C9 RET 

; 

C93D 2C41252C DATA1: DC “ Ax,G 

C941 47 

C942 00 DB @ 

C943 2С41252С DATA2: DC SAN ES 

C947 B100 DB 0B1H,0 ; "PSET^ 

, 

C949 END 
100 ' GET and PUT sample 


110 
120 
138 
140 
150 
160 
170 


CLEAR 300,&HC8FF : DIM A%(199 ) 

WIDTH 80,25 : CONSOLE 0,25,0,1 : PRINT CHR$(12); 
FOR C=9 TO 4 STEP 2 
LINE(10*C,10*C)-(19-C, 19-C) ,PSET,B 

NEXT 

DEF USR-&HC900 : A-USR(0) 

END 
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ИШЕНИШ PC-6G001/VK II, 8801 ШИИ 


Nss ・BA 


鈴本 HEE 


97418 


1984 年 4 月 掲載 


グラ フイ > 


PC-8801 の グラ フィ ッ ク 関 係 の 店 令 の 
処理 ルー チン は , 通常 ROM4(4000H 
—TFFFH)O 裏 に 存在 す る ROM5(6000H 
ー7FFFH) の 中 に あり ます 。 よっ て , グラ フ 
ィ ッ ク 関 係 の サブ ルー チン を 利用 する 場合 
に は , КОМ5 を バン ク 切 り 替 を によって メ 
イン メモ リ 上 に 置か な けれ ば な り ま せん 。 

ROM5 を メイ ン メ モリ 上 に 置く に は 1/ 
O ポー ト 71H を 利用 し ます 。 こ の ポー ト は 
拡張 ROM を セレ クト する た め の ポ ー ト で 
各 ビ ッ ト が 各 バ ンク に 対応 し て ちり, 対応 
する ビッ ト が 0 と な っ て いる バン ク が セレ 
クト され ます 。 た だ し , すべ て 1 の 場合 に 
は ROM4 が セレ クト され ます 。 

ROM5 は バン ク 0 な の で , ビッ ト 0 の み 
を 0 と し た デー タ (OFEH) を この ポー ト に 
出力 すれ ば ROM5 が セレ クト され ます 。 

すなわち , 機械 語 で は , 


Р-Р 9 
ар TT 


ЗЕ ЕЕ Ір А, (ЕЕН 
passu OUT (71H), A 
と な る の で す 。 


また , この ポー ト は 読み 出し も 可能 で , 
0 に な っ て いる ビッ ト を 調べ る こと て で 現在 
セレ クト る れ て いる バン ク が 分 か り ま す 。 

この よう に し て ROMS を モレ クト し, 各 
命令 の エン トリ アド レス を 調べ た 結果 が 表 
1 て す 。 ま だ た だ,。 表 2 は 主 な グラ フィ ックス 
34 


関係 の ワー クエ リア で す 。 

な お , ПО ポー ト 71H へ むやみ に デー タ 
を 出力 し な いで くだ さい 。 動 作 は 保証 され 
Phs 


(ポート 


グラ フィ ックス 関係 の っ 主 な 1/O ポー ト 
と 各 ビ ッ ト の 意味 を 説明 し ます 。 図 の 中 で 
斜線 が 引か れ た ビッ ト は 無 意 味 び で ある こと 
を 示し ます が , 中 に は 重要 な も の も あり ま 
す 。 し だ が っ て , ワー クエ リア 内 に 保存 き 
れ て いる も の は , 関係 の な い ビ ッ ト の 値 を 
変化 きせ な いよ うに し て , ポー ト に 出力 し 
た あと は ワー クエ リア に を その 値 を 格納 し て 
《 だ さい 。 


OUT 31H 


(0E6C2H に 保存 ) 


7 


レル トト モル ルト 


25 LINE …… 専用 高 解像度 ディ スプ レイ 


使用 
0825111 :2017 
HCOLOR…… グラ フィ ックス 画面 使用 
0 : 白黒 モー ド 1 : カラ ー モ ー ド 


GRPH・…… 0: テキ スト 画面 の み 表 示 
1 : グ ラフ ィ ッ クス 画面 も 表示 


200LINE…… 専 用 高 解像度 ゲ ィ スプ レイ 


使用 
0 : 640x400 1 : 640x200 
IN 40H 
7 0 


VARAN | 


VRTC…… 垂 直 帰 線 信号 
0 : 表示 期間 1 : 垂直 帰 線 期間 
SHG…… 0 : 専用 高 解像度 ゲ ィ スプ レイ 
使用 
1 : ノー マル ディ スプ レイ 使用 


gym 
ds | CB esas s a 
WINDOW 6С55 
PSET 7E00 
PRESET 7DFB 
LINE | 7E8B 
CIRCLE 7906 
1 1 
РАІМТ 7674 
POINT 6E25 
VIEW 6AC6 
COLOR 79D6 
SCREEN | 698F 
COPY 7053 


RI 各 命令 の エン トリ アド レス 


OUT 40H 
(E6C1H に 保存 ) 


7 0 


z CERTA 


FLASH…… 1 : 高速 書き 込み モー ド 
0 : ノー マル モー ド 
СС 7-5 同期 コン トロ ー ル 
OAT 


OUT 53H 


T 


G2DS…… GVRAM 2 表示 
0 : 表示 1 : 表 示せ ず (以下 同じ ) 
G1DS…… GVRAMI 表示 
GODS…… GVRAMO 表示 
RIEC ЕЗ Е 
SCREEN0 
の と き は 無効 で す 。 


OUT 54H—5BH 
EE 


7 0 


е. 


カラ ー パ レッ ト 制 御 ポ ー ト 

54H—5BH が それ ぞ れ パレ ッ ト ナ ン バ 
ー0 一 7 に 対応 し て お り , 下位 3 ビッ ト の 
み 有 効 で , その 3 ビッ ト で カラ ー コ ー ド を 
旧 定 し ます 。 


OUT 5CH--5FH 


GVRAM と メイ ン RAM の バン ク 切 り 
替 を ん を コン トロ ー ル する ポー ト で す 。 な お 。 
出力 され る デー タ に は 意味 が あり ませ ん 。 

以下 に ポー ト 番 号 と セレ クト る れる バン 
ク の 関係 を 示し ます 。 

568-3 GVRAMO 

5DH……GVRAM1 

5892 СУКАМ2 


5ЕН Oo メイ ン RAM 
が それ ぞ ざれ C000H~FFFFH に バン タク 切 
り 替 え で セレ クト され ます 。 

た だ し , バン ク 切 り 替 え を 行う 際 に は 割 
り 込 み に 対 する 注意 が 必要 で す 。 割り込み 
ベク トル は メイ ン RAM 上 の F300H ~ 
F31FH に 存在 する か ら 5 です 。 し た が っ て , 
バン ク 切 り 替 えた に よっ て その アド レス に 
VRAM が 存在 する と き に 割り 込み が 発生 
する と , 飛び 先 が 保証 され ませ ん 。 VRAM 
を セレ クト する 際 に は 先 に 割り 込み を 禁止 
する 。 そして, メイ ン ВАМ に も ど し た ら 
許可 する と いう 過程 が 必要 で す 。 

機械 語 で は 

F3 DI 
D3 5C. OUT (5СН) А 


D3 5F OUT (5FH), A 


E6A6 640X400 モ ー ド 時 1 と な る 


E6CI ポー ト 40H に 出力 し た デー タ 


E6C2 ポー ト 3IH に 出力 し た デー タ 


FOIA,B スク リー ン 座 標 の X 座 標 


FOIC,D スク リー ン 座 標 の YER 


アジ ォ ア ダラ ウン E сс ss 


FUE メン Же ду EE 


ДЕДЕ ДРУ оо 
パレ ッ ト ナ ン バ ー 


LP (Last refererenced Point) 


F024.8 | の スク リー ン 座 標 の X EE 


F029, A 同 Y 座 標 


F02B,C ピュ ー ボ ポート 左上 の X 座標 


F02D, E ピュー ポ ボー ト 右 下 の X 座標 


F02F, 30 ビ ピュー ポー ト 左 上 の YER 


F031, 32 ピュ ー ボ ー ト 右 下 の Y 座 標 


F087 SCREEN の 画面 モー ド 値 


F088 SCREEN の 画面 スイ ッ チ 値 


| sewmoz ィ スプ レイ ペー ジ 値 


スク リー ン の 縦 の ドッ ト 数 


LP の ワー ルド 座標 の X 座標 
単 精度 実数 


同 Y 座 標 


ウイ ンド ー 左 上 の X 座 標 
単 精度 実数 


ウイ ンド ー 右 下 の X 座標 


ウイ ンド ー 左 上 の YER 


ウイ ンド 一 右 下 の Y 座標 


42 57747. 


FB EI 
と し ます 。 


プラ フィ ッ ク 
サブ ルー チン 


p 


グラ フィ ッ ク 画 面 ク リア 
6A94H 


レジ スタ : AF,B,C,D,E,H,L 

グラ フィ ッ ク 画 面 の うち アク ティ ブ な ペ 
ー ジ を クリ ア し ます 。 カ ラー モー ド に お 
て は 3 プレ ー ン と も クリ ア さ る され ます 。 


Entry: 
バッ ク グ ラウ ンド カラ ー パ レット ナン 
...ر‎ FO1F 
直線 を 引く 


7F47H 


レジ スタ .: А,Е,В,С,О,Е,Н,. 
グラ フィ ッ ク 画 面 に 線 を 引き ます 。 線 の 
種類 は ライ ンス タイ ル を 指定 する こと に よ 
b, 実線 どけ で は な く 〈 く 点線 な ども 可能 で す 。 
Entry: 
始点 の スク リー ン 双 座標 ……FO1A,B 
始点 の スク リー ン Y 座 標 …… FO1CD 
終点 の スク リー ン X 座 標 


ライ ンス タイ ル …… F025,6 
各 プ レー ン の 色 の デー タ 
(00H ま た は ЕЕН) 


GVRAMO(BLUE) 。  …… F036 
GVRAMI(RED) — 2. F037 
GVRAM2(GREEN)  --- F038 
AG 
FE (B) & Fi < 
7F0EH 


レジ スタ : AF,B,C,D,E,H,L 
グラ フィ ッ ク 画 面 に 箱 を 描き ます 。 線画 
に は 線 を 引 《 ルーチン を 利用 し て いる た だ た め , 

上 記 と 同等 の こと が で きま す 。 
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Entry : 
上 記 の 線 を 引 《 サ ブル ー チ ン と ほ ば 同 
じ で す が , 始点 を 左上 の 点 , 終点 を 右 下 
DICA Ed. uid, 

左上 の 点 の スク リー ン 又 護 標 


ORG 9E999H 
PSET & PRESET subroutine 


entrys: 
x-coordinate of point in BC 
y-coordinate of point in DE 
color palette code in Acc. 


U se se os e чо we so өө v oe 


destorys: 
none 
e F027,8 
um < SET: 3 
左上 の 点 の スク リー ン Y 座 標 uc push all registers 
ee F029, A н 

H. ў A, 9FEH 11111119b 
67433, (71H) ,A ROMS select 
II 64C9H vieu port check 

if out of vieu port then ERROR 


NC , ERROR 
AF 


AF 

66A9H 

C,ERROR 
CD1865 6518H 
CDD766 66D7H 


revive Асс. 


箱 (BF) を 描く 
7EB7H 


mask pattern set 

if palette code > 7 then ERROR 
culculate vram address 

1 dot set 


; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 
; 


11111111b 
mask ROM select 


pop all registers 


3EFF A,9FFH 
D371 (71Н),А 


レジ スタ : A,F,B,C,D,E 
グラ フィ ッ ク 画 面 に 内 部 の 塗ら れ た 箱 を 
描き ます 。 
Entry: 
前 述 の 線 を 引 《 サ ブル ー チ ン と は ほ ば 同 


じ で す が , 始点 を 左上 の 上 , 終点 を 右 下 の 


F1 AF 
E1 HL 
D1 DE 
C1 BC 
c9 


UE | 


т X vo А V 
点 と 考え ます 。 ま だ , ライ ンス タイ ル の бє ESB 
指定 は 必要 あ り ま せん 。 ; drau line sample 
Lo UCM p un Easa 010000  ' LD BC,9 ; X1 = 9 
5 : pui E083 ED431AF9 LOOP1: LD (9F91AH),BC ; (9F91AH) <= X1 
ペイ ント 動作 を 行う E087 79 LD AC ; ; CL = X1 mod 8 
E088 E607 AND 7 ; 
76B4H Е@ВА 217F02 LD  HL,639 ; 
E98D ED42 SBC HL,BC ; 
 — өө ээс. E090 dà Vu 
E090 44 LD  B,H ; X2 = 639 - X1 
< A E E091 4D ED CL ; 
レジ スタ : A,F,B,C,D,E E092 210000 о HL,e ; Y1 = 9 
E995 221CF9 LD  (@F91CH),HL ; (9F91CH) <= Y1 
グラ フィ ッ ク 画 面 上 の se: れ だ た E098 11C700 LD  DE,199 ; Y2 = 199 
1 画面 境界 色 で 囲ま れ た Е@ЭВ СОС5Е@ CALL LINE ; LINE (X1,Y1)-(X2,Y2),CL 
М @9Е C1 РОР ВС ; 
範囲 を 塗り つぶ し ます 。 E99F 03 INC BC ; X1 = X1 +1 
À EQA@ 20E1 JR — NZ,LOOP1 ; if X2 <> @ then LOOP1 
Entry: E9A2 110000 LD DE:9 ; Y1 = 9 
E9A5 ED531CF9 LOOP2: LD (9F91CH),DE ; (QFO1CH) <= Y1 
CALL 7939H E9A9 7B LD AE d i CL = Y1 mod 8 
СНУ еру Q — Е@АА E607 AND 7 ; 
て サー チ ポ イン E9AC 21C700 LD HL,199 ; 
実行 9) E9AF ED52 SBC HL,DE ; 
E9B1 D5 PUSH DE ; 
化し ます 。 そ し て E082 54 LD ПУН ; Y2 = 199 - Y1 
ч 3 SD LD E,L ; 
開始 点 の スク リー ン XX 座 標 E9B4 217F92 LD  HL,639 ; X1 = 639 
T E9B7 221AF0 LD (9@F91AH),HL ; (9F91AH) <= X1 
……BC レジ スタ E9BA 010000 LD BC,9 £ X2 = 9 
Р EeBD СОС5Е@ CALL LINE ; LINE (X1,Y1)-(X2,Y2),CL 
スク リー・ E9C9 01 POP DE ; 
開始 点 の スク リー ン Y 座 標 ЕӨС1 13 INC DE j Yi = ҮІ +1 
HE. 5 Е@С2 20E1 JR NZ,L00P2 ; if Y2 <> 0 then LOOP2 
DE レジ スタ E9C4 C9 RET 


タイ リン グフ ラグ …… Е056 
1 : タイ リン グ , 0 : 単色 ペイ ント 
領域 色 の 各 プ レー ン の デー タ 


LINE subroutine 


entrys: 
x-coordinate of start point in (0F01AH) 
y-coordinate of start point in (OFO1CH) 
x-coordinate of end point in BC 
y-coordinate of end point in DE 
color palette number in Acc. 


flee Фо чо we өө өз өө os өз ө эө өө 


5 destorys: 
単色 の 場合 は 塗る 色 の デー タ を タタ イ none 
TED A^ "SK E9C5 INE: 
y ング の 場合 iE b 始め 5 Ë à ト d Е@С5 C5 PUSH BC 3 push all registers 
E -. E9C6 05 PUSH DE ; 
イン の デー タ を 格納 する 。 E9C7 E5 PUSH HL ; 
ES E9C8 F5 PUSH AF ; 
境界 色 の 各 プ レー ン の デー タ E9C9 3EFE LD  A,9FEH ; 11111110b 
ЕӨСВ 0371 OUT (71H) ,A ; ROMS select 
...... ~ CD F OP AF $ revive Acc. 
35 sa Dx -—-— 人 : 
` ` ° ` 2 Ë 2 ; mask pattern set 
以下 は タイ リン グ ペ イン ト を 行う 場合 E9D2 3809 JR C,ERROR ; if palette No. > 7 then ERROR 
E9D4 21FFFF LD  HL,OFFFFH ; line style is 11111111b 


の み 必 要 で す 。 
タイ ルス トリ ング の 先頭 アド レス 
ee F04F ~50 
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(@F025H),HL 


A,9FFH 
(71H),A 
F 


NM MS | EeD7 2225Е@ 
タイ ルス トリ ング の 長き …… F057 E9DA CD477F 7F47H 
た だ し SCREEN 0 モー ド で は 3 バイ ト | ter 0371 

C あま すら E Eb EB 

バッ ク グ ラウ ンド スト リン グ の 先頭 ア 3 ESEE 3 

ドレ ス ……F054。 5 | Mam 
タイ ルス トリ ング の カウ ンタ ー 
se2 F058 


塗り 始め る ドッ トラ イン の パタ ー ン 
番号 (0 一) を 格納 し ます 。 


以上 が プロ グラ ミン グ 上 , 利用 で きそう ЗЕРЕ 
REBEN иф 
PC-8801 の グラ フィ ッ ク 命 令 は 強力 で „ев xo 
すか ら , ROM ルー チン は そう 簡単 に 利用 =s span 
で き な い か も し れ ま せん ね 。 そ を そこで, zo Í 22189 ; 
解析 結果 を も と に , サン プル プロ グラ ム を 213299 
作っ て み ま し た 。 リ スト 1 で は PSET ルー cro 
FY, リス ト 2 で は LINE ルー チン , そし ad 
て リス ト 3 で は その ほか の ルー チン を 利用 213ere 
С БЕ е 
CLEAR, &HDFFF I z 
を 実行 後 、 それ ぞ れ の リス ト を 入力 し ます 。 | COeE7F 
CUCIUPSET 3:7»v—3 v の CD3979 
BC レジ スタ … ス クリ ー ン 双 護 標 : ads 
DE レジ スタ … ス クリ ー ン Y 護 標 | Э256Б@ 


A レ ジス タ … フ パレ ッ ト ナ ン バ ー 
を セッ ト し て , 0Е000Н を コー ル し ます 。 
LINE ルー チン の サン プル , リス ト 2 は 
SCREEN 0: DEF USR=&HE080t : 


A-—USR(0) 
と 入力 し て 実行 し ます 。 23 
e, リ スト ド 3 は: CDB476 
SCREEN 0:DEF USR=&HE100# : А 
A=USR(0) 


と し て くだ さい 。 画面 消 去 後 , 画面 中 央 に 
箱 を 描き , その 中 を ペイ ント し ます 。 


お わり に 
E v O 3 


グラ フィ ックス 関係 は 今回 で 終わ り で す 。 
次 回 か ら は 数 値 関係 の サブ ルーチン に つい 
て 解析 し て いき ます 。 

で は , 次 回 も よろ し く 。 


9E199H 


A, OFEH 
(71H) ,A 


A 
(@F@1FH),A 
6494H 


HL ,100 
(@F@1AH),HL 
(0F027H) ,HL 
HL ,59 
(9F91CH) ,HL 
(9F929H) ,HL 
BC, 300 

DE ,159 

HL , 9FFFFH 
(9F925H) ,HL 
HL , 9F936H 


(9F956H) ,A 
HL , 9F936H 


76B4H 


A,9FFH 
(71Н),А 


$ draw а line 


11111111b 
mask ROM select 
pop all registers 


11111110b 
ROMS select 


clear graphic screen 
palette No. <= 9 


CLS 2 
drau a box 


; X1 <= 100 


; Y1 <= 50 


X2 <= 300 
Y2 <= 150 
line style 


line color 


3 blue ON 


red ON 


; green ON 
; LINE(X1,Y1)-(X2,Y2),7,B 


$; not tiling 
$; area color 


; blue ON 


red OFF 


3 green OFF 
; boundary color 


blue ON 
red ON 


; green ON 


PAINT(X,Y),1,7 
11111111b 


; mask ROM select 
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— РС-8001 /MK IT, 0001 attin aiaa 


鈴木 輝彦 


これ 


1984 年 6 月 掲載 


は じ め に 
Eu 


AH, å T ЛЬ S ETO 
だ た だ きま し だ た 。 ど う も すみ ませ ん 。 今回 は 
お 約束 どおり , 数 値 関係 に つい て 説明 し て 
いき ます 。 


数 値 に つい て 
PF X — —9 


「 数 値 」 と いう 言葉 を ここ で は 変数 の 値 の 
こと , ある い は BASIC イ ンタ プリ ンタ 内 
部 に な ける 数 値 表 現 の こと と 定義 し ます 。 
N-BASIC, N。。-BASIC で 扱う こと の で 
きる 数 値 変数 に は 整数 型 変数 , 単 精度 実数 
型 変数 、 倍 精度 実数 型 変数 の 3 種類 が あり 
$033 
この よう に 3 種類 の 数 値 が ある た め , * 
な る 型 の 数 値 の 計算 を まとも に 行なう と す 
$t, 4 則 演 算 だ け で 
3X3X4 ニ =36 
と な り , 実に 36 種 類 ち も の サブ ルー チン が 必 
ЕЛО. そこ で , 実際 の 計 
算 で は お 互い の 数 値 を 比較 し , より 精度 の 
高い 数 値 へ 型 を 変換 後 。 計算 を 行い ます 。 
そう すれ ば 
3х4=12 
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と な り , 12 種 類 で すむ わけ で す 。 た だ し 型 
変換 用 の サブ ルー チン は , 

3x2=6 
t 6 種類 が その ほか に 必要 と な り ま す 。 だ た 
と えば, 変数 A を 整数 型 変数 , 変数 B を 単 
精度 実数 型 変数 , そし て 変数 C を 倍 精 度 実 
数 型 実 数 と する と , 

С=АхВ 
を 計算 し 代入 する に は 次 の 手順 を 必要 と し 
ます 。 ま ず 変 数 A の 値 を 整数 型 か ら 単 精度 
実数 型 へ と 変換 し , 単 精度 実数 型 に よる 乗 
算 を 行い は ます 。 そして, その 結果 を 倍 精 度 
実数 型 へ と 変換 し て , 変数 C に 代入 し て 終 
TTR 


変数 の 構成 
к 1 


e 整数 型 変数 

整数 型 変数 は 一 32768 一 32767 の 間 の 整数 
値 を と る 変数 で . その 表現 に は 2 バイト が 
必要 で す 。 
@ 単 精度 実数 型 変数 

この 変数 は 仮数 部 3 バイ ト 指 数 部 1 バイ 
ト の 計 4 バイ ト を 用 いて 表現 され , その 精 
度 は 6 桁 で す 。BASIC で 使用 され る 変数 の 
基本 型 は この 型 で す 。 
e 倍 精 度 実数 型 変数 

この 変数 は 前 述 の 単 精度 型 よ り 精 度 が 高 
6, その 精度 は 16 桁 と な っ て いま す 。 を そし 
C, 使用 バイ ト 数 は 仮数 部 7 バイト , 指数 
部 1 バイ ト の 計 8 バ イト で す 。 


実際 の メモリ へ の 格納 の 方 法 に つい て は 
図 1 を 参照 し て くだ きい 。 


演算 時 の 数 値 
к 2 


BASIC イ ンタ プリ ンタ 内 部 に お ける 実 
際 の 演算 は 数 値 を レジ スタ ある い は 
Floating accumulator (以後 FACC Ł i 
す ) と 呼ば れる メモ リ 中 に 格納 し て 行い ます 。 

FACC に 格納 され る 数 値 は 図 2 の よう 
な 形 に な っ て いま す 。 


整数 型 数 値 の 演算 
к S 


FACC の デー タ を 整数 型 に 変換 

エン トリ アド ンス : 277FH (№ 

21A0H(N88) 

FACC の デー タ を 整数 型 数 値 に 変換 し 
ます 。 もし, FACC の デー タ が 文字 列 だ っ 
た 場合 は Type mismatch の エラ ー を 発生 
し ます 。 ま た だ , FACC の デー タ が 整数 型 数 
値 で 表せ る 範囲 を 越え て いる 場合 は Over 
flow エラ ー を 発生 し ます 。 

な お , 変数 結果 は FACC だ け で は な く 〈, 
HL レジ スタ 対 に も 格納 し て も どり ます 。 

整数 型 数 値 の 加算 を 行う 

エン トリ アド ンス : 28DDH (N) 

233AH (N88) 


整数 型 数 値 の 加算 を 行い ます 。 演算 は 
HL=DE+HL (いずれ も レジ スタ タ 対 ) 
と いう よう に 行わ れ , 結果 は FACC に も 格 
納 さ れ ま す 。 た だ し , 結果 が 整数 型 数 値 と 
し て 表せ な い 場 合 は FACC に 単 精度 実数 
型 数 値 と し て 格納 され , HL レジ スタ 対 の 
値 は 意味 を 持ち ませ ん 。 
整数 型 数 値 の 減算 を 行う 
エン トリ アド ンス : 28D2H (N) 
232FH (N88) 
整数 型 数 値 の 減算 を 行い ます 。 演算 は 
HL-DE-HL (いずれ も レジ スタ 対 ) 
と いう よう に 行わ れ , 結果 は FACC に も 格 
納 さ れ ま す 。 結 果 が 整数 型 数 値 び 表せ な か 
っ だ 場合 は 加算 時 と 同様 に な り ま す の で 注 
意 し て くだ さい 。 
整数 型 数 値 の 乗算 を 行う 
エン トリ アド ンス : 28FDH (N) 
235AH (N88) 
整数 型 数 値 の 乗算 を 行い ます 。 演 算 は 
HL-DEXHL (いずれ も レジ スタ タタ 対 ) 
と いう よう に 行わ れ , 結果 は FACC に も 
格納 され ます 。 結果 が 整数 型 数 値 で び 表 せな 
か っ た 場合 は 加算 時 と 同様 に な り ま す の で 
注意 じ で < くだ さい 。 
整数 型 数 値 の 除算 を 行う 
エン トリ アド レン レス : 2950H(N) 
23ABH (N88) 
整数 型 数 値 の 除算 を 行い ます 。 演算 は 
HL=DE+HL (いずれ も レジ スタ 対 ) 
と いう よう に 行わ れ , 結果 は FACC に も 格 
納 き れ ま す 。 だ だ し , HL レジ スタ 対 の 数 値 
が 0 で あっ た 場合 は Division by zero の エ 
ラー を 発生 し ます 。 


e 整数 型 数 値 


FACC 十 4 下位 8 ビット 
FACC 十 5 上 位 8 ピッ ト 


e 単 精度 実数 型 数 値 


2 FACC へ の 格納 方 法 


Disk version LApr 24,19821 

Hou many files(0-15)? 

NEC N-88 BASIC Version 1.0 
Copyright (C) 1981 by Microsoft 
45530 Bytes free 

Ok 

ABX-123:CD! 24567:EFG8-89012345 
0 


k 
? HEX$(VARPTR(ABX)) 
B221 


Ok 変数 の 型 


h コ db219 ,b23f е 3 
B210 90 38 EE 51 90 ЗВ EE 06 0B ЗЕ ЕЕ 06 ав|@2|41 42 
3 文字 以上 の 場合 , 残り の 長 さ を 示す 


変数 の 弄 — PTE 
B229 eqe egle4[ss 44||egllee вв ee sgleall45 adfer 区 | 


変数 の 値 変数 名 “CD” 一 変数 の 値 


B239 00 99 99 20 OF C? 29 9B| 04 4D 4F 00 99 ве OO өе 
一 変数 の 値 


変数 名 ^EFG* 


Two surface disk version 上 29-Sep-1981] 
Hou many files(9-15)? 

NEC PC-8991 BASIC Ver 1.2 

Copyright 1979 (C) by Microsoft 


Ok 
ABX-123:CD! 24567 :EFG4-89012345 
Ok 

? HEX ま (VARPTR( AB ) ) 

8926 

0k 

mon 


08020 , 893F 変数 の 弄 as 


z 
8020 @@ өө өө [o2 44 a3|[ee Be eE sp [8] 
= TESO 変数 の 値 


数 名 "AB Zr e CD" 


8030 99 BA 00 20 OF Ст 29 9В| 64 31 00 48 80 6E 
ELI 


変数 名 “EF” 


数 の 型 


x 


N88-BASIC e 倍 精度 実数 型 数 値 N-BASIC N88-BASIC 


仮数 部 最 下 位 8 ビッ ト FOA4H EC3DH 
ん 


F0A5H EC3EH 
F0A6H EC3FH 
F0A7H EC40H 
F0A8H EC4IH 
FACC+5 F0A9H EC42H 


/ 
FACC+6 仮数 部 最上 位 8 ビッ ト FOAAH EC43H 
FACC+7 指数 部 8 ピット FOABH EC44H 


EABDH FACTYP 


EC4IH FACC 
EC42H FACC+I ү 227 еи 


FACC+4 
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PRINT 


INPUT 


"number 


INPUT 'number 
PRINT 


PRINT 
PRINT 
PRINT 


RUN 


"number 
"number 
"number 
PRINT 'number 


number 
number 
number 
number 


*;N1+N2 


= *;N1/N2 


SFC8 
26BC 
280@ 
2214 
20E8 
1DEA 
10Е6 
1F53 
1FB? 
EC3D 


E999 
E999 
E993 
E996 
E997 
E99A 


21A6E9 
CD4BE9 
D8 

11BCE9 
CD67E9 


21B2E9 
CD4BE9 
D8 

11C9E9 
CD67E9 


3E2B 

CD79E9 
CDEA1D 
CD9FE9 


3E2D 

CD79E9 
CDE61D 
CD9FE9 


3E2A 

CD79E9 
CD531F 
CD9FEG 


3E2F 

CD79E9 
CDB71F 
CD9FEQ 


CD69E9 
3E3F 
CD2AE9 
CDC8SF 
D8 

23 
CDBC26 
CD1422 
B? 

c9 


2141EC 
010400 
EDB9 
C9 


F5 
21A6E9 
CD69E9 
F1 
СО9АЕВ 
21B2E9 
CD69E9 
3E3D 
CD2AE9 


21C9E9 
1141EC 
919499 
EDB9 


ORG 


LININP:EQU 
CNVNUM: EQU 
CNVSTR:EQU 
CSNG: EQU 
SMOVE: EQU 
SADD: EQU 
SSUB: EQU 
SMUL: EQU 
SDIV: EQU 
FACC: EQU 


SINGLE: 
LD 
CALL 
RET 
LD 


NUMINP : 


EDSBBCEQ ' 


ED4BBEE9 
C9 


9E999H 
N88-BASIC 


SFC8H 
26BCH 
28D0H 
2214H 
20E8H 
1DEAH 
1DE6H 
1F53H 
1FB7H 
9EC3DH 


HL ,MESAG1 
NUMINP 

C 

DE , NUMBR1 
TRANS1 


HL , MESAG2 
NUMINP 

c 

DE ,NUMBR2 
TRANS1 


A, + 
TRANS2 
SADD 

PRTNUM 


Ау, 
TRANS2 
SSUB 
PRTNUM 


A, w 
TRANS2 
SMUL 
PRTNUM 


ñ | 2 
TRANS2 
SDIV 
PRTNUM 


А,1@ 
18H 
SINGLE 


PRTMSG 
A, 7 
CHRASP 
LININP 
C 

HL 
CNVNUM 
CSNG 

^ 


A,CHL) 
^ 

Z 

18H 

HL 
PRTMSG 


HL,FACC+4 
BC,4 


AF 

HL , MESAG1 
PRTMSG 
AF 

CHRASP 

HL , MESAG2 
PRTMSG 

A, =” 
CHRASP 


HL , NUMBR2 
DE ,FACC+4 
BC,4 


DE, (NUMBR1 ) 
BC, (NUMBR1*2) 


N-BASIC 


1B8AH 
2BBEH 
2D22H 
27B3H 
26BDH 
2412H 
249FH 
2541H 
259CH 
9F9A4H 


string is “number 1 `° 
input number 
if stop then return to basic 


transfer from FACC to buffer 


string is "number 2 


; input number 
; if stop then return to basic 


; subtraction .... 


transfer from FACC to buffer 


addition 


multiplication ... 


division ..... 


; line feed 


goto double 


; Print string(from HL) 


$ print °? ° 


; line input 


if stop then return 


; convert to number 


convert to single precision 


if A=0 then return 


print chr$(A); 


transfer from FACC to buffer 
HL <= top of FACC + 4 


On 
5 


print 'number 1 


Print chr$(A);" `; 


Print 'number 2 '; 


print EF 


transfer from buffer 2 to FACC 


transfer from buffer 1 to regist 


単 精 度 実数 型 数 値 
の 演算 


FACC の デー タ を 単 精度 実数 型 に 変換 
エン トリ アド ンス : 27B3H(N) 
2214H(N88) 
FACC の デー タ を 単 精度 実数 型 数 値 に 
変換 し ます 。 も し , FACC の デー タ が 文字 
列 ど っ た 場合 は Type mismatch = エラ ー を 
発生 し ます 。 
FACC の 単 精度 実数 型 数 値 を 
BCDE レ ジス タ に 移動 する 
エン トリ アド ンス : 26BDH (№ 
20E8H(N88) 
FACC の 単 精度 実数 型 数 値 を BCDE v 
ジス タ に 移動 し ます 。B, C, D, E, H, LO 
6 レジ スタ が 破壊 され ます 。BCDE レジ ス 
タ へ の 数 値 の 格納 順序 は E レジ スタ に 仮数 
部 下位 8 ビッ ト , D レ ジス タ に 仮数 部 中 位 
8 ビット, C レ ジス タ に 仮数 部 上 位 8 ビ ッ 
ト , そし て B レ ジス タ に 指数 部 8 ビッ ト と 
いま の 5 に が の ます 5 
単 精度 実数 型 数 値 の 加算 を 行う 
エン トリ アド レス : 2412H(N) 
1DEAH (N88) 
単 精度 実数 型 数 値 の 加算 を 行い ます 。 
演算 は 
(FACC) =BCDE v Z A 4 + (FACC) 
と いう よう に 行わ れ ま す 。 
単 精度 実数 型 数 値 の 減算 を 行う 
エン トリ アド ンス : 240FH (№ 
1DE6H (N88) 
単 精度 実数 型 数 値 の 減算 や 行 いま す 。 
演算 は 
(FACC) ニ BCDE レジ スタ ー (FACC) 
と いう よう に 行わ れ ま す 。 
単 精度 実数 型 数 値 の 乗算 を 行う 
X NU SN VEA--254bH(N) 
1F53H(N88) 
単 精度 実数 型 数 値 の 乗算 を 行い ます 。 
演算 は 
(FACC) =BCDE Z A Z x (FACC) 
АПЫ ЭЖ GE ER ai ЖА 
単 精度 実数 型 数 値 の 除算 を 行う 
エン トリ アド ンス : 259CH (N) 
1FB7H (N88) 


RST 18H print chr$CÀ); 単 精度 実数 型 数 値 の 除算 を 行い ます 。 
print ° '; 演算 は 
PRTNUM: PODN deber da PADS (FACO) - BCDE v Z A 2 + (FACC) 


CALL CNVSTR 


CALL PRTMSG i と いう よう に 行わ れ ま す 。 も し , FACED 


бєѕлоз: 数 値 が 0 で あっ た 場合 , N-BASIC は Divi- 
Ee  - ' sion by zero の エラ ー を 発生 し ます が , Nas 
65722031 


2999 -BASIC は 


MESAG2: 
6E756D62 DEFB “number 2 ^,0 /0 


65722032 
(95 NUMBRI : ; number 1 buffer を 表示 し , 除算 結果 と し て , 倍 精 度 実数 弄 
T ; number 2 buffer 数 値 の 最大 値 を 与え ます 。 
; 単 精度 実数 型 数 値 す サブルーチン の 利用 例 
と し て リス ト 1 に BASIC プロ グラ ム , V 
スト 2 に その BASIC プロ グラ ム と 同等 の 
マシ ン 語 に よる プロ グラ ム を 示し ます 。 


"number 1 *;N1# 
Т 'number *;м2%# 


*;М1#+М2# 


ien 倍 精度 実数 型 数 値 
* ;N18xN28 
i: 3N1#/N2# а 


倍 精度 実数 型 数 値 の 演算 は 数 値 が 8 バイ 


"number number 
"number number 
"number number 
"number number 


n" n nw 


mu さく ト に よっ て 表現 きれ て いる の で , レジ スタ 
Lo ар + で は 数 が 足り ませ ん 。 よ っ て , FACCOU 
LININP:EQU 5FC8H ; 1B8AH AE 
RES ET か に も う 1 つ っ サブ FACC& 呼 ば れる 
GADO: EGU 2424H ; 29CAH FACC と 同様 の メモ リ を 使用 し ます 。 
CUBO T : 
DDIV: EQU 2629H ; 2B37H サ プ FACC の アド レス は , 
SUBFAC EQU 9EC4AH 9F9AEH N-BASIC: FOAEH~FOB5H 
21A2E9 LD HL,MESAG1 ; string is "number 1 ` Nas-BASIC : ЕС4АН —ECBIH 
Saka i Ms ха, return to basic Ë な 2 T e š 3. 
CO67E9 TRANS1 eee сени FACC の デー タ を 倍 精 度 実数 型 に 変換 
DABE NUMINE 22 E E E エン トリ アド レス : 27DEH (N) 
оаа РА ; if stop then return to basic 223EH (N88) 
CD67E9 TRANS1 ; transfer from FACC to buffer Ё 
OPES H : FACC の デー タ を 倍 精 度 実数 型 数 値 に 
CO2424 on 変換 し ます 。 bL, FACC の デー タ が 文字 
E e s 列 だ っ た 場合 は Туре mismatch エラ ー を 
CD1D24 | 発生 し ます 。 な お , FACC の デー タ が 小数 
e 点 以下 を 含む 場合 は 誤差 に 注意 し て 《 だ き 
CD7eE9 ; (> 
CD5325 ° 
CDA2E9 ; T 
: 倍 精度 実数 型 数 値 の 加算 を 行う 
ЕА TRAN і エン トリ アド ンス : 29CAH (N) 
CD2926 division 
CDA2E9 PRTNUM ; 2424H(N88) 
OF iw 2 3 倍 精度 実数 型 数 値 の 加算 を 行い ます 。 
18B5 DOUBLE ; goto double に 
NUMINP: А | 演算 は 
CD69E9 CAL сете ; print string(from HL) (FACO) = (FACC) X (サブ FACC) 
CHRASP print '? '; = A T 
LININP line input と いう ость 395 
c ; if stop then return д м 
лам ; convert to number 倍 精度 実数 型 数 値 の 減算 を 行う 


CDBL ; convert to double precision 


エン トリ アド レス : 29C3H(N) 
241DH (N88) 
倍 精 度 実数 型 数 値 の 減算 を 行い ます 。 
41 


42 


E969 

E969 7E 
E961 BZ 
E962 C8 
E963 DF 
E964 23 
E065 18F9 


E067 

E067 213DEC 
E96A 010800 
E96D EDB9 
E96F c9 


E979 

E979 F5 
E071 21A2E9 
E974 CD69E9 
E977 F1 
E078 CD9DE9 
E97B 21B5E9 
E97E CD69E9 
E981 3E3D 
E083 CD2DE9 


E986 21BFE9 
E089 113DEC 
E98C 919899 
E98F EDB9 


E091 21C7E9 
Е@94 114AEC 
E097? 010800 
E09A EDB9 
Ee9c c9 


E9A1 C9 


E9A2 

E9A2 CDD928 
E@A5 CD69E9 
E9A8 C9 


E9A9 

E9A9 9D9A 
E9AB 6Е756062 
E9AF 65722931 
E9B3 2999 
E9B5 

ЕӨВ5 6Е756062 
E0B9 65722032 
ЕӨВО 2000 


PRTMSG: 


TRANS1: 
LD 


TRANS2: 
PUSH 


MESAG1 : 


MESAG2: 


HL 
PRTMSG 


HL ,FACC 
BC,8 


F 

HL ,MESAG1 
PRTMSG 
АЕ 
CHRASP 
HL ,MESAG2 
PRTMSG 
Mc 


CHRASP 
HL ,NUMBR1 


DE,FACC 
BC,8 


HL , NUMBR2 
DE , SUBFAC 
BC,8 


CALL CNVSTR 
CALL PRTMSG 
RET 


DEFB 13,10 


DEFB “number 1 ’ 


DEFB “number 2 “ 


$ 
; if A=0 then return 


$ print chr$(A); 


; transfer from FACC to buffer 
; HL <= top of FACC 
$ 


; print ‘number 1 '; 


; 
$ print chr$(A); `; 
; print 'number 2 '; 


; 
; print "= °; 


; transfer from buffer 1 to FACC 


; transfer from buffer 2 to SUBFAC 
; 


; 
; print chr$(A); 


; 
3 print.° “3 


; Print number in FACC 


$; number 1 buffer 


$; number 2 buffer 


演算 は 
(FACC)=(FACOC) 一 (3-7 FACC) 
と いう よう に 行わ れ ま す 。 


倍 精度 実数 型 数 値 の 乗算 を 行う 
エン トリ アド レン レス : 2AF4H (N) 
2553H(N88) 


倍 精 度 実数 型 数 値 の 乗算 を 行い ます 。 
演算 は 
(FACC)=(FACC) (3-2 FACC) 
と いう よう に 行わ れ ま す 。 


倍 精 度 実数 型 数 値 の 除算 を 行う 
エン トリ アド ンス : 2B37H(N) 
2629H(N88) 


倍 精度 実数 型 数 値 の 除算 を 行い ます 。 

演算 は 

(FACC)=(FACC)( サ ブ FACC) 
EE т OTUR s b L.S 
FACC の 数 値 が 0 で あっ た 場合 , N- 
BASIC は Division by zero エラ ー を 発生 
し ます が , N。。-BASIC は 

/0 
を 表示 し , 除算 結果 と し て 倍 精度 実数 型 数 
値 の 最大 値 を 与え ます 。 

倍 精度 実数 型 数 値 の す サブ ルー チン 利用 例 
BUC VY REE ВАЅІЄ п Z 7 a 
スト 4 に を の BASIC プロ グラ ム と 同等 の 
マシ ン 語 に よる プロ グラ ム を の せ て お きま 
+. 


変数 の 構造 を あま り 知 ら な か っ た 人 は 初 
め て 見 る こと ば か り だ っ た と 思い ます が , 
BASIC を うわ べ さだ け で な くそ の 奥底 まで 
利用 する に は こう いっ た 細か いこ と を 知る 
必要 が あり ます 。 いろ いろ と 試し て みて く 
だ さい 。 


mu PC-80001/MKII,8801 waww 


<n 
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は じ め に 
E а 


前 回 は 数 値 表 現 と 四則 演算 な ど に つい て 
説明 し まし た 。 今 回 は その 続き と し て , 各 
種 の 数 値 関数 に つい て 説明 し て いき ます 。 


三角 関数 関係 
е es s 


まず は , SIN, COS な どの 三角 関数 か 6 
始め ます 。PC シリ ー ズ で サポ ー ト され て 
いる 三角 関数 は Na。-DISK BASIC, Nes- 
BASIC, N-(DISK) BASIC の 各 モ ー ド で 
異な り ま す 。 ま た だ た, その 計算 精度 も 異な っ 
て いま す 。 t, 多少 複雑 を う に 書い て し ま 
いま し た が , 実際 に は も っ と 簡単 で , N- 
(DISK) BASIC モー ド で サポ ー ト され て い 
る の は SIN, COS, TAN, ATN の 4 種類 で , 
計算 精度 は 単 精度 の み で す 。 

次 は Nas-BASIC モー ド で す が , この モ 
ー ド で サポ ー ト きれ て いる の は SIN, COS, 
TAN の 3 種類 の み で , 計算 精度 も 単 精度 
の み で す 。 そ し て 最後 の N。。-DISK BASIC 
モー ド で は , 上 記 3 種類 に ATN が 加わ り , 
計算 精度 も 倍 精 度 ま を で サポ ー ト る れ て いま す 。 

と ころ で 話 は 変わ り ま す が , 不思議 な こ 


と に N。。-BASIC は ディ スク モー ド に し な 
いと N-BASIC よ り も サポ ー ト る れ て い 
る 関数 が 少な いと いう 事実 が あり ます 。 ま 
た , それ で な て も 大 きく は な い ユ ー ザ ー 
エリ ア を DISK ユー ド に よっ て 10 氏 バイ 

ト ほ ど 占 有 し て し まう の で すか ら , 普段 は 
使用 し な い ATN や 倍 精度 す ポ ー ト 機能 な 
ど 削 除 す れ ば も っ と ディ スク コー ド を 小 き 
く で きる は ず で す 。 

前 置き が 長く な り ま し た が , 
題 に 入り た いと 思い ます 。 

人 @ 正 弦 値 (SIN) を 求め る 

エン トリ アド ンス : 32FCH (N) 

2F91H(N88) 
9615H(N88DISK) 

БАСС л ии а нр 
A) に 格納 され て いる 数 値 の 単位 を ラジ ア 
ン と し て , その 正弦 値 を 求め ます 。 結果 は 
FACC に 格納 され ます 。 

FACC に 与え る 数 値 は N. | - DISK 
BASIC 以外 で は 単 精度 実数 型 数 値 で な け 
れ ば な り ま せん 。 また, 結果 も 単 精度 で 返 
る れ ま す 。 一 方 , Nss=DISK BASIC = ÉE 
で は 単 精度 の ほか に 倍 精度 実数 型 数 値 も 許 
され , 倍 精 度 の 場合 は (N88DISK) に 書い 
て ある アド レス を コー ル し て くださ るい 。 結 
果 も 倍 精 度 で 返さ れ ま す 。 

これ 以外 の 数 値 を 与え だ 場合 , 結果 は 保 
証 き れ ま せん 。 な お , ディ スク コー ド 中 の 
アド レス は 手元 に あっ た 2 種類 に つい て の 
み 確 認 ずみ で す 。 

また , これ まで 述べ て きた こと は 以下 の 
COS, TAN, АТМ に も それぞれ あて は ま 
り ま す の で 注意 し て くだ さる い 。 


そろ そろ 本 


@ 余 弦 値 (COS) を 求め る 

エン トリ アド ンス : 32F6H(N) 

2F8BH (N88) 
94E7H(N88DISK) 

FACC に 格納 され て いる 数 値 の 単位 を 
ラジ アン と し て , その 余弦 値 を 求め ます 。 
結果 は FACC に 格納 され ます 。 

ちょ っ と 余談 に な り ま す が ,COS と SIN 
に は 

COS (X)-SIN (Х+2 
と いう 関係 が あり ます か ら ,BASIC も それ 
を 利用 し て いま す 。 す な わ ち , 与え られ た 
値 に を 加 えて SIN の ルー チン へ 進ん で 
いる の で す 。 

を の ほか の 点 に つい て は SIN 関数 と 同 
じ で す の で , そちら を 参照 し て くだ さい 。 
ФРН (ТАМ) を 求め る 

エン トリ アド ンス : 335DH (N) 

302CH (N88) 
9691H(N88DISK) 

FACC に 格納 きれ て いる 数 値 の 単位 を 
ラジ アン と し て , その 正 接 値 を 求め ゆま す 。 
結果 は FACC に 格納 きれ ます 。 

これ は 大 し た 話 じ や ゃ や な いん で す が , 
BASIC は TAN を 直接 計算 する の で は な 
(C, まず SIN を 計算 し , 次 に COS を 計算 
し ます 。 を そし て 最後 に 割り 算 を 行っ て いま 
す 。 すなわち 

TAN=SIN/COS 
と し て いる わけ で す 。 し た が っ て , TAN の 
計算 は SIN ゃ COS の 計算 に 比べ て 時 間 が 
か か り ま す 。 やる気 の ある 人 は 試し て くだ 
きい 。 

な お , その ほか の 点 に つい て は SIN 関数 
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の 欄 を 参照 し て くだ さい 。 
OXER (ATN) を 求め る 
エン トリ アド ンス : 3372H(N) 
89B3H(N88) 
948BH (N88DISK) 
FACC に 格納 され て いる 数 値 の 逆 正 接 
値 を 求め ます 。 結果 は РАСС に 格納 され , 
単位 は ラジ アン で , 


m L4 


ошноӣ? な り ま す 。 АТМ と は 
を 

の と き , 
X=ATN (TAN (X) ) 

と な る 関数 で す 。 

な お , エン トリ アド レス 中 は (N88) と 
な っ て いま す が , ほか の 関数 と の 関係 で こ 
う 書 いた だ け で N。。-BASIC モー ド で は 使 
用 で きま せん の で 注意 し て くだ きい 。 

その ほか の 注意 事項 は SIN 関数 の 欄 を 
参照 し て くだ さい 。 

以上 で 三角 関数 は 終わ ゎ わり で す 。 次 は その 
ほか の 関数 に つい て 話 を 進め て いき ます 。 


その 他 の 関数 
E 8 


その ほか の 関数 し いっ て も いろ いろ と あ 
り ま す が , ここ で は 数 値 関数 と し いう こと で 
自然 対数 (LOG), e の べき 乗 (EXP), 平 
方 根 (SQR), 乱数 (RND), 絶対 値 
(ABS), 符号 (SGN), 整数 部 (FIX), 切 
り 捨て (INT), 整 数 変換 (CINT), 単 精度 変 
$k (CSNG), そし て 倍 精度 変換 (CDBL) 
の 11 種 類 で す 。 

この うち 乱数 (RND) は 関数 に 含め て も 
いい の か どう か 迷っ だ た の で す が , ほか に 入 
れる と ころ も な い の で 今回 の 数 値 関数 の 中 
に 含め て し まい まし た 。 

と ころ で , 数 値 し いえ ば 文字 列 が ある よ 
5 に 文字 列 に も 文字 列 用 の 関数 (RIGHT$, 
LEFT$, MID$ Z E) が あり ます が , これ 
ら 文字 列 用 の 関数 に つい て は 文字 列 の 基本 
的 な 構造 の 説明 が 終わ っ て いな い の で , 文 
字 列 の 説明 を する と き に 一 緒 に 説明 し た い 
と 思い ます 。 し た が っ て 次 回 まで おぉ 待ち く 
だ さい 。 
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話 が 多少 それ て し まい まし た の で , そろ 
そろ 本 筋 に も どり ます 。 
eB? (LOG) を 求め る 
エン トリ アド ンス : 2503H(N) 
1F10H(N88) 
956FH (N88DISK) 
FACC に 格納 され て いる 数 値 の 自然 対 
数 を 求め ます 。 結 果 は FACC に 格納 され ま 
す 。 
LOG と は 
メーeY (е=2.71--:) 
の と き 
Y-LOG (X) 
と いう 関係 に な る 関数 で す 。 
その ほか の 点 に つい て は SIN 関数 の 欄 
を 参照 し て くだ さい 。 
@ e の べき 乗 (EXP) を 求め る 
エン トリ アド ンス : 31F3H(N) 
2E6EH (N88) 
94F0H(N88DISK) 
FACC に 格納 され て いる 数 値 の e の で 
き 乗 を 求め ゆま す 。 す な わ ち EXP(X) と は e* 
の こと を 表し て いま す 。 結果 は FACC に 格 
納 さ れ ま す 。 
その ほか の 点 に つい て は SIN 関数 の 欄 
を 参照 し て くだ きい 。 
@ 平 方 根 (SQR) を 求め る 
エン トリ アド ンス : 31A1H(N) 
2E05H(N88) 
9650H(N88DISK) 
FACC に 格納 きれ て いる 数 値 の 平方 根 
を 求め ます 。= つ あり , 
SQR (X)=/X 
と いう こと で す 。 結果 は FACC に 格納 され 
idu 
その ほか の 点 に つい て は SIN 関数 の 欄 
を 参照 し て くだ さい 。 
@ 乱 数 (RND) を 発生 する 
エン トリ アド ンス : 3283H(N) 
2F1AH (N88) 
0 以上 1 未満 の 乱数 を 発生 し て FACC 
に 格納 し ます 。 発生 する 乱数 の 精度 (乱数 
と は で た ら め な 数 字 の こと な の に 精度 と い 
うぅ 表現 を 使う の は か な りお か し い が , 有効 
桁 数 の こ - 必 考 ん えて K- だ さい ) は N- 
BASIC で は 単 精度 の み で 問題 な い の で す 
が , N. BASIC モー ド で は 少々 や っ か い 
C3. Ns-BASIC は 単 精度 の み し か サポ 
ー ト し て いま せん の で , FACC に 格納 する 


数 値 は 単 精度 に し て 《 だ さる い 。 倍 精度 を 与 
えた 場合 , 表向き は 倍 精 度 で 返さ れ て きま 
す が , 有効 桁 数 は 単 精度 と 同じ で す 。 ま た , 
N。。-DISK BASIC モー ド で は 両方 可 で , = 
ント リア ドレ ス は N。。-BASIC と 同じ で す 。 
⑧ 絶対 値 (ABS) を 求め る 

エン トリ アド ンス : 2671H(N) 

20A0H(N88) 

FACC に 格納 され て いる 数 値 の 絶対 値 
を 求め ます 。 結果 は FACC に 格納 され ま 
d 

ABS t と は FACC に 格納 きれ て いる 数値 
が 負 の と ょ と き に その 符号 を 反転 する だ け て , 
ほか に 何 も 行 っ て いま せん 。 なお, FACC 
に 与え る 数 値 は 整数 , 単 精度 実数 , 倍 精度 
実数 の 3 種類 が どれ も 許さ れ , 結果 も 同じ 
型 で 返さ れ て きま す 。 た だ だ し , 整数 で 一 
32768 を 与え た 場合 は 単 精度 実数 と し て 返 
sni. 

人 @ 符 号 (SGN) を 調べ る 

エン トリ アド ンス : 2684H(N) 

20B3H(N88) 

FACC に 格納 され て いる 数 値 の 待 号 を 
調べ ます 。 結果 は FACC に 整数 型 で 返さ れ 
ます 。 

与え を られ る 数 値 に つい て は マニ ュ ア ル を 
参照 し て くだ きい 。 

@ 整 数 部 を 求め る (FIX) 

エン トリ アド ンス : 282CH (№ 

2286H(N88) 

FACC に 格納 され て いる 数 値 の 小数 点 
以下 を 取り 去っ た 値 を 求め ます 。 結 果 は 
FACC に 格納 きれ ます 。 

Q 小数 点 以下 を 切り 捨て た 値 を 求め る (INT) 
エン トリ アド レス : 283FH(N) 
2295H(N88) 

FACC に 格納 きれ て いる 数 値 を 越え な 
い 最 大 の 整数 を 求め ます 。 結果 は FACC に 
格納 され ます 。 

次 は 型 変換 関数 CINT, CSNG, CDBL 
の 3 種類 で す 。 

@ 整 数 型 へ 変換 する (CINT) 

エン トリ アド ンス : 277FH (N) 

21A0H(N88) 

FACC に 格納 され て いる 数 値 を 整数 型 
へ 変換 し ます 。 

@ 単 精度 実数 型 へ 変換 する (CSNG) 

エン トリ アド ンス : 27B3H(N) 

2214H(N88) 


FACC に 格納 きれ て いる 数 値 を 単 精度 
実数 型 へ 変換 し ます 。 

人 @ 倍 精度 実数 型 へ 変換 する (CDBL) 
エン トリ アド ンス : 27DEH(N) 

223FH (N88) 

FACC に 格納 きれ て いる 数 値 を 単 精度 
実数 型 へ 変換 し ます 。 

た だ し 型 変換 を 行う だ どけ な の で , 変換 前 
の 数 値 の 精度 が 向上 する わけ で は あり ませ 


PRINT 
INPUT 
PRINT 
PRINT 
PRINT ' 
PRINT 
PRINT 
GOTO 100 


ん の で 注意 し て くだ さい 。 

な お , 以上 3 種類 の 型 変換 関数 は 変換 前 
の FACC の デー タ が 文字 列 の 場合 は 
Type mismatch を 発生 し ます 。 

以上 で 数 値 関係 の サブルーチン は ほとん 
E 紹 條 し まじ た 。 nn 
ム に よる 数 値 計算 が 自由 に で きる と 思い ま 
す 。 い ろ い ろ と プロ グラ ム を 作っ て みて 〈 
だ さい 。 


"number ";X 


' SABS OO 
" 5SGNOO 
"sFIXOO 
"3 INT(X) 


"Ë H H 


ORG B0E000H 
N88-BASIC 


今回 も 一 応 サ シン プル プロ グラ ム を 作っ て 
AFL 

リス ト 12: BASIC, A F 2 が アセ ンプ 
ラ に よる プロ グラ ム で 使用 関数 は ABS, 
SGN, FIX, INT の 4 種類 で す 。 

今回 の 内 部 解析 は いか が だ っ た で し ょ う 
か 。 興味 の な い 人 に は あま りお も し ろく な 
いも の か も し れ ま せん が , その うち お も し 
ろ い こと も 書き ます の で 楽し み に し て くだ 
きい 。 


N-BASIC 


LININP:EQU 
CNVNUM : EQU 
CNVSTR:EQU 
CSNG:  EQU 
ABS: EQU 
SGN: EQU 
FIX: EQU 
INT: EQU 
FACTYP:EQU 
FACC: EQU 


SFC8H 
26BCH 
28D0H 
2214H 
29A9H 
29B3H 
2286H 
2295H 
9EABDH 
9EC3DH 


1B8AH 
2BBEH 
2022H 
27B3H 
2671H 
2684H 
282CH 
283FH 
9EF4SH 
9F9A4H 


we ee we oe we oe we жо we ee 


LOOP: 
217DE9 LD HL , MSGNUM 
CALL PRTMSG 
CALL LININP 
C 
HL 
CNVNUM 


print "number ? "`; 
line input 
1f hit stop then return 


w 9 we we өө өө 


CDBC26 convert into number 
3ABDEA 
З2АВЕ@ 
213DEC 
11ACEO 
CD77E9 


A,CFACTYP) 

(BUFFER) , A 

HL ,FACC 

DE , BUFFER+1 
TRANS2 


move FACC to buffer 


we we we өө өө 


218АЕ@ 
114020 
CD46E0 


HL ,MSGABS 
DE , ABS 
PRTNUM 


print '`abs(";X;")=";ABS(X); 


we we we 


2191Е@ 
11B320 
CD46E0 


HL , MSGSGN 
DE , SON 
PRTNUM 


print 'sgn('5;X; ")=";SGN(X); 


2198E0 
118622 
CD46E9 


HL , MSGF IX 
DE,FIX 
PRTNUM 


print 'fix(^ 5X5 02 5;FIXOO; 


we we we 
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E038 
E03B 
ЕВЗЕ 


E041 
E043 
E044 


E046 
E046 
E047 
E04A 
E94D 
E959 
E053 
E056 
E059 
ЕӨ5С 


E9SF 


E969 
E961 
E961 


E964 
E964 
E065 
E066 
E067 
E068 
E069 


E96B 
E96B 
E96E 
E071 
E074 
EO?? 
E077 
E97A 
E97C 


E97D 
E97D 
EQ7F 
E083 
E087 
E98A 
E98A 
E08E 
E091 
E091 
E095 
E098 
E098 
E99C 
E99F 
ЕВ9Ғ 
ЕВАЗ 
E9A6 
E9A6 


219FE0 
12322 
CD46E9 


3AABEO 
32BDEA 
113DEC 
21ACEO 


010800 
EDB9 
62 


9D9A 
6Е756062 
65722020 
3F2000 


9D9A6162 
732899 


9D9A7367 
6E2800 


@0@А6669 
782800 


9D9A696E 
742800 


20293D20 


EQAA 00 


ЕВАВ 
ЕВАВ 


Е@В4 


`. 


PRTMSG: 


MSGABS: 
D 

MSGSGN: 
DEF 


MSGFIX: 
DEF 


MSGINT: 
DEF 


MSGEQU: 
DE 


; 
BUFFER: 


DEFS 


END 


EFB 


B 


B 


B 


HL , MSGINT 
DE , INT 
PRTNUM 


^,10 
18H 
LOOP 


DE 

PRTMSG 
TRANS 
CNVSTR 
PRTMSG 

HL , MSGEQU 
PRTMSG 
TRANS 

HL , PRTNM2 
(SP ) , HL 
(HL ) 


CNVSTR 


PRTMSG 


A, (BUFFER) 

(FACTYP),A 

DE ,FACC 

HL , BUFFER+1 


BC,8 


13,10 


“number ? ^/,0 


13,10, abs)  ,0 


13,10, sgən( “ ,0 


13,10, EXC 0 


03510, ^int6 5,0 


ee we ee 


.. we 


we e oe wo we мо we өө өө өө ee 


ee wo we сөө өө өө 


print IRE ONS = TNI CX): 


line feed 


print string(from HL); 


Brint X: 


print 3e) 


set return address 


if A=9 then return 


-print chr$(A); 


move buffer to FACC 


cem & ТР 


mm РС-8001/МК II, 8801 wawawa 


seem C 


w) 


=° 


1984 年 10 月 掲載 


スト リン グ は 
や っ か いも の の 


今回 の 内 部 解析 は マイ クロ ッ フ ト 系 の 
BASIC の 特徴 の 1 つ で も ある 文字 列 処理 
と が ガベージ コレ クシ ョ ン に つい て 解説 し て 
いき ます 。 

機械 語 で 文字 列 の 処理 を 行う の は か な り 
や っ か いで , 数 値 の よう に すべ て フロ ー テ 
ィング アキ ュー ムレ ー タ EACC を 介し て 
その 処理 を 行 を ば すむ と いう わけ に は いき 
ませ ん 。 それ どこ ろか , FACC は あま り 使 
用 せ ず , スト リン グ デ ィ ス クリ プ タ を 中 心 
に 処理 を 行い ます 。 ス トリ ング ディ スク リ 
プ タ と は 3 バイ ト か ら 6 成り 。 1 バイ ト 目 は 
文字 列 の 長き (0—255, 2 バイ ト 目 は 文 
字 列 の 置か れ て いる 先頭 アド レス の 下位 8 
ビッ ト , 3 バイト 目 は 同じ く 上 位 8 ビ ッ ト 
を 表し て いま す 。 

この よう に 文字 列 の 処理 は か な り 複 雑 な 
OC, スト リン グ 領 域 な どの 説明 を する た 


N, Nso-BASIC 使 用 時 


ディ スク コード ]HROM-BASIC 使 用 時 
ファ イル バッ ファ 人 | は 存在 し な い 
asu гккккк КУЛК 


(EF54,5)| ^ F "V > Z $8 tX | CLEARZXOOR 1 パラ メー タ に よる 


イン タラ ブ ト ベク トル 


Nao-BASIC PC-8801 の N-BASIC 使 用 時 は 
拡 張 部 || N-BASIC の 拡張 部 


Nss-BASIC 使 用 時 


CLEAR 方 の 第 2 
P ordo decl 


AA s CLEAR 廊 の 第 3 
х F U X Z $Ë k 
) …FRE(0) 


EERE 
| ファ イル バッ ラッ | 
ディ スク コー Е || ВОМ-ВАЅІС ВЕН 
800| К 2 í 7/\ у 2 > || Uus 
8000| テ キス トウ イン ドー 
(EBI8, 9) (基本 的 に は テキ スト 用 ) 


Na-BASIC 使 用 時 は 下位 

Е = の 0000H-7FFFH は BASIC 
7 * ^ b т 
の 図 に は 通常 は 見 る こと が で 


me 
ア を 表し て ある . 


図 1 各 BASIC 使 用 時 の メイ ン RAM の マッ ピン グ 状 況 


め に , ま ず メ モリ マッ プ を 見 る こと に し ます 。 


メモ リマ ヤッ プ 
Eo 3 


Bi, 2 を 見 て て だ さい 。 こ の 図 は 各 


(EF54, 5) 
Leo су” 
スト リン グ 
| 領域 


(EF79,A) 


未 使用 エリ ア …FRE”) 


(EB50, 1) 


シス テム スタ ッ ク 


N, Nso-BASIC 使 用 時 の スト リン グ 領 域 


2 各 BASIC 使 用 時 の スト リン グ 領 域 


(EACC,D) 


(EAFI, 2) 


(EBIF, 20) 


eco 

CENAE 
の 上 位 か ら 下 位 
へ 向かっ て メモ 
リ を 占有 し て い 
く こ と を 表す ) 


MTS 


= = FRE(0) 


Bc 列 $8 域 


Nss-BASIC 使 用 時 の スト リン グ 領 域 


BASIC 使用 時 の メモ リ の 利用 状況 を 示し 
て いま す が , この 中 て で 文字 列 処理 の と き に 必 
要 と な る の は 変数 領域 ,。 スト リン グ 領 域 。 
€ LOU 2x) 7050-531 3:3 

文字 列 変数 に ある 文字 列 を 直接 代入 する 
場合 , 変数 領域 に は 変数 の 型 , 変数 名 , Z 
し て 先ほど の スト リン グ デ ィ ス クリ プ タ が 
登録 きれ ます 。 1 つの 文字 列 変数 の 必要 と 
する バイ ト 数 は N(N。。)- BASIC の 場合 が 
6 バイ ト 。 一方, Nss-BASIC の 場合 は 

5 バイ ト 十 変数 名 の 長き 

(変数 名 が 1 文字 の と き 長 さ は 2 と する ) 
どなり は 

CLT, スト リン グ 領 域 に その 文字 列 が 
登録 きれ ます 。 た だ し , 図 2 に 示す よう に 
スト リン グ 領 域 は 後ろ から 6 利用 きれ ます 。 
ワー クエ リア は を その 作業 が 行わ れる 間 い ろ 
いろ と 変化 し ます が , 最終 的 に 変化 する の 
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は 各 ポ イン タ だ け で す 。 それ で は , 実際 の 
メモ リ の 変化 も 見 て みる こと に し ます 。 


実際 の メモ リ の 
変化 


まず , N-BASIC 使用 時 の メモ リ の 変化 
を 調べ る こと に し ます 。 図 3 を 対照 し な が 


ら 6 以下 の 説明 を 読ん で くだ さい 。 

ダイ レク トモ ー ド イ て 文字 変数 に 文字 列 を 
代入 する 場合 は 変数 領域 に その 文字 変数 と 
スト リン グ デ ィ ス クリ プ タ が , そし て スト 
リン グ 領 域 に その 文字 列 が 登録 きれ る こと 
は 先ほど 述べ まし た 。 図 3 の 場合 は 8023H 
ー8028H が 変数 領域 と し て 確保 きれ ます 。 
を そして, スト リン グ デ ィ ス クリ プ タ は 文字 
列 の 長 る が 10 文 字 で あり , その 文字 列 が 
CCE9H より 格納 きれ て いる こと を 表し て 
いま す 。 そ の 結果 , CBCTH ~CCF2H OA 


Two surface disk version [20-Sep-1981] 
How many files(0-15)? 3 

NEC PC-8001 BASIC Ver 1.2 
Copyright 1979 (C) by Microsoft 


OK — وو‎ 
mon 


*DEB50 


EB50 C6 СВ FF FF 21 80 20 B7 00 00 00 FF 00 FF 00 FF 


空き エリ ア の 終わ り * テ キス ト 開 始 ア ド 


ドレ ス 
xDEF59 (空き エリ ア の 終わ り + | ) が スト リン グ 領 域 の 始ま り と な る 
EF50 00 00 00 00 F2 CC 58 EF 05 60 ЗВ вө өө 00 HY 00 


スト リン グ 領 域 の 終わ り 


xDEFA9 配列 領域 の 始ま り 


EFA0 23 80 23 80 23 80 20 80 04 04 04 04 04 04 04 04 


変数 領域 の 始ま り 
xDEF79 


空き エリ ア の 始ま り 


EF70 00 00 00 00 00 00 05 60 3B F2 CC 00 00 00 00 01 


Li 
Ok 
ab$-"0123456789" 
Ok 

mon 
xDEFAQ 


直接 代入 の 場合 
配列 領域 の 始ま り 


スト リン グ 領 域 の 使用 ずみ エリ ア を 示す 


EFA9 23 80 29 80 29 80 20 80 04 04 04 04 04 04 04 04 


変数 領域 の 始ま り 
xDEF76 


空き エリ ア の 始ま り 


EF70 00 00 өө вө өө 00 05 60 ЗВ E8 CC 57 EB 00 00 71 
スト リン グ 領 域 の 使用 ずみ エリ ア を 示す 
xD8020 変数 名 "A В" — m 3 バイ ト を スト リン グ デ ィ ス クリ プ タ と 呼ぶ 
8020 00 00 00 03 42 41 0A E9 CC 64 00 3B 80 78 00 46 
文字 列 型 を 示す 文字 数 文字 列 の 存在 する アド レス 
xDCCES 
CCE9 38 31 32 33.34 35 36 
CCF0 37 38 39 00 00 FF 00 90 00 
* 実際 の 文字 列 『0123456789? 
Ok 
プロ グラ ム 中 の 場合 一 一 
list 
100 АВ$="0123456789" 
Ok 
run 
Ok 
mon 
xDEFA9 配列 領域 の 始ま り 
EFA9 38 80 ЗЕ 80 ЗЕ 80 20 80 04 04 04 04 04 04 04 04 
変数 領域 の 始ま り 空き エリ ア の 始ま り 
xDEF70 
EF70 00 00 00 00 00 00 05 60 3B F2 CC 35 80 00 00 01 
スト リン グ 領 域 の 使用 ずみ エリ ア を 示す 
xD8030 変数 名 "A B” 
8030 36 37 38 39 22 00 00 00 03 42 41 0A 2A 80 64 C5 
文字 列 型 を 示す 文字 数 文字 列 の 存在 する アド レス 
xD802A (この 場合 は ブロ グラ ム 中 を 示す ) 
882A:38 31 32 33:34-35 
8030 36 37 38 39 22 00 00 00 03 42 
* プロ グラ ム 中 の 文字 列 
OK 。. 空き エ リア の 終わ り 」 と 表し た が , 実際 に は シス テム スタ ッ ク の 後 端 で ある 、 シ ステ 
ム ス タ ッ ク は そこ か ら メ モリ の 下位 へ 向かっ て の ぴ び て い く 。、 よ っ て , 実際 の 空き エリ 
ア の 終わ り は (現在 の スタ ッ ク ボ イン ター| ) と な る 


図 3 N-BASIC 使 用 時 の メモ リ 変 化 
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トリ ング 領域 の うち も CCE9H (EF79, AH 
で 示 き る れる アド レス 二 1 ) 一 CCF2H が 使 
用 ずみ エリ ア と な り ま す 。 

この よう に 文字 変数 と 文字 列 が 登録 され 
て いき ます 。 ま だ, スト リン グ 領 域 が 足り 
な く な る と Out of string space が 発生 し 
2. 

この エラ ー が 発生 し た と き は スト リン グ 
領域 を より 大 きく と っ て く 〈 く だ さい 。 ス トリ 
ング 領域 の 大 きる は CLEAR 文 の 第 1 パ 
ラメ ー タ で 指定 され ます 。 

今度 は プロ グラ ム 中 で 文字 変数 に 文字 列 

を 代入 する 場合 で す 。 文 字 変 数 が 変数 領域 
- 登 録 き れる と ころ まで は ダイ レク トモ ー 
ド と 同じ で す が , その 文字 列 が ダブ ルク ォ 
ー テ ーション (№) で 囲ま れ て いる と き , 5 
る い は DATA 文 と し て 存在 する と き は ス 
トリ ング ディ スク リプ タ は プロ グラ ム 中 を 
示す こと に な り ま す 。 だ だ し , これ は 文字 
列 演算 が 行わ れ て いな い 文 字 列 を 代入 する 
場合 に 限り ます 。 文字 列 演 算 が 行わ れ た 結 
果 の 文字 列 は ダイ レク トモ ー ド と 同様 に ス 
トリ ング 領域 に 登録 きれ ます 。 

な お , CLEAR 文 が 実行 きれ な い 限 り , 
(EB50,1H) の 空き エリ ア の 終わ り 十 1 
( 図 3 注 を 参照 ) か 6 (EF545H) まで の 

スト リン グ 領 域 の 大 きる は 変化 し ませ ん 。 

次 は N。。-BASIC の 場合 で す 。 今 度 は 図 
4 を 対照 し な が ら 6 説 明 を 読ん で 《 だ さい 。 
Nss- BASIC で 文字 列 を 使用 する と き は , 

基本 的 に N-BASIC の 場合 と 同様 で す 。 だ 
だ し , BASIC イン タプ リタ の 構造 上 , スト 
リン グ デ ィ ス クリ プ タ が プロ グラ ッ ム メ 中 を 指 
すこ と は な く , スト リン グ 領 域 に 登録 きれ 
まず 5 

また , スト リン グ 領 域 の 使用 状態 も 異な 

っ て いま す 。N-BASIC の 場合 , ス トリ ング 
領域 の 大 きる は 一 定 で し た が , №-ВАЅІС 
の 場合 は 一 定 で は な く 必 要 に 応じ て 空き エ 
リア が 存在 する 限り 大 きく な っ て いき ます 

( 図 2 参照 )。 
以上 の よう に N-BASIC, N。。- BASIC 

(Ni。- BASIC は N-BASIC を 少し だ け 拡 
張 し た だ け な の で , この よう な 処理 は N- 
BASIC t 232 CRE bie と に つい 

て 念 を 押し て お きま す ) の 文字 列 処理 は 多 
少 の 違い が ある に せよ 基本 的 に は 同じ で す 。 
以下 の 説明 は 両方 に 当て は まる と 考え て さく 

だ きい 。 


Disk version [Apr 24.1982] 
How many files(0-15)? 3 
NEC N-88 BASIC Version 1.0 
Copyright (C) 1981 by Microsoft 


45263 Bytes free 
Ok 
mon 


h]deb16 


h]deafl 


hldeacc 


Ok 
abc$-"0123456789" 
Ok 

mon 

h]deb16 


h]deaf 1 


空き エリ ア の 終わ り 
h]db328 変数 名 "A BC” 


文字 型 を 示す 
hlde3f4 
Ok 

list 

Ok 

run 

Ok 


mon 


h]deb16 


h]deaf1l 


ーー 初期 値 


EBI6 28 B3 03 00 00 
ラベ ル テ ー ブ ル の 始ま り 


EAF1 FD ЕЗ 00 80 00 
空き エリ ア の 終わ り ( 空 き キ エ リ ア の 終わ り + | ニス トリ ング 領域 の 始ま り ) 


EACC FD E3 DO EA 05 
hl^b スト リン グ 領 域 の 終わ り 


ーー 一 直接 代入 の 場合 


プロ グラ ム 中 の 場合 


EB16 28 ВЗ 19 00 01 
ラベ ル テ ー ブ ル の 始ま り 


配列 領域 の 始ま り 
28 ВЗ 28 B3 28 B3 99 00 04 04 04 
変数 領域 の 始ま り 空き エリ ア の 始ま り 


ЕЕ E7 00 SE 06 00 00 00 00 00 00 


1A 03 01 DF B6 FF 00 FF 00 FF 00 


配列 領域 の 始ま り 


EB16 28 B3 03 00 00 28 B3 30 B3 30 B3 00 00 04 04 04 
ラベ ル テ ー ブ ル の 始ま り 


変数 領域 の 始ま り 空き エリ ア の 始ま り 


EAF1 ЕЗ ЕЗ 8B E8 00 ЕЕ E7 00 5E 06 99 EF 2р ВЗ 00 00 


スト リン グ デ ィ ス クリ 79 


Bp >+ "por an: 
B328 03 41 42 01 C3 ØA F4 ЕЗ 03 00 05 D8 B6 03 53 00 
文字 数 文字 列 の 存在 する アド レス 


E3F4 30 31 32 33 34 35 36 37 38 39 EI CI C9 CD CC ЕЗ 
hl^b 登録 され た 文字 列 ( ス トリ ング 領域 は E3F4H 一 E3FDH と な っ た ) 


100 ABC$-"0123456789" 


配列 領域 の 始ま り 
28 ВЗ 30 ВЗ 30 ВЗ 00 00 04 94 04 
変数 領域 の 始ま り 空き エリ ア の 始ま り 


EAF1 ЕЗ ЕЗ 16 80 00 ЕЕ 6D 00 5E 06 00 00 2р ВЗ 00 00 


空き エリ ア の 終わ り 
h]db328 変数 名 "ABC” 


スト リン グ デ ィ ス クリ プ タ 


—— EE THES 
B328 03 41 42 01 C3 0A F4 ЕЗ 02 00 05 D8 B6 03 53 00 


文字 型 を 示す 
hlde3f4 


文字 数 文字 列 の 存在 する アド レス 


EGER 30 31-32-33 34 35/36 37 38-39 El .C1-C9-CD-CC.E3 
hl^b 登録 され た 文字 列 (N-BASIC と 違い . 必ず スト リン グ 領 域 に 登録 され る ) 


Ok 


=, 


図 4 Na』-BASIC 使 用 時 の メモ リ 変 化 


ガベージ 
コレ クシ ョ ン 


ガベージ ュ コレクション (gabage collec- 
tion) に つい て は 一 部 の 機械 の マニ ュ ア ル 
に ちょ っ と だ け 触 れ て あり ます が (た と え 
ば PC-8801MK II の REFERENCEI-11), 

念 図 な ど と いう 表現 が 使用 きれ て いる の 
で ご ま か る れ て いる よう な 気 が す る と 思い 
уь 


(5 ( ウ ( ウ ( ウ 
qom 

13% °) 
(5r (7077077 


яе F ^ ^-^» 


AB 7 EH IDIS 


0123456789 F*7^À 


£) (507507 
Hi coms - 
AB 7 Ві ns 


0123456789 F?7^À 


そこ で , 実際 の ガベージ ュ レ クシ ョ ン の 
様子 も 見 て みる こと に し ます 。 まずは, М 
5 を 見 て くだ さい (この 図 は N。。-DISK 
BASIC の 起動 直後 か ら の 画面 な の で , AR 
イン タ の 初期 値 は 図 4 を 参照 し て くだ さき 
v). ABC$U- 70123456789" を 代入 し た と 
ころ まで は 図 4 と 同じ で す 。 KU, D$ に 
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“abcdefg? を 代入 し ます 。 ど の よう な 結果 
に な る か は 予想 が つい て いる で し ょ うけ れ 
$, 一 応 モニ タイ 確認 し て お きま す 。 
そし て , 今度 は ABC$ に 新しい 文字 列 を 
代入 し ます 。 長き は 前 の 文字 列 と 同じ に し 
て お きま す 。 さ る さあ, モニ タ で 調べ て み ま し 
ょ う 。 モ ニタ の D コ マン ド で 調べ る と, fX 
入 前 と 代入 後 で は ABC も $ の スト リン グ デ 
ィ ス クリ プ タ , スト リン グ 領 域 の 大 きる, 
を そし て スト リン グ 領 域 の データ が 変化 し ま 
す 。 ス トリ ング 領域 の 大 きる は N-BASIC 
の 場合 スト リン グ 領 域 の 使用 ずみ エリ ア の 
大 きる に 相当 し ます 。 すなわち , N-BASIC 
の (EF79, АН) の 示す アド レス と Na- 
BASIC の (EAF 1, 2 H) の 示す アド レス 
の 意味 は この 点 で は ほ ば 同じ で ある と 考え 
られ ます 。 こ の よう に 文字 変数 に 新しい 文 
字 列 を 代入 する と, その 文字 数 だ け 新た に 
スト リン グ 領 域 が 確保 され , そこ に 新しい 

文字 列 が 登録 きれ る と いう わけ で す 。 
空き エリ ア (N-BASIC で は スト リン グ 
領域 中 の 未 使用 エリ ア ) が 十分 大 きけ れ ば , 
この 方 法 を 繰り 返す だ け で 何ら 問題 は な い 
の で す が , 現状 だ は せい ぜ い 大 きく 見 積 も 
っ て も 空き エリ ア は 20K バ イト 程度 で す 。 
これ だ と , 100 文 字 の 文字 列 を 200 回 代入 す 
れ ば いっ ぱい に な っ て し まい ます 。 い っ ぱ 
い に な っ て し まう し と いっ て も , 実際 に は も 
うい ら 5 なくなっ た 文字 列 が スト リン グ 領 域 
中 に は 散在 し て いま す 。 そこ で , 必要 な 文 
字 列 だ け を 選ん で スト リン グ 領 域 を 整理 す 
れ ば , また 空き エリ ア が 大 きく な る わけ で 
す 。 こ の 整理 する 作業 の こと を , ガベージ 
コレ クシ ョ ン と 呼ぶ の で す 。 

それ で は , ガベージ コレ クシ ョ ン を 実際 
に 目 で 確か め て み ま し ょ う 。 先ほど の 図 5 
に 6 と つっ で G く 《 く だ さい 。 が ペー ジュ レク ショ 
ン の 効果 を より は っ きり る せる た め に , 
D$ も 更新 し まし た 。 そ し て , ガベージ コレ 
クシ ョ ン を 行う た め に 

ЕКЕ (0) 
を 表示 る せま す 。N-BASIC で は 

FRE (^) 
©, 

12467 
と 表示 る され まし た が , この 値 は いま は 関係 
あり ませ ん の て 無視 し て モニ タ に 入り ダン 
プ し ます 。 そ うす る と , E3DCH~E3FDH 
だ っ た スト リン グ 領 域 が E3DDH-E3FDH 
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へ と し っ か り 小 さく な っ て いま す 。 これが 
ガベージ コレ クシ ョ ン の 効果 し いう わけ な 
ЛЕС Зо 
ESAT, この カペー ジラ ンジ クン ョ ペク は 
いつ 起こ る か 分 か ら な い の で す 。 文字 列 を 


数 多く 扱っ て いる と き な ど は , 突然 プロ グ 


ラム の 実行 が 停止 し て STOP キー も きか 


な いこ と が あり ます が , これ は ガベージ コ 
レク ショ ン の た めで す 。 こ れ が いや な 場合 
は , ブログ ラム 中 に 

А =ЕКЕ (0) 
な ど を 入れ て 強制 的 に が ベー ジコ レク ショ 
Ze pdo t Sre K USC よう 。 


abc$="0123456789" 
Ok 


d$-"abcdefg" 
Ok 
mon 


hldebl6 配列 領域 の 始ま り 

EB16 28 B3 03 00 00 28 B3 37 B3 37 B3 00 00 94 04 84 
ラベ ル テ ー ブ フル の 始ま り 変数 領域 の 始ま り 

hl]deaf 1 

EAF1 EC ЕЗ 86 E8 99 FF 99 FF 99 FF 00 FF 34 ВЗ 00 00 
空き エリ ア の 終わ り ( 空 き キ エ リ ア の 終わ り + | ニス トリ ンク 領域 の 始ま り ) 

h]db328 pA b Uc To me 

B328 03 41 42 01 СЗ OA F4 E3 920 44 00 00 07 Ер ЕЗ 00 

文字 列 型 を 示す 変数 名 "A BC” 文字 型 Xie 

hlde3ed.e3fd D$ の 文字 列 

E3ED 61 62 63 64 65 66 67 30 31 32 33 34 35 36 37 38 

E3FD 39 L—ABC$ の 文字 列 

h]^b 

Ok 

абс$= "9876543210" 

Ок 


топ 


hldb328 変数 名 *ABC* D$ の 情報 

B328 03 41 42 01 СЗ ВА ЕЗ ЕЗ 03 44 00 00 07 ED ЕЗ 03 

hldeafl この スト リン グ デ ィ ス クリ プ ブタ が 変化 し た 

EAF1 E2 ЕЗ 8B E8 00 FF 6D 00 00 FF 00 FF 2D ВЗ 00 00 
ARULZSBEPESESH-E3FOH$ CU 4j > f- 

hlde3e3.e3fd 新しい ABCS の 文字 列 

E3E3 39 38 37 36 35 34 33 32 31 38 61 62 63 64 65 66 

ESF3 67 38 31 32 33 34 35 36 37 38 39 

h]^b | いら な く な っ た 文字 列 

Ok D$ の 文字 列 

d$=" ABCDEFG" 


mon 


hldb328 ABC $ の 情報 変数 名 *D* 

B328 03 41 42 01 СЗ OA ЕЗ Ез 03 44 00 00 07 DC ЕЗ 03 

h]deaf 1 XA 

EAFI DB E3 86 E8 00 FF 6D 00 00 FF 00 FF 34 B3 00 00 
スト リン グ 領 域 が E3DCH 一 E3FDH ま で に 拡大 し た 

hlde3dc.e3fd 新しい DS の 文字 列 ABC$ の 文字 列 

E3DC 41 42 43 44 45 46 47 39 38 37 36 35 34 33 32 31 

E3EC 30 61 62 63 64 65 66 67 39 31 32 33 34 35 36 37 

E3FC 38 39 いら な く な っ た 文字 列 

h]^b 

Ok 


Ure ER ti eR ガベージ コレ クシ ョ ン を 行う 
12467 

Ok 

mon 


hldeb328 変数 名 *ABC* スト リン グ デ ィ ス クリ プ タ か 変化 

B328 03 41 42 01 СЗ ØA F4 ЕЗ 03 44 00 00 07 Ер `ЕЗ 02 

h]deafl 変数 名 *D* 

EAF] EC ЕЗ 00 E8 00 FF E7 00 БЕ 06 00 EF 34 B3 00 00 
スト リン グ 領 域 が E3EDH 一 E3FDH に 縮小 し た 


hlde3ed.eS3fd DS の 文字 列 


E3ED 41 42 43 44 45 46 47 39 38 37 36 35 34 33 32 31 
ЕЗЕР 30 
h]^b 
Ok 


L— ABC $ の 文字 列 


図 5 Na-(DISK)BASIC の ガベージ コレ クシ ョ ン 


трат) Ч 


(5 (57575 
4 つの ホイ ンタ は 以下 の 操作 て 変化 し な い 


abcdefg912345678 
9 


AB 7 44 D са 
Hae m D 


9876543219abcdef 
90123456789 


AB 7 44 D A 


この スト リン グ デ ィ ス クリ フタ が 変化 し た 


Uimé m 4% 


ABCDEFG987654321 
@abcdefg01234567 
89 


AB 7 Bi D ©з 


ео F 4% 


ABCDEFG987654321 
0 


дб E | 


Bp DILE 
アド バイ ス 


いつ も の 内 部 解析 な ら 必 ず 命 令 の 処理 ア 
ドレ ス を 書く の で す が , 今回 は 書き ませ ん 。 
と いう の は , 文字 列 の 処理 を 内 部 ルー チン 
に 頼っ て 行う の な ら わ ざわ ぐさ ざ 直接 コー ル す 
る こと な く , BASIC の 命令 し し て プロ グラ 
ム 中 に 置け ば よい か ら で す 。 別 に 直接 コー 
ル し た と ころ で 速 さ は ほとん ど 変 わら な い 
の で すか ら 。 を その 代わ り , 細か い サ ブル ー 
チン の アド レス を 書い て も いい の で す が , 
全部 説明 し な いと 役に立た な い の で これ も 
止め ます (全部 説明 する と 簡単 に は 終わ ら 
な い )。 これ で は , 何 も 書 いて いな い の と 同 
じ な の で , 文字 列 の 加算 の 方 法 を 説明 する 
cuc 

文字 列 の 加算 は , 文字 列 処理 の 中 で は 最 
. も 簡単 な も の の 1 つ で す 。 2 つの 文字 列 を 
つ な で に は , まず 1 つ 目 の 文字 列 の スト リ 
ング ディ スク リプ タ を ワー クエ リア 中 の ス 
ドリ ンク グ ス タ ッ ク に 登録 し ます スト リン 
グ ス タ ッ ク と は 一 時 的 に スト リン グ デ ィ ス 
クリ プ タ を 記憶 し て お く と ころ で す 。 そ し 
T, 2 つ 目 の 文字 列 の スト リン グ デ ィ ス ク 
リプ タ を 得 ま す 。 そ うす れ ば 両方 の スト リ 
ング ディ スク リプ タ が 得 ら れる の で , 新 し 
い 文 字 列 の 長 る が 決ま り ま す 。 ス トリ ング 
領域 に その バイ ト 数 だ け ス ペー ス を 確保 し 
ます 。 そ を そして, その エリ ア の 先頭 か ら 文字 
列 1, 文字 列 2 の 順 で コピ ー す れ ば 新しい 
文字 列 は 完成 で す 。 そ の と き , ワー クエ リ 
ア に は 新しい 文字 列 の スト リン グ デ ィ ス ク 
リプ タ が 作ら れ ま す 。 こ れ も ス トリ ング ス 
タッ ク に 登録 きれ ます 。 こ の と き は すでに 
文字 列 1 の スト リン グ デ ィ ス クリ プ タ に ス 
タッ ク は 存在 し ませ ん 。 その後 は , 代入 文 
な ら 変 数 に スト リン グ デ ィ ス クリ プ タ を コ 
ビー し , 参照 だ ご け な ら 参照 終了 後 ス トリ ン 
グ デ ィ ス クリ プ タ は 消 減 し ます 。 た だ し , 
文字 列 の 演算 が 続く 場合 、 し くに か っ こ が 
利用 きれ て いる 場合 は その スト リン グ デ ィ 
スク リプ タ は か っ この ネス ティ ング が 0 に 
な る まで 存在 し ます 。 逆 に いえ ば か っ この 
ネス ティ ング が 深く な れ ば 深く な る は ほど, 


どん どん と スタ ッ ク に だ た まっ て いく の で す 。 
し か し , スト リン グ ス タ ッ ク は 10 組 分 し か 
な い の で , か っ この ネス ティ ング を 11 段 以 
上 に すれ ば string formula too complex 
が 発生 し ます 。 


ワー ク 中 の 
空き ぎ エ リア 


最後 に 質問 の 葉書 きか ら …。「CLEAR X 
を 使用 し な く て も , 機械 語 の エリ ア と し て 
利用 で きる アド レス を 知り た い 」 と いう の 
が あり まし た の で , それ に つい て 少し 説明 
Ека се эс 

図 6 に 一 覧 表 を 掲載 し て あり ます が , 一 
部 説明 を 加え ます 。 ま ず N-BASIC の 
FF3DH—FFFFH に つい て 。 この エリ ア の 
後半 は BASIC の コー ルド スタ ー ト ある い 
は ウォ ー ム スタ ー ト (スト ッ ガ MM セット ) 
を 行っ た と き に , スタ ッ ク エ リア と し て 使 
用 る れる の て 破壊 きれ ます 。 


€ N-BASIC と Nso-BASIC 


bl MT 


次 に , N。。-BASIC の 8000H —83FFH は 
通常 テキ スト ウイ ンド ー に 隠れ て いて 見 え 
な い の で す が , リス ト 1 の よう に すれ ば 利 
用 で きま す (入力 は BASIC OATH), l 
わし く は アセ ンプ ブル リス ト の コメ ント を 見 
て 《 く だ さい 。 こ の アド ン レス A (8000H—83 
FFH) は VRAM を アク セス する の に 都合 
の よい アド レス で す 。 

また だ た , フ ァイル #0 の バッ ファ も 利用 で き 
ます 。 ファ イル #0 は 常に 存在 し ます が , A 
出力 時 以外 は 使用 し な い の で , BASIC か ら 
ここ に プロ グラ ム を 書き 込ん で 実行 する こ 
と が で きま す 。 使用 で きる アド レス は 

VARPTR (#0)+9 
の アド レス か ら 6256 バ イト で す 。 

ELEC, CLEAR 文 を 用 いな いで 利用 で き 

る アド レス の 一 覧 と を の 説明 は 終わ り で す 。 


今回 の 内 部 解析 。 内 部 す サブ ルー チン を 知 「 
り だ た い 人 に は つま ら 5 な か っ だ た か も し れ ま せ 
ん が , 文字 列 の 処理 方 法 を 知っ て なく 〈 bk 
で 意外 に 役に立つ も の で す 。 KED? 6 15 
BASIC イン タプ リタ の 構造 に つい て くわ 
し 解析 し て いく 予定 で す 。 で は また 。 


xt E ba 4 h 備 КАЕ ЗИ USC 
F216H —F2FFH 完全 に 未 使用 


RS-232C の CHI 用 パッ ファ (CHI を 使用 し な いと きのみ 可 ) 


(ウォ ー ム ) リ セッ ト 時 に 後半 50 バ イト 程度 が 破壊 され る 


EE4EH 一 EECDH RS-232C の CH2 用 バッ ファ (CH2 を 使用 し な いと きのみ 可 ) 


E800H 一 E9FFH 


Nss-BASIC 
SS 


Nso-BASIC 時 の み 。4thROM 用 ワー ク (ROM な し の と き 可 ) 


BN MN amc TEN e 


BASIC 非 管理 エリ ア 。 通 常 は テキ スト , ウイ ンド ー と し て 利用 
8000H 一 83FFH Ë 
され て いる た め 未 使用 (詳細 は 本 文中 ) 


図 6 ワー ク 中 の 空き エリ ア 
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100 ' clear blue plane 
110 CLEAR, &HE4FF 
120 FOR AD=&HE599 TO &HE537 
138 READ D$ 
148 POKE AD,VAL("&H"+D$) 
150 NEXT 
168. — init 
170 DEF USR=&HE599 : A=USR( 9 ) 
180 ' execute 
190 DEF USR=&HE516:A=USR( 9 ) 
200 ' end 
210 END 
220 ' machine language 
230 DATA 21,24,E5,11,00,80,01,14 
240 DATA 99.DB.79.F5,3E,89,D3,79 
250 DATA ED,B0.F1,D3.70,C9,DB, 70 
260 DATA F5,3E,80,D3,70,CD,00,80 
270 DATA F1,D3,70,C9,21,00,C0,11 
280 DATA 01,C0,01,7F,3E,36,00,F3 
290 DATA D3,5C,ED, B9 .D3,5F,FB,C9 
230 行 か ら の アセ ンプ ブル リ スト 
; Assemble list 

ORG BE500H 


E500 INIT: 

E500 2124Е5 HL , 9E524H 転送 パラ メー タ 
E 110984 Ee (E524H か ら の 14H バ イト を 8000H か ら へ ) 
E509 А,(7ӨН) 
` ESB AF 
E59C A. 80H 
E59E (79H) ,A 
E510 転送 実行 

| mb d テキ スト ウイ ンド ー を 元 に も どす 


E515 


テキ スト ウイ ンド ー に 8000H 一 83FFH を も っ て くる 


E516 5 
E516 A, (70H) 
E518 AF 

Е519 A, 80H 
E51B (70H) ,A 
E51D 8000H プロ グラ ム 実 生 

ЕКА M ] テキ スト ウイ ンド ー を 元 に も と どす 
E523 


テキ スト ウイ ンド ー に 8000H 一 83FFH を も っ て くる 


E524 
8000H 


21800C0 HL,0C000H 

1101C0 DE, 9C991H 

917F3E BC, 3E7FH 

3600 (HL),8 

F3 グラ フィ ッ ク VRAM の 青 の プ レー ン を 0 で クリ ア す る 
D35C (5CH) , A (た だ し , この 部 分 は 最初 に E524H 一 E537H に 置く ) 
EDB9 

D35F (БЕН) ,A 

FB 

C9 


は じ め に 
前 回 まで の 内 部 解析 で は BASIC ROM 
内 の 各種 の す サブ ルー チン を 中 心 に 解説 し て 
きま し た 。 機械 語 を 利用 し て 何 か し よ うと 
する と き に , けっ こう 役立っ た と 思い ます 。 
し か し , これ で は 基本 的 に , BASIC イン タ 
プリ タ と は 独立 し て 機械 語 を 利用 し て いる 
に すぎ ませ ん 。 
そこ で , 今回 の 内 部 解析 で は 「BASIC 4 
ンタ プリ タ の 構造 」 と 題し て , BASIC イン 
タプ リタ 内 に お ける ステ ー ト メン ト の 処理 
方 法 。 そ し て ステ ー ト メン ト 拡 張 の 方 法 な 
と を 解説 し て いき ます 。 


RI シス テム ワー クエ リア 初期 値 


リセ ッ ト か ら 
コマ ンド 待ち まで 
.  — 3 


まず は 電源 オン か ら 6 BASIC の コマ ンド 
待ち に いた る まで を 各 機種 別に 簡単 に 説明 
[азу 
ӨРС-8001 

ワー クエ リア の 初期 設定 , TIMER イニ 
シャ ライ ズ , ディ スク が ある 場合 は DISK 
BASIC の ブー ト 拡 張 ROM チェ ッ ク な ど 
を 行い コマ ンド 待ち へ 。 
@PC-8001MKII 

ワー クエ リア の 初期 設定 , を そし て ディ ッ 
プス イッ チ の ステ ー タ ス と コン トロ ー ル キ 
ー の ステ ー タ ス よ り N-BASIC か Na- 
BASIC か の 判別 と 4th ROM の モレ クト 
を 行い ます 。TIMER の イニ シャ ライ ズ は 
行い ませ ん 。 


OE Tr у 
== : 


ROM 内 ア ドレ ス ( 転 送 元 ) : 


ワー クエ リア 内 アド レス (転送 先 ) 


N-BASIC Nso-BASIC 


3A05H — 3B5BH 


EA00H ~ EB56H 


Nss-BASIC 


00BEH 一 0310H 


E600H — E852H 


表 2 バッ ファ の アド レス 


рд O 


Nr Tad ES mE E te 
YS С Nss-BASIC EX 
(NUNCA SS Ho 


ЖООСУ ap 622 


EC96H — ED98H 


E9B9H — EABAH 


ЗЕНА ИУ 7 


EB57H — EC92H 


E87AH — E9B7H 


1984 年 11 月 掲載 


な お , N-BASIC の DISK BASIC の プー 
ト は 何ら 5 PC-8001 と 変わ り ま せん が , Nao- 
BASIC で は 互換 性 を 保つ た め に N- 
BASIC 時 に 使用 し て いる DISK BASIC 
の ブー ト は 使用 せ ず , N。。- BASIC 用 の 
ROM 内 に 新た な ブー ト 部 分 が あり ます 。 
この ブート 部 は 5 イン チ だ け で は な 〈 く 8 イ 
ンチ か ら も Na。。-DISK BASIC を ブー ト で 
853519 ا‎ 

また だ , PC-8001MK II は N。。-BASIC = 
ー ド で N-DISK BASIC は 起動 し ます が , 
N-BASIC モー ド で N。。-DISK BASIC を 
起動 する こと は で きま せん 。 こ れ は Nao- 
DISK BASIC は プー トロ ー ダ で BASIC 
の 判別 を 行っ て いる か ら で す 。 判 別 の 方 法 
は (BFFFH) の 内 容 が 0 な 6 N-BASIC = 
ー ド , 0 以外 な ら 6 N。。-BASIC モー ド Ev 
2 う 2 よ うに な っ て いま す 。N-DISK BASIC 
の プー トロ ー ダ に は , この 判別 を 行う 部 分 
が 存在 し な い の で N。。-BASIC モー ド で も 
起動 する と いう わけ で す 。 
@PC-8801 

ディ ッ プ スイ ッ チ に よっ て NMN-BASIC 
t Ns -BASIC の 切り 替え が 行わ れ ま す 。 
この 切り 替え は N。。-BASIC 用 の ROM 内 
に て 行わ れ , た と えば N。。-BASIC モー ド 
か ら N-BASIC モー ドム へ 移行 する と き は 

JP 77A8H 
を 実行 し ます 。 だ ただ, N。。-BASIC モー ド で 
は STOP リセット を 実行 し た と き に 多少 
の 問題 が あり ます 。 こ の モー ド で は リセ ッ 
ト 直後 ,SP( ス タッ ク ポ イン タ ) を E1A0OH 
に 設定 し た 上 で スタ ッ ク を 利用 し て いま す 。 
し た が っ て , この 領域 に アデ ログ ラム が あっ 
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だ た ときには その プ ブログ ラム が 破壊 され ます 。 
i, NEW ON 命令 で 各 モ ー ド に 分 岐 し 
た 場合 は リモ ッ ト 時 に 新た に ディ ッ プ スイ 
У Ролу ХА を 読み 込ん で い 
る の で 正常 復帰 が で き な く な っ て し まい ます 。 
た EUER 
NEW ON 1 

で N-BASIC モ ー ド に 移行 し た 場合 , 
STOP リ セッ ト を し て も る 復帰 し な い の は 
CUTS. 

& BASIC と も ワー クエ リア の 最初 の 部 
分 に は 各種 プ ゲロ グ ラム や 重要 な 定数 が 格納 
され て いま す 。 こ の 部 分 は ROM 内 か ら 転 
送る きれ て 《 る も の が ほとん ど で , その 
ROM 内 アド レス を 表 1 に 示し て お きま す 。 
だ だし, ワー クエ リア 初期 値 は これ だ け で 
п, ジャ ンプ テー ブル な ど は 一 部 ブログ 
ラム に より 書き 込ま れ て いま す 。 


コマ ンド 待ち 
E Я 


BASIC の コマ ンド 待ち に も どる と き は 
JP 3C82H(N) 
. JP 047BH(N88) 
EUR e すると: 
OK 
を 表示 し て コマ ンド 待ち に な り ま す 。 ま た , 
BASIC は コマ ンド 待ち に な る 直前 , RAM 
EC 7252 ЛС. フッ クア ドレ ス は 
CALL F16EH (N:OK 表示 の 前 ) 
CALL ED48H (N88:OK 表示 の 前 ) 
CALL ЕРЗЕН (N88:OK 表 示 の あと ) 
し な っ で いま す 。 ミ き の ジ ッ ク は た と と ば : 
PC-8801MK II の 拡張 命令 パッ ケー ジ で コ 


マン ド 待 ち に も どる 前 , 画面 表示 を 再開 す 
る だ た め に 利用 る きれ て いま す 。 

この leur tubiof 4L 
行 入力 を 行い 。 RETURN キー が 押さ きれ た 
と き に 行 番号 が ある か な いか の 判別 を し て 
入力 され た 1 行 を 中 間 言 語 に 変換 し , テキ 
スト バッ ファ に 入れ ます ( 表 2 参照 )。 


中 間 言 語 に 変換 
E ял 


入力 され た 1 行 分 の 文字 列 (最後 は 0) 
を 中 間 言 語 に 変換 する に は , HL レジ スタ 
対 に その 先頭 アド レス を 入れ て , 

CALL 3E65H (N) 

CALL 0632H (N88) 
を 実行 は 35 CDU. スキ タダ トッ 
ファ に 中 間 言 語 が 格納 され , HL レジ スタ 
対 に は テキ スト バッ ファ の (トッ プア ドレ 
スー 1 ), BC レジ スタ 対 に は 中 間 言 語 の 長 
さき が 入り ます 。 

この ルー チン で は 

34C1H (N) 

6B56H (N88) 
か ら 始 まる キー ワー ド テ ー ブ ル を 参照 し て 
いま す 。 キ ー ワ ー ド テー ブル に は 頭 文 字 別 
に AZ の 26 組 の ポイ ンタ が 用 意 き る きれ て い 
ます 。 実際 の キー ワー ド デ ー タ は その ポイ 

ンタ に よっ て 示 る れ ま す 。 くわ しく は 図 1 
を 参照 し て くだ きい 。 

な お , この キー ワー ド テ ー ブ ル の トッ プ 
アド レス を 与え る 前 (N88), 与え を た あと 
(N) で RAM 上 に フッ ク し て いま す の 
С, この キー ワー ド テ ー ブ ル を 作り な お す 
こと が で きま す 。 を の 例 を リス ト 1 に 示し 


52 A4 E? 


A4 1E 


KUDADR: DEFU 
DEF 
ПЕРУ 


dco REUS SZ 82729 узе うう 
こと が で きる と いう だ け で , 実際 に 変更 す 
る 場合 に は キー ワー ド テ ー ブ ル の デー タ が 
リス ト 出 力 時 に も 参照 きれ る (後ほど くわ 
し (述べ る ) こと を 頭 に 入れ て お か な けれ 
ば な り ま せん 。 


中 間 言 語 へ の 変換 が 終る と プロ グラ ム の 
変更 , ある い は その 中 間 言 語 の 実行 に 移る 
わけ で す が , 変更 の 場合 は プロ グラ ム 中 の 
行 を 削除 後 , 新た に 行 を や つけ 加え て テキ ス 
ト の リン ク ポ イン タ の セッ ト を 行い ます 。 

KU, ダイ レク ト 実 行 の 場合 は HL に 中 
WEED (トッ プア ドレ スー 1) を 入れ て 

JP 423BH (N) 

JP 09E5H (N88) 
を 実行 し ます 。 す る と , その 中 間 言 語 が 
BASIC 4 イン タプ リタ に より 解釈 , 実行 され 
ます 。 中 間 言 語 (関数 を 除く ) の 処理 アド 
レス の テー ブル の トッ プア ドレ ス は 

33BDH (N) 

69FEH (N88) 
と な っ て いま す 。 た だ し , N-BASIC の 場合 
は (EA52, 53H) に 33BDH と いう アド レ 
ス が 格納 され て いま す の で , ここ を 変更 す 
れ ば ステ ー ト メン ト の 処理 アド レス を 自由 
に 変更 する こと が で きま す 。 くわ しく は り 
スト 2 を 参照 し て くだ きい 。 

また , 参照 資料 し し て ステ ー ト メン ト 処 
理 ア ドレ ス と その テー ブル アド レス を 表 3 
に 示し ます 。 


[ 最後 の 1 文字 は ピッ ト フ を 1 に する 


DEFB 
DEFB 
DEFB 
DEFB 


“ND “ +8S9H,9F8H— 中 間 言 語 
^ BS"+89H, 6 = 
^ TN’ *80H, QEH 

^ SB' *80H, 15H 
DEFB 'UTO**80H,0A9H 
DEFB /TTR$'*80H,0E7H 
DERB gp 


DEFB “CD$ +80H,01EH 


言語 
(ZFH 以 下 の 場合 は FFH, 80H+ コ ー ド と な る ) 


A が 終わり で ある と いう マー ク 


図 1 N-BASIC の キー ワー ド テ ー ブ ル の 構造 (Ni。-BASIC も アド レス と 中 間 言 語 が 変化 する だ け で 基本 的 に 同じ ) 
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33BD END 432F 
; 33BF FOR 4159 
; RUN statement only 330 NEN RE 
; Copyright (C) by T.Suzuki 33C5 INPUT 4804 
; 3 M 
ORG 9E999H E PN A E 
" CB L 
: 33CD GOTO 4560 
; N88-BASIC ; N-BASIC 33CF RUN 4530 
; 33D1 
86F6 RETADR:EQU 96F6H ; ЗЕАВН Зара RED TORE DS 
ED21 HOOK: EQU 9ED21H ; QF1CBH SE E KS 
; 33D9 REM 45С@ 
E000 ЗЕСЗ LD A,0C3H EC e SEU 
E802 3221ED LD (HOOK),A 
E995 219EE9 LD HL,ENTRY З АГУ 78706 
E008 2222ED LD (HOOK+1),HL BEES E MR 3DEQ 
. 5 ON 4642 
E99B CD3800 — CALL 38H ; ЈР 5С66Н 33E? шт 3683 
p 33E9 DEF CC 
xr 3 ENTRY: EC POKE 200 
1 POP HL D CONT 438 
E99F 2115E9 LD HL,KUDTBL E SEE CAE 
E012 C3F696 ӘР RETADR 33F3 OUT 56А0 
; Rs LPRINT 473A 
E015 KUDTBL : 33F LLIST 5707 
E015 49E0 DEFU TOPA EB И: VIDTH 9983 
E017 4AE0 DEFU TOPB EE се атаса 
E019 4ВЕ@ DEFU ТОРС 
E91B 4CE9 DEFM ТОРО dad — Su8P。 2396 
E010 4DEO DEFU TOPE 3405 ERASE 43DF 
E91F 4EE9 DEFM ТОРЕ 計ら 
E921 AFE9 DEFU TOPG uM MEE SEP 
E FE 59E9 DEFU TOPH 340D AUTO 46CF 
S CENE 25 51E0 DEFU TOPI 349F RENUM 5AED 
2 E027 52E9 DEFU ТОР.) 3413 . DEFINT 445E 
E029 53E9 DEFU TOPK 3415 DEFSNG 4461 
3x E02B 54E9 DEFU TOPL 9415 RE ROSH erago 
= E92D 55E0 DEFU TOPM 
x 341B PRESET 070 
EA E92F 56E9 DEFU TOPN 341D PSET 8593 
E031 57E9 DEFU ТОРО M уыш 
Е@ЗЗ 58E0 DEFU ТОРР DNI SIE 
E035 59E9 DEFU TOPQ 3425. COLOR 0951 
E037 5AE9 DEFU ТОРЕ E TERM 9DBB 
E039 SEEO DEFM TOPS ERE MON gOS 
E93B 5FE9 DEFU ТОРТ S pa М T 
E03D 69E9 DEFU TOPU 342F POLL F114 
E93F 61E9 DEFu TOPV 3431 — RBYTE РИА 
E941 62E9 DEFU ТОРЫ EG 
E043 63E9 DEFU TOPX 3437 REET Fl9g 
E045 64E9 DEFU TOPY Ar TAART т. 
111 
E947 65E9 : DEFU TOPZ 343D LISTEN F19E 
5 343F DSKO: F12C 
E049 99 ТОРА: DEFB @ 3441 REMOVE F150 
. 3443 MOUNT F153 
E94A 99 TOPB: DEFB 9 EE 
E94B 00 ТОРС: DEFB 9 3447 FIELD  F102 
E94C 00 ТОРО: DEFB 9 3449 GET 1886 
E94D 00 TOPE: DEFB 0 Zana SET 2391 
E94E 00 ТОРЕ: ОЕЕВ 9 
E94F 00 TOPG: DEFB 9 3451 LOAD F138 
E050 00 TOPH: DEFB 0 A Е.ни 
E051 00 TOPI: DEFB 9 1 
Ee: Ксы enero 9 узш no 
1 9 SB LSET F144 
E954 99 TOPL: DEFB 9 Eu gui NIE 
E055 00 TOPM: DEFB @ 3461 — LFILES F126 
E056 00 TOPN: DEFB 0 3463 INIT 2262 
E057 00 TOPO: DEFB 9 
E958 99 TOPP: DEFB 9 
E059 00 ТОРО: DEFB 9 
Е@5А 55CE8A ТОРЕ: DEFB "UN'+89H,8AH 
E95D 00 DEFB 9 REARS rD 
Е@5Е 00 TOPS: DEFB 9 @ 実 行方 法 お よび その 機能 
E95F 99 ТОРТ: DEFB e Nas- BASIC (変更 すれ ば N-BASIC 可 ) t= ド で 
E969 99 TOPU: DEFB 9 CLEAR, &HDFFF О 
E961 99 TOPV: DEFB 9 を 実行 後 , プ ログ ラム を 入力 。 そ し て , 
EE E062 00 TOPU: DEFB 9 MON O 
Ios E063 00 TOPX: DEFB 9 ] 60000 
boe E964 00 TOPY: DEFB 9 M 
E965 00 TOPZ: DEFB 9 15 
E066 END 以上 で RUN を 除く すべ て の ステ ー ト メン ト が ダイ 


レク トモ ー ド て 実行 不可 能 に な り ま す が , プロ グラ 
ム 中 で は ほか の ステ ー ト メン ト も 実行 可能 で す 。 た 
だ し , プロ グラ ム の 変更 は で きま せん 。 
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リス ト 出 力 
Eu л 


リス ト の 出力 は 中 間 言 語 へ の 変換 と は ま 
っ た だ く 逆 の 作業 で す 。 テ キス ト は メモ リ 中 
に リン ク ポ イン タ , 行 番号 , 中 間 言 語 の 順 
で 並ん で いま す 。 そこ で リス ト を 出力 する 
と き に は リン ク ポ イン タ が 0000H で な いこ 
se (0000H の 場合 は テキ スト エン 

‚ 次 に 行 番号 を 出力 , そし て 中 間 言 語 
* スト 形式 に 直し て か ら 表 示 , 最後 に 改行 
と いう 手順 を ふみ ます 。 

ここ で 重要 な の は 中 間 言 語 を リス ト 形 式 
に 直す ルー チン で , HL レジ スタ 対 に 中 間 
言語 の トッ プア ドレ ス を 入れ て 

CALL 5762H (N) 

CALL 194CH (N88) 

を 実行 する と イン プッ トバ ッ フ ァ に リス ト 
形式 で 格納 され ます 。 そして, それ を 出力 
する に は HL レジ スタ 対 に イン プッ トバ 
ッ フ アァ の トッ プア ドレ ス を 入れ て 


CALL 5759H (N) 
CALL 1933H (N88) 
tU 3 оаа ее 
CALL 47DDH (N) 
CALL 5 A69H (N88) 
と な っ て いま す 。 

話 を 元 に も ど し て , リス ト 形 式 へ の 変換 
ルー チン は 先程 の キー ワー ド テ ー ブ ル の デ 
ー タ の み (ポイ ンタ は 無視 ) を 参照 し て い 
ます 。 したがって, も し 中 間 言 語 へ の 変換 
ルー チン テー ブル を 書き 替え た 場合 は この 
ルー チン で 参照 し て いる デー タ も 書き 替え 
る 必要 が あり ます 。 そ うし な いと , 入力 し 
だ けれ ども リス ト を と っ た らち が う 命 令 に 
な が っ で し まっ た とら の こと が 志 だ 52x33: 

N-BASIC で は HL レジ スタ 対 に キー ワ 
ー ド デー タ の (トッ プア ドレ スー 1), TX 
わ ち 34F4H を 5815H で 設定 後 , 5818H で 

CALL FICEH 

と し て いま す の で これ を 利用 し て HL レ ・ 
ジス タ 対 の 値 を 変え ん る こと が で きま す 。 

一 方 , Nss-BASIC で は 1A48H で 

CALL ED1BH 
を 実行 後 , 1A4BH で デー タ の アド レス を 


w w ve «e 


@ВАА 


E000 
E003 
E006 
E009 


21BD33 
111AE9 
91AA99 
EDB9 


; Сору 
E99B 
E99E 


E911 
E914 
E017 


2A3AE9 
2252E9 


211AE9 
2252EA 
C3665C 


E91A 
E91A 


CMDTBL : 


. 
, 


E9C4 


LPRINT -> PRINT 


Copyright (C) by T.Suzuki 


ORG 9E999H 

EQU 3467?7H-33BDH コマ ンド テー ブル の 長 さ 
LD HL , 33BDH 

LD DE , CMDTBL テー ブル を コピ ー 
LD BC,BYTE 

LDIR 


PRINT -> LPRINT 


LD HL , (CMDTBL+33DDH-33BDH ) 

LD (CMDTBL+33F5H-33BDH ) , HL 

LD HL ,CMDTBL 

LD (9EA52H ) , HL 新しい トッ プア ドレ ス 
JP SCééH 

DEFS BYTE 

END 
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HL レジ スタ 対 に 与え て いま す 。 し た が っ 
て , ED1BH で 
JP JMPADR 
E 
JMPADR : POP HL 
LD HL デー タ ト ッ 2 
JP 1A4EH 
Епа сор 5, 


お わり に 
Е л 


今回 は 「BASIC イン タプ リタ の 構造 」 と 
題し て ステ ー ト メン ト の 処理 方 法 に つい て 
説明 し て きま し た 。 こ れ だ け 分 か れ ば , Ж 
定義 命令 の 名 前 を 書き 替え て 新しい 命令 を 
作っ た りす る こと が で きる . と 思い ます 。 だ た 
だ し , BASIC イン タプ リタ は 複雑 に で き て 
いる の で , 細か な と ころ まで 気 を つけ な い 
と 簡単 に 誤動作 し ます 。 変更 や 拡張 を 行う 
場合 に は 十分 気 を つけ て くだ さい 。 

@ 実 行方 法 お よび その 機能 

N-BASIC モー ド で 

CLEAR 300, &HDFFF О 
を 実行 後 ,。 プ ログ ラム を 入力 。 そ し て , 


MON Q 

* СЕ000О 
JB 

OK 


以上 で LPRINT 文 が PRINT 女 と 同じ に な り ま 
す 。 元 に も どす に は EA52H か ら BDH, 33 
ВЕ уат, 


LPRINT の 処理 アド レス を 
PLINT 命 令 の 処理 アド レス と 一 致 さ せる 


| 


スー バ パー88 シ リー スズ の 


1984 年 5 月 号 
1984 年 10 月 号 
1985 年 6 月 号 
1985 年 2 月 号 


1985 年 6 月 号 
1984 年 7 月 号 
1984 年 8 月 号 
1984 年 1 月 号 
1984 年 12 月 号 
1985 年 1 月 号 
1985# 4 月 号 
1985# 5 月 号 
1984 年 9 月 号 


すべ て 


1984 年 5 月 号 一 1985 年 5 月 号 


スー パー シス テム 88 <PART 1 > 
スー パー シス テム 88 <PART 2 > 
オー バレ イ ・ ス ー パ ー シ ス テム 88 
スー パー コマ ンド プラ ス 

チェ ッ ク ・ ザ ・ ス ー パ バー88 
スー パー モニ タ 88 «PART 1 > 
スー パー モニ タ 88 «PART 2 > 

スー パー セー バ 88& ス ー パ ー モ ニタ 88 
スー パー ファ イル エディ タ 88 

スー パー ファ イラ ー88 <PART 1 > 
スー パー ファ イラ ー88 <PART 2 > 
スー パー ディ スク エディ タ 88 (PART 1 > 
スー パー ディ スク エディ タ 88 «PART 2 > 
スー パー ユー ティ リティ 88 


3 3 3X 3 3 3X X 3 X X X X X 3 


33 x m om 3 m om x m m 3 om om 


PC-8801 _ 


スー パー シス テム 88 


J jk X 


1984 年 5 月 掲載 


こん な プロ グラ ム で も ディ スン ク で 入出 力 


スー パー シス テム PARTI 


SS88 の 概要 
mE e n 


PC-8801 に は ユー ザー が 使用 で きる エ 
リア と し て ROM BASIC で 約 234KK バ イト 
あり ます が , DISK BASIC 起 動 時 に は 約 13 
K バ イト と , 大 幅 に 減っ て し まい ます 。 こ 
れ は , シス テム ディ スク が 大 胆 (? ) に フ 
リー エリ ア を 使っ て いる た めで , この た め 
{зл CIA Bats m TAD 
ディ スク で は 入出 力 で どき な いと いう こと が 
し ば し ば 起こ っ て し まい ます 。 

そこで, この スー パー シス テム 88(SS88) 
の 登場 で びす 。 こ の シス テム は 使用 エリ ア を 
約 4 K バ イト と コン パク ト に し , Um» bi 
常 は と ん ど 使 われ な い テ キス ト エ リア の 
7100H~83FFH に モッ ト し ます 。 これ に よ 
ot —3—3 c0 2335-947 は 
ROM BASIC と 同じ 〈 約 24KK バ イト と な 
0, いま まで テー プ で し か 入 量 力 で き な か 
っ た プロ グラ ム が ディ スク で も 入出 力 で き 
O b EE 

そし て さら に , ディ スク へ の セー グ , n 
ー ド が 従来 の シ と ステ ム デ イィ スク と まっ た く 
同じ と , 互換 性 に も 配慮 し まし た 。 し た が 
っ て , 従来 の シス テム ディ スク で セー ブ き さき 
れ だ た プロ グラ ム は BASIC で も マシ ン 語 で 
b, この SS88 を 使っ て ロー ド で き , 5588 
用 に セー ブ し な お す 必 要 は あり ませ ん 。 

そし て その セー ブ , ロー ド の スピ ー ド は 
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従来 より も 2 一 3 倍速 く な っ て いま す 。 

を そのほか, この SS88 に は マシ ン 語 プロ 
グラ ム の 開始 アド レス , 長き を 調べ る コマ 
ンド や BASIC 復活 コマ ンド , 画面 の 高速 
消去 コマ ンド な ど , 新しい 命令 が 用 意 る れ 
て いま す 。 


プロ グラ ム に 
つい て 


プロ グラ ム は C000HーCEFEFH に あり , 
モニ タモ ー ド で リス ト 1 を 入力 後 , 
]GC000 О 
と する と , いずれ か の ドラ イブ に フォ ー マ 
ッ ト る れ て いる デイ スク を も セット する よう 
に 指示 し て きま す 。 そこで , ディ スク を セ 
> F L Z, ROEDA フト ポン ジミ ー を 入力 し 


i33 6 

sure (y/n) ? 
Lc add そ で で Y を 入力 する 
t, 指定 きれ た ドラ イブ に セッ ト さ る れ た だ デ 
ィ ス ク 上 に 5588 が 書き 込ま れ 終了 し ます 。 
n を 入力 する と , 5 1 度 ド ライ ブナ ン バ 
ー の 入力 か ら や りな お し と な り ま す 。 

プロ グラ ム の 詳細 に つい て は 長く な る の 
で 省き ます が , BLOAD に つい て の フロ ー 
チャ ー ト を 図 1 に 示し ます 。 簡単 な 図 で す 
が , ほか の コマ ンド も だ いた い 似 た よう な 
も の で すか ら , くわ し く 知 り た い 方 は これ 
を 参考 に し て 解読 し て みて くだ さい 。 


使い 方 
к л 


使用 で きる コマ ンド と その 機能 は , XI 


ear Š E. ВЕ 
BLOAD マシ ン 語 ファ イル の ロー ド (R オ プシ ョ ン 可 能 ) 
BSAVE マシ ン 語 ファ イル の セー ブ 
LOAD BASIC フ ァイル の ロー ド (RH オ プシ ョ ン 可 能 ) 
SAVE BASIC フ ァイル の セー ブ 
RUN BASIC フ ァイル を ロー ド し 実行 
KILL ファ イル の 削除 
NAME ファ イル 名 の 変更 
SET ファ イル 属性 の セッ ト , リセ ッ ト 
CMD A マシ ン 語 ファ イル の アド レス を 与え る | 
CMD CLS グラ フィ ッ ク 画 面 の 高速 消去 
CMD NEW BASIC プ ログ ラム の 復活 


の よう に な っ て いま す 。 それ ぞ れ の コマ ン 
ド に つい て の 詳細 は , 次 の よう に な っ て い 
з 


BSAVE, BLOAD, LOAD, 
SAVE, KILL, NAME 

使い 方 は 従来 し まっ た 〈 く 同じ で すか ら , 
PC-8801 リフ ァ レ ンス マニ ュ ア ル を 参照 
UC C SS 
RUN 

使い 方 は 同じ で す が , ファ イル ディ スク 
リプ タ を つけ る 場合 , R オ プシ ョ ン を 設定 
し て も 無視 きれ ます 。 だ だし, エラ ー は 起 
СТ setas 
SET 

使い 方 は 同じ で す が , 使用 で きる 属性 文 
字 は P の み で , モッ ト で きる の は 1 つの フ 
ァイル に 対し て の み で す 。 ま た , 属性 の 解 
除 は 属性 文字 が ヌル スト リン グ で あっ た 場 
合 の み で , ほか の 文字 で あっ た か ら と いっ 
て , 属性 が 解除 きれ る こと は あり ませ ん 。 
FILES 

機能 は 同じ で す が , ファ イル 名 の 表示 形 
式 が 図 2 の よう に な り , 使い 方 も 次 の よう 
に 変更 きれ て いま す 。 

まず , 

FILES © 
IC フ ァイル 名 が いく つが ジテ イル ディ スス 
クリ プ タ の 形式 で 表示 され ます 。 フ ァイル 
の 数 が 少な いと き は 1 画面 で 終了 し ます が , 
まだ 残っ て いる と き に は キー の 入力 待ち と 
な り ま す の で , RETURN キー か STOP + 
ー を 押し て くだ さい 。RETURN キー を 押 
す と 湊 の ファ イル 名 が いく つか 表示 きれ, 
STOP キー を 押す と 終了 し ます 。 な お , フ 
ァイル 名 の 行頭 に M と ある の は マシ ン 語 フ 
ァイル で , B と ある の は BASIC の ファ イ 
C, 何 も な い の は それ 以外 の ファ イル で 
E 

ファ イル 名 は ファ イル ディ スク リプ タ を 
作成 し て 表示 され ます の で , ロー ド し た い 
ファ イル が あれ ば , その 行頭 に カー ツル を 
移動 きせ , | f・1 | (また は [| f・2 |) を 押せ 
ば LOAD 文 が 簡単 に 作成 びき ます 。 も ちろ 
ん 削除 し た けれ ば KILL と 入力 し て くだ 
SU, なお, ファ ンク ショ ン キ ー は 表 2 の 
ょ うに 変更 きれ て いま す 。 
CMD. A 

この コマ ンド は マシ ン 語 ファ イル の 開始 


155088 
BEGAP -formatn88 


*backupo88 


ウイ ンド ー ア ドレ ス を 実 アド > 
1554 
: 


:OPEN 


:hexdata 

オー ル RAM モ ー ド に する 
:KOBAYASHI^ 
:kanjidata 7 


ドラ イブ 番号 を セッ ト :JwPB 
図 2 


R オ プシ ョ ン を 設定 


R オ プシ ョ ン フ ラグ を 立て る 
する か ? T bs 


ディ レク トリ を 読み 込み , 7 
ァイル を 検索 する 


ファ イル が 存在 
する か ? 


エラ ー(File not fonud) 
NO 


YES 


FAT を 読み 込む 


先頭 クラ スタ を 読み 込む 
開始 アド レス , 終了 アド レス 
を セッ ト 


次 の クラ スタ を 読み 込む 


_ 
YES 
オー ル RAM モ ー ド 解除 
実 ア ドレ ス を ウイ ンド ー ア ド 
レス に も どす 


開始 アド レス より 実生 
YES 
N 


0 
RETURN 
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アド レス と その 長 さ を 調べ る た め の コ マン 
ECO оа рз; 

CMD___A く ファ イル ディ スク リプ タ > 
т, その 行 に 

, 〈 開 始 ア ドレ ス >, < 長き > 
の 形 で 表示 る れ ま す 。 

この コマ ンド を 使う と , 簡単 に マシ ン 語 
ファ イル を 別 の フロ ッ ピ ー に ユ コピー する こ 
と が で きま す 。 ま ず , BLOAD を 使っ て コ 
= yai ЕЕ ЧЕ 
BLOAD#CMD. At & m L, RETURN 
キー を 押し ます 。 す る と , 開始 アド レス と 
長き る が 表示 され ます の で , 今度 は CMD , 
А を BSAVE に 書き 替え , ドラ イブ 番号 を 
直し て RETURN キー を 押し ます 。 これ で 
コピ ー が 完了 し ます 。 
CMD. .CLS 

グラ フィ ッ ク 画 面 の 高速 消去 ちあ す る コマ 
AECT. 
СМР, .NEW 

1E NEW 命令 で 消し た BASIC プロ グ 
ラム を 復活 させ る コマ ンド で す 。 


注意 事項 を 
いく ぐつ か 


F21EH ~ F2FFH 550 F320H— 
F 340H に は ジャ ンプ テー ブル な ど が 置 
か れ て いま す の で , 使用 し な いで くだ さい 。 
また だ エラー メッセ ー ジ と し て , 

? Text not exists 
が 新しく 加え られ て いま す 。 こ む は : 
BASIC プ ログ ラム が 存在 し な い の に 
SAVE を 実行 し た 場合 に 表示 きれ ます 。 

ま た, この SS88 は PC-8801 十 PC-80S31 
また は PC-8801MK II model30 を 対象 と 
し て プロ グラ ム さ る され て いま す の で , これ 以 
外 で は 正常 に 動作 し な いか も し れ ま せん 。 


тр. load. ` 
172 bload. ` 

f*6 | Save. aa" 
fra | bsave—“ 


表 2 フ ァ ン クシ ョ ン キ ー の 変更 
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スー バー シス テム PART 2 


スー パー 


PC-8801 


小林 {я 


1984 年 10 月 掲載 


スー パー シス テム を 
強 化 


スー パー シス テム 88PART II は 、 現在 の 
スー パー シス テム 88 の 欠点 も カバ ー す る も 
の で , ディ スク 内 の メモ リ を 使う こと に よ 
О 9 WS つっ そう スリ ニニ エリ ジア を 広げ ni い 
まま で “Out of memory” と な っ て いた 30 
K バ イト を 越え る BASIC プロ グラ ム も 入 
出力 で きる よう に な り ま し た 。Simple 
Type と し て 立ち 上 げ る と , フリ ー エ リア 
が (54… byte) と 表示 る され ます が , この 
表示 に か か わら ず , アド レス 0000H 
BS5RRH を ジリ ー エ リア と じ で 使用 で き 
ます の で , この 表示 は 無視 し て か まい ませ 
ho ik, スピ ー ド も スー パー シス テム 88 
より も いく 分 アッ プ し て お り ,NEC の シス 
テム ディ スク で は 起動 まで 約 38 秒 か か っ て 
いた E 社 の 某 ゲ ー ム ソフ ト を 約 13 秒 で 起動 
させ る こと が で きま し た 。 

この ほか に も , スー パー シス テム 88 で 欠 
け て いる 点 を 改良 し て いま す 。 

ただし, これ は あく まで 現在 の スネ メー パー 
シス テム 88 を カバ ー す る た め の も の で , ik 
し て 決定 版 し いえ る よう な も の で は あり ま 
せん 。 ス ピー ド が 速く な っ た と いっ て も 。, 
それ は 現行 の NEC の シス テム ディ スク が 
遅 す ぎる だ け で , まだ まだ スピ ゼー ドア ッ プ 
で きる よう で す 。 ま た , ゲー ムロ ー ダ 的 性 
格 が 強く , シー ケン シャ ルフ ァイル な ど は 
RI TESTS XA. 
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プロ グラ ム 
L — 


ジョ クラ 449 ЖЫЛ 2s:30434241 
Ax CNV базу И т Лх x 
ム 上 で 起動 する も の で , リス ト 2 は その た 
め の 変 更 用 プロ グラ ム で す 。 残り の リス ト 
3 は この スー パー シス テム 88PART II を 
狐 立 に 使う た め の プ ログ ラム で す 。 つ まり , 
DE SECO AP AAT IS А 
れ だ け で DOS と し て 使え る よう に する だ た 
め の プ ログ ラム と いう こと で す 。 

で は , それ ぞ れ の 詳細 を 説明 し まし ょ う 。 
まず , スー パー シス テム に 組み 込む 場合 で 
す が , この 場合 は リス ト 1 を 打ち 込み ます 。 
完全 に 打ち 込め た ら 6, 

BSAVE “SS.G1” , &HD000, 
&H1300 Q 

Е КАЛАСЕ Ша EZ TU UU 
ー ム は いつ も の よう に 必ず 大 文字 で SS.G1 
EON SWS 

Z Gd uq Cedo DPA TOE AS 88 
を ディ スク に セッ ト す る プログ ラム (5 月 
号 に 掲載 し て 7 月 号 で オー トス ター ト 機 能 
を つけ る ため に バー ジョ ン ア ッ プ し た ) を 
ロー ド し て , リス ト 2 の よう に 変更 し て 〈 
だ きい 。 変更 し た ら , モー し て お いて 〈 く 
だ きい 。 アドレス は CO000H~DOFFH C 
す 。 今後 「SS88 セッ ト 用 プロ グラ ム 」 と い 
えば , この 変更 を 加え を た プログ ラム の こと 
e 

変更 を 完了 し た ら , モニ タモ ー ド で 


]GC000 © 

と し て ,SS88 を ディ スク に セッ ト し て くだ 
きい 。 これ で 完了 で す 。 

で は , 次 に この SS88PART Il を 独立 し 
K DOS と し て 使う 場合 を 考え ます 。 こ の 
場合 は リス ト 1 に 加え て , リス ト 3 を 打ち 
込ん で くだ さい 。 リ スト 1, 3 と も 完全 に 
打ち 込め た ら フ ォ ー マ ッ ト ず み の デ ィ ス ク 
を ドラ イブ "1 に セッ ト し, モニ タモ ー ド で 

]GCC00 Q 

と し て くだ さい 。 これ で , SS88PART II が 
ドラ イプ 1 に セッ ト され た ディ スク に 書き 
込ま れ ま す 。 こ れ は , スー パー シス テム と 
は 完全 に 独立 し て いま す の で , これ だ け で 
立ち 上 が り , SS88 PART II が 使 を る 4 よう 
に な り ま す 。 も ちろ ん , オー トス ター ト 機 
能 ち も つい て いま す 。 


使用 方 法 
к л 


まず , スー パー シス テム 上 で 起動 きせ る 
場合 は タイ プ セ レク ト で 1 の Simple type 
を 選ん で 《 だ さい 。 リ スト 2 に よっ て Sim- 
ple type を セレ クト し た 場合 , 今回 の SS88 
PART II が セッ ト る れる よう に な っ て い 
ます 5 

次 に , 独立 し た DOS と し て 起動 きせ る 
場合 で す が , この 場合 は リモ セット を か け て 
立ち 上 げ れ ば OK で す 。 

で は 各 コ マン ド の 説明 に 入り ます 。 

使い 方 は スー パー シス テム 88 と ほぼ 同じ 
で す 。 使用 で きる コマ ンド と を その 機能 は 表 


1 の よう に な っ て いま す 。 表 1 を ご 覧 に な 
れ ば 気づか れる と 思い ます が , 今回 の この 
PART II で は , 

CMD CLS 

CMD NEW 
の 2 つの コマ ンド は カッ ト さ れ , 代わ っ て 
CALL コマ ンド が 追加 る きれ て いま す 。 TE 
意 《 く だ さい 。 

で は , それ ぞ れ の コマ ンド に つい て くわ 
し 説明 し ます 。 
BSAVE, BLOAD, LOAD, SAVE, 
KILL, NAME 

使い 方 は まっ た く 同 じ で す 。 PC-8801 Y 
ファ レン スマ ニュ アル を ご 参照 くだ きい 。 
RUN 

使い 方 は 同じ で す が , ファ イル ディ スク 
リプ タ を つけ る 場合 , R オ プシ ョ ン を 設定 
し て も エラ ー に は な り ま せん が , 無視 され 
t 
SET 

使い 方 は 同じ で す が , 使用 で きる 属性 文 
字 は P の み で , モット で きる の は 1 つの フ 
ァイル に 対し て の み で す 。 ま た 属性 の 解除 
は 属性 文字 が ヌル スト リン グ で あっ た 場合 
の み 行 われ , ほか の 文字 で あっ た か ら と い 
っ て 属性 が 解除 きれ る よう な こと は あり ま 
せん 。 
FILES 

機能 は 同じ で す が , ファ イル 名 の 表示 形 
式 が 図 1 の よう に , まず その ディ スク の 空 
き ク ラス タ 数 が 表示 る れ , 続い て ファ イル 
名 が スー パー シス テム 88 の 場合 と 同じ よう 
に 縦 に 表示 る きれ ます 。 こ の と き , 行頭 に は 
スー パー シス テム 88 と 同じ よう に ファ イル 
の 種類 (M… マ シン 語 , B…BASIC) が 表 
meni, この PART II で は る さら 6 に 
その ファ イル の 長き (使用 クラ スタ 数 ) が 
表示 され る よう に な っ て いま す 。 

о А ОВО СЕ 0З 

Ht etitce 
Free Cluster・・・ 
*1:SS 
"1:55 
"1:55 
21:55 
"1:55 


"1:KOBAYASHI ` 
Кен F1 ` 


"1 :SS88.NO1 " 
"1 :DATA 
1181573710" 


M3 
M2 
M 1 
M 1 
M2 
7 
M2 
В 9 
M 3 
B 3 
2 
M3 


ファ イル を 表示 し て , RETURN キー を 押 
す と 湊 の いく つか を 表示 し まし た が , 
PART II で は ファ イル が 次 々 に 表示 され 
て いき , RETURN キー が 押 き る れる と 一 時 
停止 し , STOP キー が 押さ れる と 中 止 する 
よう に な っ て いま す 。 な お ゎぉ, 一 時 停止 きせ 
た 場合 は も う 1 度 RETURN キー を 押せ 
ば 表示 が 再開 され ます 。 

ファ イル 名 は いずれ も ファ イル ディ スク 
リプ タ を 作成 し て 表示 る され ます の で , ロー 
F ド し た だ たい ファ イル が あれ ば その 行頭 に カー 
ツル を 移動 し | f・1 | キー( ま た は [| f・2 | 
キー) を 押せ ば LOAD 文 が 簡単 に 作成 で き 
ます 。 も ちろ ん , 削除 し た けれ ば 

KILL 
と 打っ て くだ さい 。 

な お , ファ ンク ショ ン キ ー は 表 2 の よう 
に 変更 きれ て いま す 。 
CMD A 

この コマ ンド は マシ ン 語 ファ イル の 開始 
アド レス と その 長 さ を 調べ る だ た め の コ マン 
b 

СМрА . 327422 422 ITA” 
で , その 行 に 

, (開始 アド レス ), (K3) 
の 形 で 表示 る れ ま す 。 

この コマ ンド は 単に アド レス や 長き を 調 
べ さる だ け で な く , 次 の よう に する と 簡単 に 
マシ ン 語 ファ イル を 別 の ディ スク に コピ ー 
する こと が で きま す 。 

iT, BLOAD コマ ンド を 使っ て コピ ー 


RM De u 


TN. m と У a de] aet is eu J 
Gl マシ ン 語 の ファ イル を ロー ド す る 


マシ ン 語 の ファ イル を セー プ ブ す る 
上 


LOAD BASIC の ファ イル を ロー ド す る 

L+ 
SAVE BASIC の ファ イル を セー プ ブ す る 
RUN BASIC の ファ イル を ロー ド し 実行 する 


KILL ファ イル の 削除 


ファ イル 名 の 変更 


SET ファ イル の 属性 の セッ ト , リセ ッ ト 


4l 
マシ ン 語 の ファ イル の アド レス を 表示 する 


CALL マシ ン 語 の ファ イル を 実行 する 


表 1 コマ ンド 一 覧 表 


し た 2 フ ョ アイ ルン を ロード し お あの Rd 
BLOAD' の 部 分 を CMD A' に 書き 替え , 
RETURN キー を 押し ます 。 す る と , 開始 ア 
ドレ ス と 長き が 表示 きれ ます の で , 今度 は 
‘CMD A' を "BSAVE' に 書き 替え ん, ドラ イブ 
番号 を 直し て RETURN キー を 押し ます 。 
これ で コピ = カ 宮 ます Ss 
CALL 

使い 方 は ほとん ど 同 じ で すか ら , PC- 
8801 リ ファ レン スマ ニュ アル を ご 参照 く 
だ さき るい 。 た だし, 実行 アド レス は 直接 入力 
で きる よう に し て あり ます の で , CO00H か 
ら 実 行 し た い 場 合 は , 

CALL &HC000 Q 

TOR OT: 


使用 上 の 注意 
Eus 


SS88PART II の 使用 エリ ア は 表 3 の よさ 

うに な っ て いま す の で , この 部 分 は 書き 替 
X1: ОЗ yp us A Sp a だ Ya 

ou E ER TITRE ub SUN 
ХАЖ <, "Text not exists” な ど は カッ 
ト る れ て いま す の で , あし か ら ず 。 

次 に , 今回 の SS88PART II は スー パー 
シス テム 内 で は SS.G1 と いう ファ イル で 
セー ブ る れ て いる わけ で す が , この 追加 き 
れ だ SS.GI & い 9 ジイ ル を ンジ > 
ト 時 に ュ ピ ー す る だ め に , スー パー ユー ティ 
リティ 88 の リス ト 1 を リス ト 4 の ょ うに 変 
更 し て お いて くだ さい 。 も ちろ ん , 変更 し 
だ 191005 SL G SS.B と いり 7334 
ル 名 で セー ブ し て お いて くだ きい 。 こ の 変 
更に よっ て , 今回 の SS.G1 も フォ ー マ ッ ト 
時 に 一 緒 に ユ ピ ー さ る れる よう に な り ま す 。 

まだ, この SS88 PART II も あく 〈 く まで, 
PC-8801 + PC-80S31 ài た は PC-8801MK 
II model30 を 対象 と し て プロ グラ ミン グ 

きれ て いま す の で , これ 以外 で は 正常 な 動 
作 は 保証 びき ませ ん 。 


Ic load..." 
E bloaa" BUE 
f・6 Save. as" F2IEH—F2FFH, F320H—F30C7H 
tv bsave. ,` ディ スク 6000H 一 6FFFH 

表 2 ファ ンク ショ ン キ ー の 変更 表 3 使用 エリ ア 


63 


0100 : ES CD 59 F2 СО F2 F2 A? C2 82 F2 CD F2 F2 SF 16 : B1 
ОШО : OQDE1.19 ES ED TF25F2 S2.FE FF 21 ВР EC 086 09 CD : 37 
D129 : F2 F2 ?? 23 10 F9 E1 C9 11 00 60 01 40 00 CD 6D 1D 
DIS8 : F2 06 40 ТЕ СО ЕВ F2 23 10 F9 C9 11 00 61 C3 SF : Eé 
0140 : F2 ЗЕ 9D CD DE F2 7A CD ЕВ F2 7B CD ЕВ F2 C9 ЗЕ : 24 
0150 : 9C CD DE F2 7A CD ЕВ F2 ?B CD ЕВ F2 78 CD E8 F2 : 0B 


0180 : 72 28 ӨВ CB 6B CO Eé 18 Fé 20 47 7D 18 ӨЗ 2C 2D : EZ 
Di90 : СӘ FE 38 C0 2А C9 CE 2B 2B AF СЗ B4 ЗЕ F5 ЕЗ ЗА : 6B 
D1A9 : C2 Eé Fé 02 03 31 32 C2 Eé. F1 C9 F5 ЗА C2 Еб E6 : F5 
DIBO : FD'D3 3I 32-C2 EG FB FiCS ES SE 91 D3 FF E1 C9 : CO 


ADRS.: 0.31 +2 +3 +4 49 +é t7 48.49 +A TB +C +0 +E +F :SUM 
D499 : 13 7E 23 FE 20 28 ҒА А? 28 06 FE ЗА 28 02 18 04 : 47 
0410 : C1 ЗЕ 01 C9 Е1 AF 2B C9.21 72 62 DD 21 62 62 ES : E9 


D439 62 21 00 50 ES 11 40 60 06 09 ?E FE FF CA 5B 62: 7А 
D449 7E 4F 1А A9 20 0B 23 13 10 F6 C1 3E 00 32 9E 62 28 
D450 CEL 11 18.08 19 ZC FE 3C 20 D9 3E FF 32 9R 62 1'22 
D469 C1 C9 CB 46 28 13 EB 23 22 FB 62 AF CD 9F 07 C3 : B8 


D490 10 3A FF 62 4F 11 01 25 21 00 50 СЗ 9C 64 00 96 : DB 
D4A9 99 FE 04 38 05 Dé 94 04 18 F7 FE 93 CC CB 62 FE : 24 
D4B9 02 CC 03 62 FE 01 CC DB 62 А? CC E2 62 78 32 FD : 69 
D4C9 62 79 32 FE 62 C9 78 80 3C 4? C9 CD C6 62 ӨЕ 09 : 86 
D4D9 ЗЕ 03 C9 СО Сб 62 9E 01 ЗЕ 02 C9 CD CB 62 05 ЗЕ : 54 
D4E9 91 C9 CD 03 62 05 C9 2А FB 62 TE F5 CD 9F 62 F1 t 53 
D4F9 21 99 5D 16 00 5F 19 22 FB 62 C9 FE 22 20 97 13 : AE 


ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
D700 : FF 28 11 7E CB 67 C2 63 65 23 22 FB 62 60 69 36 13 
D710 : 00 CD 6E 65 CD 49 67 02 50 65 ES CD 7@ 67? D2 50 : AF 
D720 : 65 E1 FS 11 40 60 06 09 1А 77? 13 23 10 FA ЗА 08 : OE 
0730 : 64 77 F1 23 77 21 5B 65 22 FB 62 32 5B 65 CD DA : SF 
D740 : 65 AF CD OF 07? СЗ C1 00 ЗЕ 80 32 08 64 СЗ F? 64 : F? 
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+1 +2 +3 +7 
00 00 00 ee 
78 C2 06 C2 


C292 сезе ЗА 3 
CC9B : CCOC E VE = 
CC9F CE23" t E 


+С +0 
ов oe 
ЕВ F2 


214 < 
CC9D 
CF24 : 


| ^ 
アド レス : デー タ 
D13C : ЗА , 0146: 47 , D149 : 00 


+E +F 
ЗЕ 47 
2B C1 
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1985 年 6 月 掲載 


スー パー シス テム РАВТЗ 
MM 


は じ め に 
к 


今回 は スー パー シス テム 88 の オー バー レ 
i 

この オー バー レイ と は , MS-DOS ゃ 
CP/M に も 使わ れ て いる 方 式 で , ユマ ンド 
の 実行 に 合わ せ て ディ スク か ら 6 プログ ラム 
を 読み 込ん で 実行 する と いう も の で す 。 具 
体 的 に 説明 し まし ょ う 。 あ る 1 つの コマ ン 
ド を 実行 する t š, 当然 メモ リ 上 に その っ コ 
マン ド 用 の プロ グラ ム が 存在 し な けれ ば な 
り ま せん 。 が , それ は 実行 する と きのみ 必 
ЖТ, それ 以外 の と き は 不要 で す 。 も ちろ 
A, メモ リ に 余裕 が あれ ば , 使用 で きる コ 
マン ド の 全 プ ログ ラム を メモ リ 上 に 常駐 る 
せ て お おけ ば よい の で す が , メモ リ に 余裕 の 
な い 場 合 は そう は いき ませ ん 。 

そこ で , 使用 で き る コマ シド の ピロ グラ 
が を ディ スク に セ 二 ジジ UI で ち ね き , 各 コ マン 
ド 実 行 時 に その コマ ンド 用 の プロ グラ ム を 
ディ スク か ら メ モリ 上 に 読み 込ん で 実行 す 
る 。 を そう すれ ば , メモ リ を 節約 する こと が 
で きま す 。 

これ が オー バー レイ で す 。 

スー パー シス テム 88 は メモ リ 節 約 タ イプ 
の DOS で , Expanded type モー ド を 選択 
お る こ と に よっ て ,。 少な が い メ モリ で る ろ い 
ろ な ユー ティ リティ プロ グラ ム が 使用 で き 
る よう: 呈 な る で い ます 計 だ だ 球 天 所 を ユ 
マン ド 実 行 前 に 選択 し な けれ ば な ら な い の 
C, モー ド が 7 つ に まで 拡張 る きれ て くる と 


か な り 不 便 で す 。 

そこで, オー バー レイ 化 に よっ て , モー 
ド 選 択 な し に コマ ンド 一 発 で 実行 で きる よ 
うに し ょ うと いう の が 今回 の 目的 で す 。 

に Ear, RUSH 155880 
Expanded type に モー ド 選 択 が な く な り , 
自動 的 に を の コマ ンド 用 の プロ グラ ム が メ 
モリ 上 に 読み 込ま れ , 実行 され る よう に な 
b ます: だ も ん Z, 

CMDB Q 
と する と 自動 的 に SS.F1 が 読み 込ま れ , バ 
ッ ク ア ッ プ が 実行 きれ る と いう 具合 で す 。 


プロ グラ ム 
ЕЯ 


今回 の プロ グラ ム は リス ト 1 一 8 で す 。 
リス ト 1 が 今回 の オー バー レイ の メイ ン リ 
スト , リス ト 2 一 7 が 今回 の オー バー レイ 
化 に と も な う ス ー パ ー シ ス テム 88 フ ァ ミ リ 
ー の 変更 リス ト , リス ト 8, 9 が サー ビス 
リス ト で す 。 な お ぢ お, 変更 リスト は 変更 箇所 
の み で は 分 か り に くい と いう 多数 の 批判 を 
いた だ きま し た の で , 今回 は 変更 箇所 を 含 
む ダ ンプ リス ト を 1 ブロ ッ ク ご と に 掲載 し 
ま し た 。 変更 に 当たっ て は , 同時 に チェ ッ 
クサ ム も ご 確認 くだ さい 。 
で は , リス ト 1 を 打ち 込ん で くだ きい 。 
完全 に 打ち 込め だら, 
BSAVE 'SS. 13: , 
&HC000, &H400 О 
と し て , SSIB L い 5 Zy REET 
lir rau ute ОЯ 2Р4 


化 に よっ て , 従来 の SS. IS(ISET 用 プロ グ 
22) お よび SS.12, SS. R8, 55. 03 ii 
要 と な り ま す 。 

ここ まで で きた ら , 変更 リス ト の 対応 表 
( 表 1) に 従っ て ,。 スー パー シス テム 88 フ 
ァ ミ リー を リス ト 2 一 7 の よう に 変更 し て 
くだ きい 。 

対応 表 の 見 方 は た と えば リス ト 3 は 
SS. S1 用 の 変更 り スト と いう 具合 で す 。 Ж 
更 は スー パー ディ スク エディ タ の アド レス 
タイ プ を 使う の が 最も 簡単 で し ょ う 。 もち 
b^, 1 度 メ モリ 上 に ロー ド , 変更 し て か 
ら モ セー プ す る と いう よう に し て も が まい ま 
せん 。 なお, 変更 箇所 は 網 の か か っ た 部 分 
C, 各 リ スト と も ダン プリ スト の 1 ブロ ッ 
ク ご と 掲載 し て あり ます の で , チェ ッ ク サ 
ム も ご 確認 くだ さい 。 

完了 し た ら 変 更 し た スー パー シス テム セ 
ッ ト 用 プロ グラ ム を 実行 し 。 スー パー シス 
テム を オー バー ン レイ 用 の スー パー シス テム 
に 書き 直し て くだ る きい 。 

ARE] 対応 ファ イル 名 


2 55 • SI 
T 


w 
の 
の 
B 
1-08 


4 SS: Al 
5 SS- El 
6 スー パー シス テム セッ ト 用 プロ グラ ム 
7 SS- RI 


表 1 変更 リス ト 対 応 表 


使い 方 
E я 


スー パー シス テム 88 を 起動 する と , 従来 
と 同じ く タ イプ (Simple, Expanded) の 選 
RE LSD а š = U は 。2。 を 押し て 
Expanded type を 選ん で くだ さい 。 2 を 押 
Tt, ファ イル 数 設定 後 , 従来 び は モー ド 選 
択 し な り ま し た 。 オ ー バ ー レ イ さ れ た スー 
パー シ ス テム 88 で は , オー バー レイ 用 プロ 
グラ ジム が ロー ド さ れ て 完了 し ます 。 こ ね 
従来 モー ド 選 択 を 行っ て いた 全 モ ー ド が っ コ 
マン ド 一 発 で 使用 で きる よう に な り ま す 。 
な お , オー トス ター ト は 少々 変更 きれ て い 
ます 。 (bL (it, オー トス ター ト の 変更 
の 欄 を ご 覧 くだ さい 。 

で は , 各 コ マン ド の 説明 に 入り ます 。 
コマ ンド は 従来 F む り に する と 重複 し て 
も まう の で (た と を ば , スー パー ファ イル 
エディ タ の CMD F と スー パー フォ ー マ ッ 
КОСМО F), 表 2 の よう に 再 構成 し まし 
だ 3 

使い 方 は 従来 し ほぼ 同じ で す 。 た と えば , 

CNDF Q 
と する と スー パー フォ ー マ ッ ト が 起動 し , 

CMD T Q 
と する と スー パー テー プ セ ー バ が 起動 し ま 
X 

従来 と 違っ て いる の は 以下 の コマ ンド で 
To 
CMD MON 

スー パー モー ニタ を 使用 し た 場合 は , CMD 
を つけ て , 

CMD MON Q 
と し て 〈《 だ さい 。 た だ だし, 1 度 CMD МОМ 
コマ ンド 実行 後 は , ふた たび ほか の CMD ュ 
マン ド ( 表 2 の * を 除く ) を 使用 し な い 限 
り 

MON Q 
で スー パー モニ タ が 使用 びき ます 。 こ れ は , 
スー パー シス テム 88 の オー バー レイ が コマ 
ンド 実行 の た びに その プロ グラ ム を ロー ド 
する の で は な く , すでに その プロ グラ ム が 
ロー ド き れ て いる 場合 は ロー ド せ ず , + € 
に コマ ンド 実行 に 移る あと いう よう に な っ て 
いる た めで す 。 つまり, 同じ コマ ンド を 2 
度 続 け て 実行 する L, 1 度目 は プロ グラ ム 
を ロー ド し ます が , 2 度目 は ロー ド し ませ 
ん 。 し た が っ て , 1 度 CMD, MON コ ユマ ンド 
を 実行 すれ ば スー パー モニ タ 用 プロ グラ ム 
が メモ リ 上 に セッ ト さ る れ て いる わけ で すか 
5, 次 か ら は MON コ ユマ ンド だ け で も スー 
68 


パー モニ タ が 使用 で きる と いう こと で す 。 
少々 や や こし いで す が , 使用 に 当たっ て 
は 上 記 の こと は シス テム が 自動 的 に 行っ て 
くれ ます の で , 考え な く て も けっ こう で す 。 
CMD OPEN 

シー ケン シャ ル と ラン ダム ファ イル を 使 
う 場合 , 必ず CMD OPEN ュ ユマ ンド を 実行 
し て 《 だ きい 。 

つま り , プログ ラム 中 で シー ケン シャ ル 
お よび ラン ダム ファ イル を 使う と き に は , 
その 直前 に CMD OPEN を つけ 加え て くだ 
さい 。 つけ 加 える の は 1 か 所 だ け で か まい 
ませ ん が , 途中 で ほか の CMD ユ マン ド ( 表 
2 の * を 除く ) を 実行 し た 場合 は , も う 1 
度 CMD OPEN ュ コマ ンド を 実行 し て な ぉ いて 
くだ きい (リスト 8 参照 )。 
CMD U 

これ は ユー ザー ブロ グラ ム 実 行 コ ユマ ンド 
T, シス テム 中 の SS.U1 と いう ファ イル を 
Bs U Sp СЫ 405 ИАА 
使用 者 の 作成 し た マシ ン 語 プロ グラ ム を シ 
ステ ム 中 に SS. U1 と いう ファ イル 名 で セ 
ー ブ し て お け ば ,CMDU コ マン ド で その プ 
ログ ラム を 実行 どき る と いう こと で す 。 
参考 まで に , コマ ンド リス ト 参 照 プ ゲロ グ 
ラム (リス ト 9) を 作っ て み ま し た の で , 
55. U1 と いう ファ イル 名 で セー プ し , 

CMDU の 
で 実行 し て みて くだ さい 。 コ マン ドリ スト 
表 が 表示 る れ ま す 。 

まあ , 簡単 に いえ ば , 

BEOAD''*SS^-UI* RO 
と 同じ と いう こと で す 。 どう ぞ , ご 自由 に 
ご 活用 くだ さい 。 
CMD Z 

これ は , シス テム の ドラ イブ を 変更 する 
コマ ンド で す 。 

従来 , Expanded type で モー ド 選 択 を 行 
う 場合 は 常に スー パー シス テム 88 の ディ ス 
ク を ドラ イブ 1 に モッ ト し て いな けれ ば な 
り ま ぜん で し た が オー バー レイ に と も な 
っ て ドラ イブ 2 で も 使用 で きる よう に し ま 
2725 

使い 方 は , 

CMD Z < ドラ イプ 番号 > О 
で す 。 た と ん えば, ドライ ジウ 1 コジ ス デム を 
セッ ト し て お (場合 は , 

CMD Z2 о 
と し ます 。 こ れ で , 以後 は CMD コ ユマ ンド ( 表 


2 の * を 除く ) 実行 に 当たっ て は , コマ ン 
ド 用 プロ グラ ム を ドラ イブ 2 か ら ロ ー ド す 
る 2 うに な り よ ます 。。 もし, F2471u5 
E したい 場合 は , 

CMD Z1 Q 
と すれ ば OK で す 。 


使い 方 の 注意 
p —— 3 


Expanded type で は , ファ ンク ショ ン キ 

ー| f・3 | が 
cmd — 
に 設定 る され ます 。 ご 利用 くだ さい 。 

CMD M ュ マン ド は , 従来 どなり, CMD 
MERGE で も 使用 で きま す 。 ま た , LOAD 
コマ ンド で ASCII セ ー ブ き され た BASIC 
ファ イル を 読み 込む こと も , SAVE コマ ン 
ド で A ォ プシ ョ ン を 使っ て ASCII セー ブ 
FASE cea d. 

テキ スト エディ ッ ト (ROLL UP, ROLL 
DOWN) も オー バー レイ 化 き され て いま す の 
€t. 使用 で きま す 。 

ir CMD FRYRE RIRE 
ー す る 場合 , SS. 12, 55. R8, 55. D3 は 不 
要 と な り ま し た の で コピ ー さ れ ま せん 。SS. 
U1 も コピ ー さ れ ま せん 。 も し , ユ コピー し た 
い 場 合 は 後述 の スー パー フォ ー マ ッ ト 変 更 
の 欄 を ご 覧 の 上 , 変更 し て くだ さい 。 

な お , オー バー レイ に と も な い , ファ イ 
ルポ イン タ は 91A0H と な り ま す 。 


オー トス ター ト 
の 変更 


ファ イル 数 を 設定 し, Expanded type で 
オー トス ター ト で き な い か と いう ご 要望 を 
いた だ だ き 検討 し て な お り ま し た が , 今回 の オ 
ー バ ー レ イ 化 に よっ て モー ドモ セレ クト が な 
く な り ま し だ た ので, 上記 の よう に 変更 する 
ご だ が で きま し だ 。 

この 変更 に よっ て , モッ トイ ン フ ォ メ ー 
ショ ン (CMDI で ファ イル 数 を 設定 し た 
場合 は 自動 的 に Expanded type が 選択 き 
п オー ドス ター ト し ます 。 も し 未 設 定 の 


場合 は タイ プ セ レク ト , ファ イル 数 設定 の 
qe NAR. 

だ た だ し , 以前 の まま で よい と いう 場合 は 
リス ト 6 の CE 02H を 37H に し て 〈 く だ さる 
い 。 これ で , Simple type で オー トス ター ト 
ずる の ば な うり 31. 


フォ ー マ ッ ト 変 更 
. ww 3 


ЛЕА om NFER の ドド は ジン ステ 
ムコ ピー 時 に CMD C コマ ンド を 利用 し て 
いま し た が , シス テム の 拡大 に と も な い リ 
スト 4 の よう に 簡略 化し まし た 。 

で は , リス ト 3 の ASCII ダン プ を ご 覧 く 
だ さい 。84ECH か ら 5M1M2S 1… と な っ 
て いま すね 。 これ は 。 シス テム ユ コピー 時 に 
コピ ー さ れる ファ イル 名 の 拡張 子 を 示し て 
UE IG SF OT SSN SSMS. 
oh ETE е Е ОА NDE Те 
す 。 し た が っ て , SS:U1 2 ws rubus 
時 に コピ ー し た いと いう 場合 は , ASCE 
ンプ の G 1 の 後ろ の に U 1 を つけ 加え て くだ 
る い 。 つ ま d, ASCII ダン プ の 84ECH か ら 6 
M1M2S1…G1U 1 と すれ ば 55. Ul 
AES OATS E VIC ЕТ kusa ata 
拡張 子 は 常に 2 文字 びな けれ ば な り ま せん 
OC, ご 注意 くだ さい 。 


お わり に 
. л 


ォ オー バー レイ 化 は いか が で し た か 。 これ 
©, モー ド を 考 た の こと な くけ べ : で の コー 
FAIRA gtx 51547803 し だ さら 
2 ぞ ご 活用 くだ さい 。 


マシ ン 語 ファ イル の アド レス の 表示 


ディ スク の バッ クア ッ プ 


ファ イル の コピ ー 


ディ スク エディ タ 


ファ イル エディ タ 


ディ スク の フォ ー マ ッ ト 


° 
< 
o 

o 全面 | m р осо [m > 


ファ イル の 使用 クラ スタ 数 , ディ スク の 空き クラ スタ 数 表示 


CMD ! ID セク タ 情 報 セ ッ ト 
CMD L BASIC フ ァイル (ASCII。 バイ ナリ ) の ロー ド 
ы CMD M BASIC7 7 1 JWASCI, バイ ナリ ) の マー ジ 
{г CMD MON 拡張 モニ タ 
Г СМО ОРЕМ シー ケン シャ ル & ラ ンダ ム フ ァ イル モー ド の 設定 
CMD S BASIC フ ァイル の ASCOII セ ー ブ 
CMD т テー ブ セ ー バ | 
CMD U ユー ザー 用 マシ ン 語 プロ グラ ム 実 行 
CMD Z* シス テム ドラ イブ 変更 
CMD CLS * グラ フィ ッ ク 画 面 の 高速 消去 
CMD NEW ж BASIC プ ログ ラム の 復活 
表 2 コマ ンド 表 *: シス テム 内 の 常駐 コマ ンド 
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9 5 
)*20/! =`t//”wú F 
A:m BN HE СЛ)! GA 
90+710 2 3 9 を ( 
318C«G:20' 2m PU 
›22с8› 2w-9''EhPU 
^п вис ^ глы сел 
M v?m! fl PU^PLA 
mA I»'CnPU^ P ВИ 
1З \РО € 1!0Ш 
APUJA) A77) A175 
^170)9mX7» ^17: 00 
^X7PIW^ X7» ^x7fK 
A^, ph ! u^ 7 AC 
2@ай ^ 20m. ! da^) 
UF e'SS.M1' M1M2 
S1F1D1D2E1A1R1R2 


[8499-8DCF 3 


0----5----А-..-.Е 
11131461 


es ee se se oo oo oo so ва so so se so oo so өз ee 


WIDTH 80,25:CMD CLS:CLS 

CMD OPEN:OPEN 'TEST' FOR OUTPUT AS #1 
A$2'SUPER SYSTEM" 

URITE #1,AS 

CMO C 'COPY':CMD OPEN 

В%= ° ATTENTION’ 

WRITE #1,В$ 

CLOSE #1 

ENO 


F2F 

83 35 El FE 03 СӨ 18 El OC 5B 20 53 55 50 45 52 : 71 
20 53 59 53 59 54 45 4D 20 38 38 20 2D 43 4F 4D : 1A 
40 41 ДЕ 44 20 4C 49 53 54 20 5D 20 20 20 20 20 : 99 
20 46 4F 52 20 41 4С 4С 20 44 45 41 52 20 52 45 : F3 
41 44 45 52 53 20 4F 46 20 4F 68 21 50 43 0A 9A : СЗ 
43 4D 44 20 41 20 А5 А5 А5 А5 AS AS CF ВС DD BA : 55 
C9 
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к А 


= 


SS RAMIS 


1985 年 2 月 掲載 


今回 は スー パー シス テム 88 で は 使え な く 
て 困る と クレ ー ム の 多い DSKF, DSKI$, 
DSKO$, WHILE, WEND を 取り 上 げ ま 
Дд» 

いずれ の コマ ンド も NEC の シス テム デ 
ィ ス ク に は 備わっ て いる も の で , この コマ 
ンド が な い だ た め に NEC の シス テム ディ イス 
ク に つい て いる format.n88, backup.n88, 
setinf.n88 な どの ユー ティ リティ プロ グラ 
ム が スー パー シス テム 88 で は 使え ませ ん 。 
これ で は , 困る と いう こと な の で , 今回 , 
コマ ンド を 追加 する こと に し まし た 。 し か 
Ea реген пе йу ЮЕ 8, 7 ДБ. А) уя 
を 犠牲 に し て し まい , スー パー シス テム 88 
の 本 来 の 意味 を 失っ て し まい ます 。 

を そこで, あの スー パー シス テム 88PART 
II で や っ だ よう に , ディ スク 内 の RAM を 
使っ て フリ ー エ リア の 犠牲 は 最小 限 に お る 
える よう に 工夫 し て み ま し た 。 具 体 的 に は 
後述 の 「 今 回 の ポイ ント 」 の 欄 に くわ し く 
書い て あり ます の で , そちら を ご 覧 くだ きる 
lac 

で は , プロ グラ ム の 説明 に 入り ます 。 


プロ グラ ム 
E 3 


今回 の プロ グラ ム は , リス ト 1 一 3 の よ 
うに な っ て いま す 。 リ スト 1 は 今回 の メイ 
ンプ ログ ラム スム で,。 リス ト 2, 3 は それ ぞ れ 
SS88 セット 用 プロ グラ ム の 変更 分 , SS. F1 
の 変更 分 と し な っ て いま す 。 

で は , リス ト 1 を 打ち 込ん で くだ さい 。 
72 


完全 に 打ち 込ん だ 6, SS. M と いう ファ イ 
ЖС, 

BSAVE “5. И” , 

&HC000, &H500 О 
BIG OTE eu sa 

次 に ,SS88 モッ ト 用 プロ グラ ム を リス ト 
2 の よう に 変更 し て くだ さい 。 こ の 変更 で 
ファ イル ポイ ンタ は 8FOOH と な b, 
8DD0Hー8EFEH に コマ ンド 用 の サブ 
ログ ラム が 入り ます 。 変更 し た ら モ ニタ モ 
5 

]GC000 © 
LUC, ディ スク に 変更 し た 5588 を セッ 
ト し て くだ きい 。 

それ か ら , 今回 の SS.14 と いう ファ イル 
を フォ ー マ ッ ト 時 に コピ ー す る よう , SS. 
F1 を リス ト 3 の 分 だ けり 変更 し て お いて さく 
ROT ре pU. 

以上 で 完了 で す 。 で は , 使い 方 の 説明 に 
入り ます 。 


使い 方 
L. 1 


今回 , 追加 きれ だ コマ ンド は 表 1 の 4 つ 
で す が , いずれ も 使い 方 は NEC の シス テ 
ム デ ィ ス ク の 場合 し まっ た (同じ で す の で , 
PC-8801 リ ファ レン スマ ニュ アル を 参照 
UC CI S, 

し か し , それ で は お も し ろく あり ませ ん 
の で , DSKF に 新しい 機能 を 追加 し て お き 
ا‎ 

その 機能 は , マシ ン 語 プロ グラ ム の アド 


レス サー チ 機 能 で す 。 
この アド レス サー チ 機 能 と は , スー パー 
シス テム 88 の CMD A と 似 た 機能 で , マ 
シン 語 プ ログ ラム の スタ ー ト アド レス と エ 
ンド アド レス を 調べ る こと が で きる も の で 
す 。 
使い 方 は , 
DSKF (0, 機能 , 
ファ イル ディ スク リプ タ ) 
C, 機能 は 1 が スタ ー ト アド レス , 2 が エ 
ンド アド レス と な っ て いま す 。 
だ た と えば ,SS.M2 の スタ ー ト アド レス を 
調べ た いと き は , 
?DSKF (0, 1, *5. М2) О 
と し ます 。 こ れ で SS. M2 の スタ ー ト アド 
レス が 表示 され る の で す が , 10 進 数 表示 き 
れ ま す の で , 
? HEX$ (DSKF 
(0,51, 55. М2) 20 
と し て 16 進 数 に する L, 確か に 65EO t X 
示さ る され ます ね 。 エ ンド アド レス の 場合 は 1 
を 2 に 変更 すれ ば OK で す 。 
。 フ ァイル ディ スク リプ タ に は 文字 
変数 も 使え を ます 。 た だ , エン ドア ドレ ス の 
場合 は 便宜 上 , 1 が プラ ス る れ て いま す の 
С. < ご 注意 くだ な るい 。 


今回 の ポイ ント 
E о, 


今回 の ポイ ント は , ディ スク 内 の RAM 
を 使っ て フリ ー エ リア の 犠牲 を 8DDOH 
—8EFFH に な さる えた だ たと いう 点 で す 。 


CDR MIDIS k を ご 
覧 に な か れ ば お 分 か り い た だ ける と 思い ます 
が , ディ スク 内 の КАМ の 7000H 以降 に ュ 
マン ド の メイ ンプ ログ ラム が セッ ト さ れ て 
いて , コマ ンド 入力 が 行わ れる と 8400H 
—8BFFH を ディ スク 内 の КАМ の 6800H 
—6FFFH に 移し , 続い て ディ スク 内 の 
КАМ の 7000H—77FFH を 本 体 の 8400H 
—8BFFH に 移し て コマ ンド を 実行 し , 終 
ТОТ. ある い は ,。 エラ ー と な る と ディ 
スク 内 の RAM の 6800H —6FFFH を 本 体 
の 8400H~8BFFH に も どす よう に な っ て 
いま す 。 こ ん な こと を する と 時 間 が ずい ぶ 
ん か か っ て し まい そう で す が , 800H バイ 
ト の 入力 に 0.15 秒 し か か か り ま せん 。 £8 
C, 約 0.45 秒 程度 です 。 も ちろ ん , 長い と 
いえ ば 長い か も し れ ま せん が , フリ ー エ リ 
名 柴 計 に あたる の と ここ うな うだ だ いう わ 
け で す 。 

それ か ら , も うお 気づき か も し れ ま せん 
が , この 方 法 で や る と まだ コマ ンド を 追加 
する 余裕 ( 約 500H バ イト ) が あり ます の 
C, CHAIN 文 な ど も, 追加 し て いき た いと 
思い ます 。 ご 期待 くだ きい 。 


お わり に 
E з 


いか が で し た か 。 今回 の 追加 で , 当初 
り ク レー ム が 多かっ た , format.n88 な ど が 
使え な いと いう 問題 は 解決 どき まし た 。 ど 
52, 存 分 に な 使い くだ さい 。 た だ し , v 
(分 時 間 は 遅く て なり ます が , まあ , これ で 
お 許し くだ さい 。 


DSKIS ディ スク か ら の 読み 込み 

DSKO$S ディ スク へ の 書き 込み 

DSKF ディ スク の 諸 元 を 与え る 

WHILE 条件 が 満た され て いる 間 繰 り 返 し 
ーWEND 実行 する 


表 1 コマ ンド 表 


< コマ ンド 入力 3 


[ 


本 体 8400- 8 BFF を ディ スク 
6800— 6FFF に 移す 


ディ スク 7000 一 77FF を 本 体 
8400— 8 BFF に 移す 


ディ スク 6800 一 6FFF を 本 体 
8400~ 8 BFF へ も どす 


#3 


を š 


WEE Ж 


5 
E 


АР 


PE 


d 
iu 


CFDA 
С1Р1 
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99 


CFOS 


ЕВ , CFE1 : 


EQ , D012 


8F 


0088 
: EO 


34 


チェ ッ ク ・ 


スー パー ご コシ 


РС-8801 


小林 46 


スー バー88 


1985 年 2 月 掲載 


リー ズ 番 外 編 


この スー パー88 シ リー ズ も 今回 で 9 回 目 
と な り , シリ ー ズ 化 さ れる 前 の 分 も 含め る 
10 回 の 連載 に な り ま し た 。 

を そこで, この 機会 に スー パー シス テム 88 
の だ た どっ て きた 道 を 振り 返り , 同時 に いま 
まで 変更 , 訂正 を 加え て きた 箇所 を すべ て 


掲載 し よう と 思い ます 。 や っ て みた が うま 
くい か な か っ だ と いう 方 や 。 スー パー シス 
テム と は どの よう な も の な の か を 改め て 知 
b eu Ое ЫА 

まず , 掲載 期間 に つい て で す が , 現在 の 
と ころ スー パー シス テム に 関す る 記事 は 


1984 年 の 5 月 号 を 初回 と し て , 今月 の 2 月 
号 ま で の 計 10 回 と な っ て いま す 。 た だし, 
初回 は シリ ー ズ と いう 形 を と っ て いま せん 
で し た の で , シリ ー ズ 回 数 は 9 回 と な っ て 
いま す 。 で は , その 内 容 に つい て , 各回 ご 
と に 説明 し て いき ます 。 


DA 3 


内 容 | スー パー シス テム 88 の 心臓 部 と な 
る DOS 
解説 | これ は 本 体 と ディ スク と の 入出 力 


を 受け も つも の で , これ 以後 に 発表 きれ な た 
スー パー シス テム 88 に 関す る プロ グラ ム は 
すべ て この DOS を 通し て ディ スク と の や 
り と り を 行っ て いま す 。 なお, この プログ 
ラム は 5 月 号 以 後 , 数 々 の 変更 , 訂正 を 加え 
て きま し た の で , 先月 号 に 全 リ スト を 掲載 
Uc БЕ7Е 

スー パー88 シ リー ズ 中 で は , この リス ト 
1 の こと を 「SS88 モッ ト 用 プロ グラ ム 」 と 
呼 を で いま す 。 ご 記憶 くだ さい 。 
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(シリ ー ズ 第 1 回 ) 


AR] スー パー モニ タ PART I 
これ は スー パー シス テム 88 内 で ス 


ー パ ー モ ニタ と 呼ば れ て いる プロ グラ ム の 
前 半 部 分 に 当たる も の で , PC-8801 (c AU 
され て いる モニ タ に , ンク 切り 替え 機能 
と モニ タモ ー ド で の マシ ン 語 の セー ブ , п 
ー ド 機能 を 追加 する た め の プ ログ ラム で す 。 


ZAS 

(シリ ー ズ 第 2 回 ) 
内 容 | スー パー モニ タ PART II 
これ は スー パー モニ タ の 後半 部 分 
に 当たる も の で , ザイ ログ 表記 の アセ ンプ 
ZU AU S673 x 7235 
つき ダン プ エ デ ィ タ の 3 機能 を 追加 する た 
め の プ ログ ラム で す 。 6, 月 号 の PART 
I, II を 合わ せ て , スー パー シス テム 88 の 
スー パー モニ タ と な り ま すず 。 


8 月 号 

(シリ ー ズ 第 3 回 ) 
ПАҢ スー パー セー バ 
| 解説 | これ は カセ ッ ト に セー ブ さ きれ て い 
る プロ グラ ム や デー タフ ァイル を ディ スク 
に セー ププ す る も の て 、 ОЛА 
れ て いる ファ イル の 種類 や マシ ン 語 の アド 
レス な ど を 調べ る 機能 も つい て いま す 。 


9A3 


(シリ ー ズ 第 4 回 ) 


AK] スー パー シス テム 88 専 用 の フォ ー 
マッ ト , バッ クア ッ プ コマ ンド な 
ど を 含む スー パー テ ユー ティ リティ 
解説 | スー パー シス テム 88 は 5 月 号 の シ 


ステ ム を 中 心 と し て , 枝分かれ 式 ( 図 A) に 


スー グー ニス パー ヤー バー の 
ょ うな が な 。 に わ ゆ る スー パー88 シ アミ ニー と 
呼ば れる も の を 広げ て いく 方 式 を と っ て い 
まお 5 し だ た が っ で ここ の ス 呈 が ーー88 ラ カミ 
リー を 含む スー パー シス テム 88 と いう 
DOS を ほか の ディ スク 上 に コピ ー す る コ 
マン ド が 必要 に な っ て きま す 。 そ れ が , < 
の フォ ー マ ッ トコ マン ド で す 。 この 回 は ほ 
か が に は 2 ボ メグ ラス 0 コマ ツン Ne 
ド を 加え ぇ , スー パー ユー ティ リティ と いう 
形 を と っ て いま す 。 


-1 ロ 月 号 

(シリ ー ズ 第 5 回 ) e 
WA] スー パー シス テム 88PART II 
これ は それ まで に 指摘 され て いた だ ス 
ー パ ー シ ス テム 88 の 欠点 を 補う ため に 作ら 
れ た も DT, 0 一 E5FFH を フリ ー エ リア 
と し て 取り 扱え を , スーパー88 フ ァ ミ リー の 中 
で 主 に ゲー ムロ ー ダ と し て 活躍 し て いま す 。 


1 1 月 号 


(シリ 5. 


コピ ビ ピーコ マン 


内 容 | スー パー ファ イル エディ タ 
解説 | これ は , ディ スク に セー ブ さ れ て 


いる ファ イル を きれ い に 整 理 す る た め の も 

OC, エディ タ 機 能 に よっ て 簡単 に ファ イ 

ル の 整理 が で きる よう に な っ て いま す 。 
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AF U—FUVXNEIVURHTD* 
ス フ ァ イル 
解説 これ は 文字 どおり , シー ケン シャ 
ル と ラン ダム アク セス ファ イル を 取り 扱う 
だ た だめ の も の で , NEC の シス テム ディ スク の 
シー ケン シャ ル & ラ ンダ ム ア ク セス ファ イ 
ル と は 少し 異な っ て いま す が , ファ イル 間 
で の 互換 性 は あり ます 。 こ れ に よっ て , £ 
2 う や 《 ス ー パ ー シ ス テム 88 で も シー ケン シ 
ャ ル 嫌 ラン ダム アク セス ファ イル が 取り 扱 
2051057 агай рое ЭЙ CR, 


AF ASCII セー プ , ロー ド , マー ジ お 
よび setinf.n88 

解説 いずれ の 機能 も すでに NEC O z 
ステ ム デ イィ イス ク に 備 っ て いる も の で す が , 
ASCII € —7, ロー ド に つい て は 処理 速度 
は 2, 3 倍 に アッ プ し て お ぉ おり , マー ジ に つ 
いて は バイ ナリ 形式 の BASIC ファ イル に 
ИЕ ASUS SE S Tii PO 
setinfn88 は ディ スク の ID セクタ に 情報 
を 書き 込む た め の も の で す 。 


以上 の よう な 過程 を 経て , 今回 に 至っ た 
の で す が , 私 が 非力 な も の で 多数 の 訂正 が 
生じ て し まい , ご 愛読 の 皆様 に 多大 の ご 迷 
Б СЗ ОУ ЈС 
の 大 反省 の も と に , いま まで 訂正 を 加え た 
箇所 を すべ て 掲載 いた し まし た の で , どう 
ぞ ご 確認 の 上 , ご 訂正 くだ きい 。 な お , oc 
の リス ト A 一 EE は スー パー シス テム 88 フ ァ 
ミリ ー の ファ イル に 対し て 直接 訂正 する よ 
うに な っ て いま す 。 ご 注意 くだ さい 。 

それ か ら ,SS88 モッ ト 用 プロ グラ ム , 55. 
1 一 3 に つい て は スー パー ファ イラ 88 
PART 2 の 大 改正 の 欄 で 全 リ スト を 掲載 
し まし た の で 省略 いた し まし た 。 
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Simple type 


HMA 枝分かれ 図 


リス ト A SS.M1 
8427 : 31 
8453 : 99 
8A3F : 65 
ADRS : +0 
80с0 : 66 
UZFB SS.M2 
ADRS : +9 
65E9 : E1 
65F9 : 21 
リス ト C SS.S1 
852F : 39 
ADRS : +0 
8B39 : 3E 
リス ト D SS.F1 
84C7 : 
8554 : 
857A : 52 
8597 : 
8426 : 
ADRS : 
8C70 : CD 
リス ト E SS.E1 


877B : 90 


ADRS 
8090 : 
8DA9 


N 
= 


スー パー シス テム 88 


HE 32073 
CD 87? 85 


*+3 HAS 
23 С1 ӨВ 
9D 7D 18 


Expanded type 


スー パー セー バ 


Av カー マツ 2 


putes Us AS PUA 


t 
W i n EI 


ラン ダム ファ イル 


スー パー シー ケン シャ ル & 


スー パーASCII フ ァイル 


8428 


: 
Н 


8526 : 
‚ ЗАТЕ : 


, 8530 : 


a NE Au] 
FF 32 06 


N2 +3 
7F 86 C3 


PISIS 
00 DO 11 
F4 36 FF 


84C8 


8556 : 


857B 
85A2 
8427 


877C 


: 
H 
. 
. 
H 
H 
H 
* 
H 


H 
H 


33 
99 
CD 


+4 
C3 


+4 
23 


, 8429 : 
06921: 
, ВАТЕ : 


i9 t6 t 
8E 67 C5 


よら に OS の 
B9 C2 С? 
21 CZ 8D 


кө t6 жү. 
C3 D9 7E 


ВОЗЕ 
, 8560 : 
, 8588 : 
> 8763 : 


*5 +é +? 
86 00 00 


*5 «6 *7 
90 7E 3C 
TO FE DC 


33 
91 
F9 


+8 
TE 


*8 
8D 
22 


*8 
99 


3A 
52 
33 
32 


+8 
99 


+8 
28 
38 


, 842A : 
> 8A3D : 
, 8880 : 


*9 +А «B 
ES CD C3 


+9 +A +B 
C9 FF 00 
B8 ?B 32 


+9 +A +B 
99 00 00 


, 8546 
, 856D 
, 858A 
, 8424 


*9 +А +B 
00 00 өө 


+9 +A +в 
08 19 7C 
F8 C3 E1 


*C 
99 


47 
52 
3A 
01 


+C 
99 


+C 
87 


,842B : 
,8A3E : 
,8DBA : 


*D +E +F 
C3 E9 65 


*D +E *F 


90 FF 00 : 


7A C9 00 


*D +E +F 
99 99 o0 


,:8553. : 
, 8570 : 
;, 8994 : 
, 8A25 : 


+D +E *F : 
00 00 00 : 


*D +E *F 
DC 28 0A 
99 99 өө 


スー パー モニ タ 登 坦 
= N 


「 ス ーッ パー モニ タ 88」 は , 文字 どおり PC- 
8801 に 内 蔵 き れ て いる あの 強力 な (?) モ 
ニタ に 新しい ユマ ンド を 追加 し ょ うと いう 
も の で す 。 

PC-8801 の メモ リマ ッ プ は お よる を 図 1 
の よう に な っ て いま す が , モニ タモ ー ド で 
実際 に アク セス で きる メモ リ は を その 一 部 の 
AO he о OX—XCHu, JAG) 2 
モリ も セレ クト で きる よう な コマ ンド を 追 
加 し て , 図 1 の 全 メ モリ に アク セス で きる 
よう に し まし た 。 そ し て さらに, セン クト 
る れ だ メモ リ を ディ スク ヘ セ ー ブ , 
で きる コマ ンド も 追加 し まし た 。 こ れ に よ 
от, 従来 は 読み 書き で き な か っ た 豪 
КАМ や ディ スク 内 の メモ リ に 対し て 読み 
書き が で きる よう に な り , グラ フィ ッ ク 画 
面 も ディ ネス クベ セー ジン ロー ド づ きる | を よう 
に な り ま し だ た 。 もちろん, テー プ へ の セー 
7з п NICO. 

る さらに, 「SS88」 に つい て は , CTRL-D, 
R,W お よび CALL コ マン ド も 追加 し まし た 。 


プロ グラ ム 
к ОА 


ЭАе A AANE V Abs 2:03:29 
て いま す 。 リ スト 1 は SS88 9, リス ト 2 は 
ROM BASIC 用 で , DISK BASIC は 対象 
ELUIRA CLIE 4-7 を 使用 じたい 
方 は 先月 号 の SS88 を ご 利用 くだ きい 。 


ロー ド 


プロ グラ ム の 起動 は , 

DEF USR=&HC000:I=USR(0) О 
で 行い ます 。 も ちろ ん , SS88 の 場合 は R ォ 
プシ ョ ン を 使っ て も 結構 で す 。 

プロ グラ ム を 起動 きせ る と , 

How many files (0-15)? 

と 表示 され , ファ イル 数 の 設定 と な り ま す 。 
これ に よっ て ファ イル ボイン タ は リス ト 1 
の 場合 は 8DDOH に , リス ト 2 の 場合 は , 
8800H に 変更 きれ ます 。 

ファ イル 数 を 設定 する と スー パー モニ タ 
が セッ ト る れ ま す 。 セ ッ ト る れる アド レス 
は リス ト 1 の 場合 は 8400H~8DCFH +, 
リス ト 2 の 場合 は 8400H—87FFH C3 O 


е 


0000 


本 体 


ROM3 
ROMA 


4000 


6000 


8000 


C000 


VRAM0 


FFFF 


T, この 部 分 は 書き 替え た だ たり し な いよ うに 
し て くだ さい 。 

プロ グラ ム の 起動 は , リモ セッ ト 直 後 プ ロ 
グラ ム を 入力 し て すぐ で 行っ て くだ さい 。 


使い 方 
к АНЬ, 


拡張 され た コマ ンド は \H/。\ZL7 ZSO 3 
ост, tn enk の よ う に な っ て いま す 。 
@ 日 コマ ンド 

メモ リ を セレ クト する コマ ンド で す 。 入 
力 形式 は 

]H く < リー ドモ ー ド 〉, < ライ トモ ー ド > 


ディ スク 
Leap 


VRAMI 


図 1 メモ リマ ッ プ 


T, 読み 込み た な い メ モリ と 書き 込み た い メ 
ЕЕ ды БЫ БИЕ чы Жш НЕ M Er Ie 
れ ぞ れ 肖 の よう に な っ て いま す 。 た だ たとえ 
ば , ディ スク の メモ リ を 読み 込み , テキ ス 
ト RAM に 書き 込み た い 場 合 は , 
TRONS A 
と し ます 。 こ こ で E ユ コマ ンド を 使用 する Р, 
表示 る れる の は ディ スク の メモ リ で す が , 
書き 込む と テキ スト КАМ に 書き 込ま れ 
ます 。 も し , デイ スク の メモ リ に 書き 込み 
た い の で あれ ば , 
]H8, 8 Q 
EU Jos pde, 24 be EA, 
2, 4 の 場合 、 こ れ ら の メモ リ は いずれ も 
ROM な の で , 自動 的 に テキ スト КАМ が 
セレ クト る れ ま す 。 
次 に , 
но 
と する と , その と き セ レク ト る され て いる モ 
ー ド が 表示 され ます 。 
Mes 
]H0 о 
と する と, スー パー モニ タ が 解除 きれ , л 
ー マ ル モニ タ と な り ま す 。 も し , АВЕС 
スー パー モニ タ に も ど し た い 場 合 は , 
]G8400 Q 
LUC xev. 

HH コマ ンド で セレ クト る れ だ た モード s 
1 度 BASIC に も ど し て か ら モ ニタ モー ド 
に する と , 初期 モー ド (READ-ROM3, 4 : 
WRITE-TEXT) に も どっ て し まい ます 。 
e ZL コマ ンド 

ディ スク か ら ロ ー ド する コマ ンド で す 。 
入力 形式 は 

TAER RTA NFA RZ YTA 
TT ENG #Ф0Ь58+>>К5й би 
る ライ トモ ー ド の メモ リ 上 に ロー ド さ きれ ま 
す 。 た と えば | TEST" と いう ファ イル を テキ 


テキ スト RAM 


ROM 5 


VRAM 0 


VRAM | 


Siem, 


VRAM 2 


ディ スク RAM, ROM 


表 1 
78 


スト КАМ 上 に ロー ド し た い の で あれ ば , 
На ET ZA et ND EA 
RAME L 32 5 C. 

TEST TES 0) 
ы Ж. 
@ ZS コマ ンド 

ディ スク に セー プ す る コマ ンド で す 。 入 

力 形式 は 
dZ S RA AAU, 

< スタ ー ト アド レス >, < 長き る > 
QT. CUT, EDEL? RENT 
る リー ドモ ー ド の メモ リ が セー ブ さ れ ま す 。 
だ た と え ぇ ば, VRAMO0 上 の D000H — DFFFH 
EBES LEEN TA TOCA O se = 7 U Te 
い 場 合 は 。 HH コマ ンド で リー ドモ ー ド を 
VRAMO0 に し ます 。 そして, 
]ZS W:TEST" , &HD000H, &H1000 © 

Ет 

な お , V A4 2 (ROM BASIC) で は 
ZL, 75 コマ ンド お よび 是 コ マン ド で の モ 
ー ド 8 (ディ スク モー ド ) は 使用 で きま せ 
ん 。 ま た だ , ヘル プ 機 能 に スー パー モニ タ の 
説明 を 加え て あり ます の で 利用 し て くだ きる 
い 。 

KU, 5 月 号 発 表 の SS88 (リス ト 2) に 
の み 追 加 き れ だ た だ コマ ンド を 説明 し ます 。 
@ CTRL-D, R, W コ マン ド 

ディ スク の CPU に 対し て ダン プ , リー 
К, ライ ト す る コマ ンド で す 。 使 い 方 は 同 
じ で すか ら , 8801 ユ ー ザ ー ズ ・ マ ニュ アル 
を 参照 し て くだ さい 。 た だ し , CTRL-R, W 
で は 耳 コ マン ド に よっ て セレ クト され て い 
る メモ リ に 対し て , リー ド 。 ラ イト され ま 
3. し た が っ て , た と えば ライ トモ ー ド に 
VRAM0 を セレ クト し て あれ ば , VRAMO 
上 に 読み 込ま れ ま す 。 ま た , ディ スク モー 
ド が セレ クト され て いる 場合 は エラ ー 
(Bad mode) と な り ま す 。 

e CALL コ マン ド 

PC-8801 リ ファ レン スマ ニュ アル を 参 
оса, 使い 方 は 同じ で す 。 た だ 
し , 実行 アド レス は 直接 入力 で きま す 。 つ 
まり CO000H より 実行 する 場合 は , 

CALL &HC000 Q 
て も OK o5k E 

ディ スク モー ド で ZZL, ZS コマ ンド を 使 
5 t, Bad mode' の エラ ー と な っ て し まい 
id. したがって, ディ スク の メモ リ を セ 
—7, ロー ド し た い 場 合 は M コ ユマ ンド を 使 


っ て テキ スト RAM 上 に 移し て か ら 5 ャ ー 
ZL, テキ スト RAM 上 に ロー ド し て か ら 
ディ スク の メモ リ 上 に M コ ユマ ンド を 使っ て 
移す と いう よう に し て 《 く だ さい 。 

BEC. TILT P3 5356, 
セー ブ , ロー ド さ れる メモ リ は その し とき セ ャ 
レク ト さ る され て いる メモ リ と な り ま す 。 し た 
が っ て , も し VRAM1 が リー ドモ ー ド と し 
て セレ クト され て いれ ば , 

]WTEST, C000, СЕЕЕ の 
と する と , VRAM1 上 の C000H —CFFFH 
が テー ジン | に セー ジ され まう:。 


お わり に 
E — — Jj 


以上 で スー パー モニ タ の 全容 を ほぼ 理解 
Иа АЕ Dus v9 
張 で きる の は モニ タ の リー ド , ライ ト す る 
サブ ルー チン が それ ぞ れ F18AH か ら , 
F1B5H 2: 6 O RAM 上 に 置か れ て いる か 
ら で す 。 つ まり , この 部 分 を 書き 替え て や 
れ ば , リー ドラ イト 先 の メモ リ を 自由 に セ 
レク ト で きる の で す 。ROM 上 に 置か れ て 
いれ ば と て も こん な こと は で き な か っ た だ で 
EN PA 

まだ た だ, ファ イル ポイ ンタ を 変え て や る の 
lk, も し DO000H か ら 6 置い た と する と , 
BASIC の プロ グラ ム を 実行 の 際 い ちい ち 
CLEAR 文 で 保護 し て や ら ね ば な ら な いか 
ら で す 。 こ の よう に ファ イル ポイ ンタ を 後 
ろ に ずら 6 し て , その 前 に 置い て や れ ば その 
心配 は まっ だ くい ら な く 〈 く なり, この 方 が 便 
利 だ と 判断 し まし た 。 

余談 に な り ま す が , DISK BASIC の モニ 
REESE 

1^р1,0,01=02 О 

と し て みて くだ る さい 。Aug20, 1982 
ョ ン で は ,` ,/ の チェ ッ ク が 抜け て いる の で 


バージ 


* 三 '* と し て も エラ ー に な り ま せん 。 お 試し あ 


n! 

で は , みな る ん も この スー パー モー ニタ 88 
を 使っ て Peeping Tom に な っ て み ま し ょ 
5. 次 回 は PART? を お 届け し ます 。 


ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +В +С +D +E +F :SUM 
C000 : 2А E8 E? 54 50 22 54 Eé F9 21 79 Е8 36 ЗА 23 36 : 4А 
C919 : 00 CD A9 4F AF 32 52 E6 CD 69 SA 32 BB EA 32 30 : A? 


COAG : DO 8D сз 05 78 өе 00 00 өе 99 00 99 өе BA OO өө : 6D 
COBO : өе GO 99 өе 99 99 OO өе OO OO OO OO OO OO өе 99 99 
COCO : өе өе өө OO OO ве OO ве GO OO OO OO OO OO OO OO 99 
CODO : өе өө өе өе өв OO OO ве OO OO OO OO OO OO OO 99 99 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +А +В +С +0 «E +F :SUM 
CIBU CIB C9 32 6F E6 32 89 EE 32 89"EE 21 26 94 22 79 t 30 
C110 : Е6 21 00 00 22 8A EE 21 46 8D 22 8А EE CD 94 86 : 16 
C120 : 00 3E FF 32 20 84 C9 20 05 32 08 CF FE 48 28 39 : B1 
C130 : FE 4D CA 2C 86 FE SA CA 68 86 FE 01 CA CO 86 FE : E4 
C140 : 02 CA 94 86 FE 04 CA CF ВА FE 12 CA АА 8B FE 17 : 2F 
C150 : CA B5 8B C9 FE 41 CA BB 8D FE 4C CA B5 8D FE 0D : 85 
C160 : CA 88 60 FE 45 CA C1 8D C9 CD F9 84 FE 0D CA A1 : 96 
C170 : 86 FE 30 CA 02 85 FE 31 DA CE 60 FE 39 02 CE 60 : 73 
C180 : 32 29 84 CD F9 84 FE 2C C2 CE 60 CD F9 84 FE 31 : BC 
C190 : DA CE 60 FE 39 02 CE 60 32 2А 84 CD F9 84 FE QD : 74 
С1А@ : C2 CE 60 ЗА 29 84 32 27? 84 ЗА 2A 84 32 28 84 СО: 47? 
C1B9 : 01 84 ЗА 28 84 FE 38 CA 49 85 FE 35 СА 53 85 FE : DC 
C1C9 : 36 CA 50 85 FE 3? CA 67 85 ЗЕ 33 32 28 84 СЗ 30 : OF 
C100 : 85 ЗА 27 84 FE 31 28 62 FE 32 28 59 FE 33 28 4B : 78 
C1E0 : FE 34 CA ЗЕ 85 FE 38 CA 44 85 FE 35 28 60 FE 36 : 78 
C1F9 : 28 66 FE 3? 28 6C СЗ CE 60 CD 8B 86 CD 29 71 C9 : 56 


ADRS +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +В +С +D +E +F :50М 
C200 : 7A C9 CD F9 84 FE 0D C2 CE 60 21 F5 ЗА 22 8A F1 : 75 
C210 ::21 CD 75:22 B5 F1 ЗЕ E1:32 8C F1 3E F1 32 B7? F1 : 02 
C220 ЗЕ C9 32 6F Eé 32 AA EE СЗ 88 60 21 80 85 18 3C : 70 
C230 : 21 90 85 18 40 21 99 85 18 32 21 A9 85 18 2D 21 : СЗ 
C240 A? 85 18 28 21 AE 85 18 23 21 CC 85 18 27 21 EC : B9 
C250 : 85 18 19 21 F1 85 18 1D 21 F6 85 18 9F 21 FB 85 : E6 
C260 : 18 13 21 00 86 18 05 21 05 86 18 09 ЗЕ СЗ 32 8A : 79 
C270 : F1 22 8B F1 C9 3E C3 32 B5 F1 22 B6 F1 C3 88 60 : A5 
C280 : CD 87 85 ?E СЗ 6C F1 ЗА C2 E6 F6 02 F3 D3 31 C9 : 11 
C290 : F5 CD 87 85 F1 77 СЗ 6С F1 CD 6C F1 ?E СЗ 6C F1 : 1E 
C2A0 : CD 75 F1 ?E СЗ 6С F1 CD 1B 86 ТЕ СЗ 23 86 CD 75 : 6B 
C2B0 : F1 ЗЕ 0B CD C9 37 7C CD D2 3? 7D CD 02 3? AF CD : 28 
C2C9 : 02 37 3C CD 02 37? CD 47 38 СЗ 6C F1 F5 CD 75 F1 : AF 
C2D9 ЗЕ 0C CD C9 37 7C CD 02 37 7D CD 02 3? AF CD 02 : вА 
С2Е@ 37 3C CD 02 37 F1 CD 02 37? СЗ 6C F1 CS 0E 5C 18 : 77 
C2F9 1F CS OE 5С 18 14 C5 @Е 50 18 15 C5 OE 5D 18 ВА : 29 


C320 : ?$S'"F1 C9'FS'SE' FF'D3 Yi Fi-C3 6C F1 CO EE 6E DA : B9 
C330 : CE 60 FE 2C C2 CE 60 EB CD EE 6E DA CE 60 FE 2C : 8E 
C340 C2 CE 60 ED 52 DA CE 69 44 4D 03 CD EE 6E DA CE : 9C 
C350 : 60 FE 0D C2 CE 60 EB CD 8A F1 EB 13 CD B5 F1 23 : 22 
C360 : 0B 78 B1 20 F1 СЗ 88 60 CD F9 84 CD 25 79 FE 4C : E6 


CADO : 6D 61 6C 20 6D 6F 6E 69 74 6Е 72 QA 00 31 ЗА 52 : 29 
САЕ@ АЕ 40 20 33 2C 34 @A 00 32 ЗА 52 4F 4D 20 31 2C 30 
Care 32 0A 00 33 ЗА 74 65 78 74 20 52 41 4D 0A 00 34 AC 


C520 32 0A 00 38 ЗА 64 69 73 6B 20 52 4F 4D 20 26 20 CD 
C538 52 41 40 ВА 00 7A 6C 22 3C 64 72 ЗА 66 69 6C 65 : DE 
C540 20 6E 61 éD 65 3E 22 9A 00 1E 72 65 61 64 20 64 69 


CSCQ 5B 2C 3C ?4 72 3E 2C 3C 73 65 63 3E 5D 9A 00 1E 4D 
C5D8 1E 64 75 60 70 20 63 6F 6E 74 65 6E 74 73 20 6F : F1 
CSE0 : 66 20 73 65 63 74 6F 72 73 0A 00 43 ДЕ 54 4C 2D : F1 
CSF07r-72-2073C SUT IE IC IEC RIDE SE 20 JC 706 702 "1730 


ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
C600 : ЗЕ 2C 3C 73 65 63 ЗЕ QA 09 20 20 20 20 20 20 2C : 1E 
C610 : 3C 73 74 61 72 74 ЗЕ 2C 3C 65 6E 64 ЗЕ 9A 00 1E : AD 
C620 : 1E 72 65 61 64 20 ?3 65 63 ?4 6F 72 7З 20 69 6E : D4 
C630 : 74 6F 20 60 65 60 6F 72 79 OA 0A 00 43 4E 54 4C : E1 
C640 : 20 77 20 3C 64 72 ЗЕ 2C 3C 73 75 72 ЗЕ 2C 3C 74 : F0 
C650 : 72 ЗЕ 2C 3C 73 65 63 ЗЕ OA 09 20 20 20 20 20 20 : 64 
C660 : 2C ЗС 73 74 61 72 74 ЗЕ 2C 3C 65 6E 64 ЗЕ QA QA : CS 
C670 : 00 1E 1E 1E 77 72 69 74 65 20 63 6F 6E 74 65 6E : 2C 
C680 : 74 73 20 6F 66 20 60 65 60 6F 72 79 20 69 6E 74 : 00 
C690 : 6F 20 73 65 63 74 6F 72 73 QA OA QA 00 QA 52 45 : 51 
C6A9 : 41 44 ЗА 9A 2C 5? 52 49 54 45 ЗА 13 00 CD 98 8A : BF 
C6B9 : CD 34 8A CD F? 89 CD ЗА 8A CD EB 77 CD F2 77? CD : 9B 
C6CQ : C2 7A CD 1А 7B CD 56 70 CD SF ВА 18 24 CD АЗ ВА : 2A 
Ce6D9 : CD 34 ВА CD F7 89 CD ЗА ВА CD EB 77 CO F2 77 CD : 98 
Ce6E9 : 90 78 CD 11 79 СО 6A 79 CD 0B 7A CD 66 7A CD SF : ЗА 
CeF9 : ВА CD 6C F1 СЗ 88 60 AF 32 49 EF 23 ES 21 7A ЕВ : 03 


C?60 ЗЕ СО 32 El 80 ЗЕ СЗ 32 63 7A 21 20 F3 22 64 ?A : E2 
C770 21 FB 78 22 E2 80 21 C3 7B 22 A1 70 3E 77 32 B9 4E 
C789 7A 21 23 0B 22 B1 7A E1 C9 CD 8A F1 CD 34 8A C3 : 56 
C799 СЗ 78 CD BS F1 CD 34 8A 23 0B C9 ЗА 27 84 FE 38 : 4E 
C?A0 28 OE C9 ЗА 28 84 FE 38 28 06 C9 21 C5 ВА 18 03 : 90 


C7D@ : CE 60 ES AF 32 DF F1 CD A8 8C CD EE 6E CD CE 8C 15 
С?Е@ : 40 08 FE 2C СӨ CO EE 6E 61 08 54 50 FE 0D 28 16 : 6B 
C7F9 : FE 2C СӨ CD EE 6E CD CE 8C D8 FE 2C СӨ 4D CD EE 94 
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$e ss oe so ce өз өз so өз өз өө өз өө oe өө so so 


: : 
C430 : 00 6E 30 37 ЗА 73 65 6C 65 63 74 20 56 52 41 AD : F2 
C449 : 32 QA 99 ВА 52 45 41 44 20 4D АҒ 44 45 AS А5 А5 : 96 
C450 : C2 1А CD 85 C2 OA 57 52 49 54 45 20 40 АҒ 44 45 : CA 
C440 : A5 A5 DO 36 90 CD 42 00 18 C9 52 4F 403334 52 : 01 
C470 : AF 4D 31 32 54 45 58 54 20 52 4F 4D 35 20 56 52 : 4F 
C480 : 41 4D 30 56 52 41 40 31 56 52 41 4D 32 СО 49 85 : 28 
C490 : СЗ 00 70 CD 49 85 СЗ E9 79 CO 49 85 СЗ ВЕ 71 F5 : 3C 
C4A9 : CD 49 85 F1 C9 00 ӨӨ өө өө 00 00 00 99 өе 99 өө : 55 
C4B9 : 99 00 99 99 99 99 OO OO 99 OO OO OO OO OO OO OO : OO 
Сасе : өө 00 өе 99 өе өе өе OO өө өе өе 99 OO OO OO OO : OO 
CADO : өө өө ое өе өе OO өе OO A OO OO OO өе OO OO OO : OO 
C4EQ : 00 00 өе өе ее OO өө 99 OO OO OO OO OO OO OO өө : OO 
C4F9 : 00 00 өе өе өе OG OO 99 өе өө өө ее OQ OO OO OO : өө 


ー バ ー モ ニタ PAHT2 


1984 年 7 月 掲載 


ニー モニ ッ ン ク 表 記 
の 変換 


前 回 の 拡張 モニ タ は いか が で し た か 。 今 
回 は を その PART II で す 。 ダ イレ クト アセ 
IIT DATTA RUC TS 
ッ ク サ ム つ き エ ディ イタ を と り 上 げ ま す 。 

ググ ドア ヤン プン ラ ニス た シブ 
ラ は すでに 備 っ て いる 機能 で す が , いずれ 

も イン テル 表記 で , 一 般 に 使わ れ て いる ザ が 
イロ グ 表 記 と は か な り 違 っ て いて 不便 で す 。 

そこ で , 今回 の 拡張 で ザイ ログ 表記 の ダ 
v 2 NOI AU Tt A ger NA 
EEL? LE, カニ シク みか みつ き エ に タ 
に つい て は モニ タ の E コ マン ド と 同様 エ デ 
ィ ッ ト に 合わ せ て 変化 する チェ ッ ク サ ム を 
つけ で あり ます 。 つまり, メモリ ダン プ に 
チェ ッ ク サ ム が つき , エディ ッ ト 機 能 を 使 
っ て メモ リ を 書き 替え れ ば 同時 に 表示 され 
て いる チェ ッ ク サ ム も 変わ る と いう も の で 
xm 

きら に , 多数 の ご 要望 の あり まし だ た オー 
トス ター ト 機 能 の た め の SS88 の 改良 も 行 
いま す の で , お 試し くだ さい 。 

また, 今回 は ROM BASIC 版 プ ログ ラム 
を 掲載 する スペ ー ス が な く , 来 月 号 と いう 
CEES Мед s аы! Sm pss US 


プロ グラ ム 
е DER. 


プロ グラ ム は リス ト 1 一 3 の よう に な っ 
て いま す 。 プ ログ ラム の 詳細 は 来 月 号 に ま 


b し, 今回 は プロ グラ ム の セッ ト の 方 法 を 
説明 し ます 。 

まず , SS88 を 起動 きせ , 前 回 の 拡張 モニ 
タ を ヤッ よ ト て 〈 だ きい 。 セッ ト で き , た . ら 。 
リス ト 1 を 打ち 込み ます 。 全 デー タ を 完全 
に 打ち 込め だ たら, 

JH IREO 
Кт л ек を セレ クト し まず 。 
oe TNR 
]MD000, EOFF, 6600 Q 
と 入力 6 で だ さや 。 以上 完了 CNG, 
BSAVE “SS. М2”, 
&H6600, &H1100 © 
で セー ジン 1 まあ 。 0 IFANS 
は 必ず SS. M2 に し て くだ きい 。 

Кї, リス ト 3 の よう に 変更 し て くだ さる 
い ぃ い 。 た だ ただし, EE コマ ンド を 使う と うま くい 
か な い 場 合 も あり ます の で , S コマ ンド か 
POKE 文 を 使っ て 変更 し て くだ さる い 。 変更 
し た ら 6, 

BSAVE “SS. М1” , 
&H8400, &H9D0 О 

と し で ヤー プ し て くだ さい 。 CDF 7 
ァイル ネー ム は SS. M1 に し て くだ さい 。 

で は 次 に SS88 に オー トス ター ト 機 能 
も Ss 133 00; FEVR SEE 


SUPER SYSTEM 88 
(C)1984 by Atushi Kobayashi 


This system has next type. 


1.Simple type 
2.Expanded type 


What’s type (1 or 2)? B 


図 1 


き い 。 今度 は 拡張 モニ タ を セッ ト し な く 
(5310255 C3: t x» P UK 6, Б.Н 
号 掲載 の SS88 の アロ グラ ム を ロー ド し て , 
リス ト 2 の よう に 変更 し て くだ さい 。 こ の 
変更 に よっ て SS88 に オー トス ター ト 機 能 
が つき ます 。 変更 し た ら 6, SS88 の プロ グラ 
A (C000H—DOFFH) を セー ブ し て お いて 
《 く だ さい 。 な お , エン ドア ドレ ス が DOEFH 
に 変わ っ て いま すか ら 注 意 し て くだ さい 。 
以上 が 完了 し た ら , 
]Gcoo0 © 
LL T, バー ジョ ン ア ッ プ され た SS88 を 
セッ ト し て くだ さい 。 キッ ト の くわ し い 手 
順 は 5 月 号 に 記述 し て ある と お り で す 。 ま 
た , セッ ト す る に あたっ て 既存 ファ イル は 
保存 きれ ます の で , ご 心配 な く ! 
以上 で 終了 で す 。 で は , 実際 に 動か し て 
edo Uir5. 4 43 UE». UCM DS 
SS88 を 起動 きせ ます 。 起 動き せる と 図 1 の 
よう な 初期 画面 が 表示 され ます 。 で , 1 の 
Simple type t と いう の は SS88 本 体 の み と 
いう こと で , 2 の Expanded type と いう 
の は 5588 本 体 十 拡 張 モ ニタ (今月 分 も 含 
й) と いう こと で す の で , いずれ か を 選択 
AJIUC CI АРЬЕ; 
How many files (0-15) ? 
と 表示 る され フ ァイル 数 設定 と な り ま す の で , 
ファ イル 数 を セッ ト し て くだ さい 。 以 上 を 
完了 する と Simple type の 場合 は 終了 し , 
Expanded type の 場合 は 自動 的 に 拡張 モ 
ニタ 用 プロ グラ ム (55. М1, SS. M2) が 
ロー ド さ る され ます 。 したがって, Expanded 
type を セレ クト する 場合 は 必ず SS. М1 3s 
よび SS. M2 の モ セーブ きれ て いる フロ ッ ピ 
81 


SARJAA zase UTERT 
v 

次 に オー トス ター ト に つい て で すみ が , も 
し ID セク タ に オー トス ター ト が セッ ト き る 
れ て いる 場合 は 自動 的 に Simple type が セ 
レク ト さ る れ 。 FPS ILIR, 
SS88 の オー トス ター ト に お いて は 属性 は 
無視 4 れ ま す 。 オ ー ト スタ ー ト の 詳細 に つ 
いて は 「『PC-Techknow88 Vol. 13 D151% 
ー ジ を ご 参照 くだ さい 。 


使い 方 
E 1 


使用 する コマ ンド は 従来 と 同じ で , アセ 
ンジ クラ は A ラ マン ド デ デ イス アヤ ャ ンプ ラ せ は 
queam 7 P А wr 2 は 
E コ マン ド で す 。 f b まう た だ た て 同 選 て 
す が , それ ぞ れ の 機能 に つい て 説明 と 注意 
を つけ 加え ます 。 
セン クウ 
ザイ ログ 表記 に つい て は くわ し くく 説明 し 
て いる 本 が いろ いろ と 手 に 入り ます の で 
ここ で は 省略 し ます 。 表 記 形 式 に つい て は , 
次 の こと を 注意 し て くだ さい 。 
① OUT 命令 で , 出力 ポー ト を 数 値 で 指定 
する 場合 , た と えば 5CH に A レ ジス タ の 
値 を 出力 し た い 場 合 は , 
OUT SCH, A 
SH CR et を っ つけ で て, 
OUT (5СН), А 
と は し な いで くだ さい 。 IN 命令 も 同じ で 
す 。 
② 数 値 を 入力 する 場合 , モニ タ の B コ マン 
ド に よっ て セレ クト され て いる 数 値 の み を 
RE UE ЛГЕН, Jp = x ETS 


& 38a 
Зао 
LLI 
сово 
осоо 


図 2 テン キー 配置 
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進数 を セレ クト し て ある と き は , 8 進数 の 
み を 取り 扱い ます 。 し た が っ て , この と き , 
Ір A,2AH 
と する と エラ ー と な り ま す 。 この 場合 は , 
LD ASEH 
と し て くだ きい 。(52H は 2AH を 8 進数 に 
直し た 値 ) も ちろ ん , 16 進 数 を セレ クト し 
て ある と き は 16 進 数 の み と な り ま す 。 
③ 数 値 の 末尾 に つく 了 H' は , 数 値 と 文字 を 判 
別 す る だ た め の も の で す が , 8 進数 で は つけ 
て も つけ な く て も か まい ませ ん 。 また, 16 
進数 で も は ぶ く こ と は で きま す が , 文字 か 
数 値 か 判別 で き な い 場合 は 文字 と し て 処理 
され ます の で , 必ず HH' を つけ る よう に し て 
Suis ve Je А Ls. 
ED A, (ВСН) 
と いう 場合 , 
ED BO) 
と する と, BC レジ スタ と 判断 され て し ま 


いま す の で , 必ず `H を つけ る か , 
LD A, (0BC) 
Еке 
Ір А, 15H 
ee 
LD А, 15 
SLEDS EAS 
@ DB 命令 は 1 バイ ト の 数 値 ど だ け で な 〈, 
4 バイト まで な 6 ら 数値 で も 文字 列 で も 取り 
扱え ます 。 た と えば , 15H, BCH,.0AH を 
直接 入力 し た い 場 合 (16 進 数 モー ド で ) は , 
DB 15, BC, A 
と 入力 し て くだ さい 。 も ちろ ん 数 字 の 末尾 
に "HH' を つけ て も か まい ませ ん が , こ の 場合 
は すべ て 数 値 と し て 取り 扱い は す の で つけ 
る 必要 は あり ませ ん 。 また だ , "ASEM' と いう 
文字 列 を 入力 し た い 場 合 は , 
DB ‘ASEM’ 
ЖТС уге, 


も ちろ ん , 


JAC999 
3E12 


C999 ld a,12h 
C992 91991A LD BC,1A99 
C995 FDCBC98E res 1,(iy+c0) 
C999 ЕЗ push hl 
C99A 213912 ld h1,1230 
C99D EDA8 1dd 
C99F 4B4F4241 db “KOBA 
C913 CC25D9 call z,d925h 
C916 DD23 inc ix 
C918 1239AD db 12,30,ad 
C91B C30102 je 201 
C91E a 
JLC000,C019 
C999 F3 DI 月 
C991 31A9E1 LD SP,E1A0H 1 Е 
C994 C3F777 JP 77F7H 7и) 
C007? eo NOP Я, 
C998 7E LD A (HL ) 
C999 E3 EX (SP),HL 1 
C99A BE CP (HL) t 
C99B 23 INC HL # 
C99C DDCB5466 BIT 4,(IX+54H) ン ヒ Tf 
C919 2199C1 LD HL ,C199H 
C913 EDB9 LDIR о- 
C015 E604 AND едн ` 
C017 CBSE BIT 3,(HL) ET 
C019 са КЕТ М7 5 
]ED999 š 
D999 21 ДА СӨ CD BC CO ЗЕ 02 CD C9 37 ЗЕ ӨЕ CD 02 37 :A4 1Ј9л59> ^77» NA? 
0010 AF CD 02 37 AF CD 02 3? ЗЕ 02 CD D2 37 ЗЕ 0B CD :36 AX アラ NZ の AX 2205. 
D929 C9 37 ЗЕ 50 CD D2 37 AF CD D2 37 ЗЕ ӨЕ CD 02 37 :9C ノ ァ >PA メ 7Z9A メ 7> AA? 
0038 AF CD 02 37 01 00 OF 21 00 90 CD 47 38 77 23 ӨВ :37 JNA? | 2л680# 
D949 79 BO 20 Fé CD 30 9C F1 18 7B 2D 2D 2D 2D 2D 2D :6A y= %A0@0 A С------ 
D959 20 20. 20 20 2D 20 20 20 20 20 20 20 20 2D 20 20 :D9  ---------------- 
0060 2D 20 20 20 2D 20 2D дА 20 20 20 20 20 20 53 55 :AD ------- SU 
D979 59 45 52 20 53 59 53 54 45 4D 20 20 38 38 OA 20 :C6 PER SYSTEM 88 
D989 28 43 29 31 39 38 34 20 62 79 20 41 74 75 73 68 :8A (C)1984 by Atush 
D090 69 20 ДВ 6F 62 61 79 61 73 68 69 QA 2D 20 2D 2D :E2 i Kobayashi ---- 
DOA9 20 2D 2D 20 20 20 20 2D 2D 20 20 20 20-20 2D 2D; 100. s—--—22-22z----- 
DOBO 2D 20 2D 20 20 2D 2D 2D 2D QA GA 99 7E A7 C8 CD :63  --------- 752^ 
DOCO OD ЗЕ 23 18 F7 21 00 9D 11 00 C1 01 00 02 ED ВӘ :AD жни у 53 ° 
D9D9 ЗЕ FF 32 Е@ F1 32 ВА C2 AF 32 85 EC ЗЕ 03 32 50 :70 > 2xn2 УЭз2ш®› 2] 
О@Е@ EF @1 QD 25 21 00 BF ES A7 CD 9A 36 E1 23 7E FE :7B N X! жул 6н” 
DOFO 10 30 1B 32 F0 F1 ЗЕ СЗ 32 CD EC 21 05 C2 22 CE :32 9 2xn>ry2A@! Y 

A9 95 B9 54 A1 79 7D 67 4А 26 2E ЕВ AF 61 DD 7D :33 

図 3 


ただし, 数 値 で も 文字 で も 1 度 に 入力 で 
きる の は 4 バイ ト ま で で , それ 以上 入力 し 
て ぉ 最初 の 4 バイ ト 以 外 は 無視 され ます 。 
また ' "は 文字 入力 で きま せん の で , 1 度数 
値 (27H) に 直し て 入力 し て くだ さい 。 
デス アセ ンジ プラ 

ディ ス ア セン プラ の 結果 は 1 行 中 に アド 
vA, 数 値 デ ゲー タ , ニー モニ ッ ク , АЅСП > 
ー タ の 順 で 表示 る れ ま す 。 こ の うち , ASCII 
デー タ は 数 値 デ ゲー タ を キャ ラク タタ 変換 し て 
表示 し た も の で す 。 こ れ は プロ グラ ム デ ー 
タ よ メッセージ デー タ の 区 別 を 容易 に する 
だ た め に つけ られ て いる も の で す 。 で は , fü 
用 上 の 注意 を 述べ ます 。 
① デ ィ イス アセ ン ブ ラ の 一 時 停止 に は 
CTRL-S が 使わ れ て いま し た が , CTRL-S 
は 指 が 裂け し そう な の で , RETURN に 変更 
CICR し た が っ で 5 一 時 停 正 させ だ い 


場合 は RETURN キー を 押し て くだ さい 。 
② エ ンド アド レス が 指定 され な い 場 合 は , 
STOP キー か RETURN キー が 押さ れる 
まで て 実行 を 中 止 あ る い は 停止 し ませ ん 。 
チェ ッ ク サ ム つ き エ ディ タ 

通常 , 表示 きれ る メモ リ ダ ン プ , ASCII 


ダン プ と 合わ せ て , 縦横 チェ ッ ク サ ム が 表 
示さ る れ ま す 。 こ の チェ ッ ク サ ム は メモ リ を 
書き 替え て や る と 同時 に 変化 し ます の で , 
マシ ン 語 ダン プリ スト の 入力 に は か な り 便 
利 な も る の と な る で し ょ うこ では, いく ぐつ が か 
注意 と 説明 を 加え ます 。 

① テ ン キ ー は 図 2 の よう な 配置 と な り , > 
ン キ ー だ け で 16 進 数 が 入力 で きる よう に な 
り ま す 。 も ちろ ん アル ファ ベッ トキ ー を 使 
っ て も 入力 で きま す 。 

チェ ッ ク サ ム は 本 誌 で 採用 し て いる 16X 
16 箱 型 チ ェ ッ クサ ム の み を 扱っ てい ます 。 
し た が っ て , 80 字 X25 行 (20 行 ) 以外 で は , 
チェ ッ ク サ ム は 表示 され ま せん 。 
ロー ル ア ッ プ ・ ダ ウン は 256 バ イト 単位 で 
行わ れ ま す 。 た と えば 現在 C000H 
—COFFH の ダン プ グ が 表示 る れ て いれ ば , 
ロー ル ア ッ プ に よっ て C100H ~C1FFH の 
ダン プ が 表示 る れ ま す 。 

《④ ダ ンプ され る メモ リ は 耳 コ マン ド に よっ 
て セレ クト る され て いる メモ リ で す 。 

⑤⑥ ダ ンプ され て いる の が ROM の メモ リ で 
ある と き は , エ デ イ ッ ト し て も チェ ッ ク サ 
ム は 変化 し ませ ん 。 当然? 


⑥B コ マン ド に よっ て 8 進数 が セレ クト き 
れ て いれ ば , チェ ッ ク サ ム 表 示 も 8 進数 で 
表示 さる れ ます 。 

Ф ROLL UP, ROLL DOWN キー を 押し 
続け て いる と 先行 入力 に よっ て ロー ル し す 
ас З Ср ШӘР 
キー を 押し た りす る と ロー ル は 止ま り ま す 
が , エディ イット モー ド か ら も 抜け 出 て し ま 
ks Фф З» GU 92 D эх» を 5 い : う E SB 
CTRL-S を 使っ て くだ さい 。CTRL-S は 
ロー ル を 止め る だ け で エディ イッ トモ ー ド か 

ら は 抜け 出し ませ ん 。 
プリ ント アウ ト は で きま せん 。 

主 な コマ ンド の 使用 例 を 図 3 に あげ まし 
だ た 。 い ずれ の 機能 も 拡張 モニ タ の コマ ンド 
な の で , Hazy KoT, 

]H0 © 
と する と , ЖОНЕ, + bt 4 > 
POT Ее PIER セツ ウ ウ ン TE 
ッ ク サ ム な し エディ イタ と な り ま す 。 ふ た だ た 
び 拡 張 モ ニタ を 復活 する に は , 

]G8400 Q 
の 入力 で OK で す 。 
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ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +0 +E +F :SUM 
0800 : 53 43 46 20 43 43 46 20 ДА 52 20 20 41 44 44 20 : AD 
DB10 : 41 44 43 20 53 55 42 20 53 42 43 20 41 4E 44 20 : DD 
DB20 : 58 4F 52 20 4F 52 20 20 43 50 20 20 52 45 54 20 : D8 
DB39 : 50 4F 50 20 50 55 53 48 52 53 54 20 43 41 4C 4C : 84 
DB49 : 4A 50 20 20 4F 55 54 20 49 4E 20 20 49 4E 49 20 : C9 
DB50 : 49 4E 44 20 52 4C 43 20 52 52 43 20 52 4C 20 20 : El 
DB69 : 52 52 20 20 53 4C 41 20 53 52 41 20 3F 3F ЗЕ 20 : C? 
D870 : 53 52 4С 20 42 49 54 20 52 45 53 20 53 45 54 20 : 26 
DB89 : 49 40 20 20 43 50 49 20 43 50 44 20 4C 44 49 20 : C2 
DB90 : 4C 44 44 20 AC 44 49 52 43 50 49 52 49 ДЕ 49 52 : ТЕ 
DBA9 : AF 54 49 52 4C 44 44 52 43 50 44 52 49 ДЕ 44 52 : BA 
DBB9 : 4F 54 44 52 45 58 58 20 44 49 20 20 45 49 20 20 : E9 
DBC9 : ДЕ 45 47 20 52 45 54 ДЕ 52 45 54 49 52 52 44 20 : éF 
DBD9 : 52 4C 44 20 АҒ 55 54 49 AF 55 54 44 44 42 20 20 : 45 


С@9А : СЗ , C09B : E9 , C99C 


C97A : 11 


отм EB 


8420:00 8453:00 8DBA:66 
8DC0:66 8DC6:67 
8526:00 


i スー パー シス テム 88 は 7700H 一 83FFH を 使用 し て いる の て 
この エリ ア を 使用 する 長い BASIC プ ログ ラム ( 約 30 K 以 上 ) е, 
ロー ド す る と 人 本体 プ ログ ラム を 守る た め に エラ ー (Out of mem 
ory) と な り ま す 。 したがって, スー パー シス テム 88 で は BASIC 
プロ グラ ム は 約 29K ま で に お 願い し ます 。 


今月 は , 前 回 掲載 びき な か っ だ ROM 
BASIC 版 ス ー パ ー モ ニタ 88 と, テープ に セ 
ー ブ さ れ た だ た プログ ラム や ファ イル を ディ ス 
ク に セー ブ す る スー パー セー バ を お 届け し 
3s 

まず 。 スーパー モニ タ で す が , これ は 前 
回 に 掲載 し まし た SS88 用 スー パー モニ タ 
と 同じ 内 容 で す の で , 使い 方 は を ちら を ご 
参照 くだ さい 。 た だ し , 前 回 は か な り 説 明 
を 簡単 に し て し まい まし た だ ので, 今回 説明 
不足 と 思わ れる と ころ を くわ し 解説 し ま 
し た 。 前 回 分 を 読ん を で も よく 分 か ら な い 方 
は , 目 を 通し て みて くだ さい 。 

次 に スー パー セー バ で す が , カセ ッ ト テ 
ー プ に は バイ ナリ 形式 の BASIC プロ グラ 
マン シン 語 ブ ロタ コラ 6 フュー ズル A8 
が セー ブ で きま す が , テー プ に は FILE а 
マン ド は あり ませ ん し , スー パー シス テム 
の CMD A ュ コマ ンド の よう に マシ ン 語 プロ 
グラ ム の アド レス を 調べ て くれ る よう な コ 
ZARE DO А. от, 7—7 
に セー プ き る れ て いる プロ グラ ム や デー タフ 
デイ ルレ を デバ スク に キー ジ し よう と ら す る. と 。 
か な り 面 倒 に な っ て し まい ます 。 

そこ で , その 面倒 な こと を みん な や っ て 
し まお うと いう の が 。 この スー パー セー ババ 
88 で す 。 フ ァイル の 種類 , アド レス , 長き 
の すべ て を スー パー セー バ が 読み と り , 判 
暫し モ デイ キイ スク に モー プ し て で れれ ます 。 

この スー パー セー バ は SS88 用 で す が, 
ROM BASIC を 対象 に ファ イル の 種類 と 
マシ ン 語 の アド レス を 調べ る た め の ブ ログ 
ラム も 作っ て み ま し た の で , ディ イス ク を お 
持ち で な い 方 は こち ら 6 を 利用 し て みて くだ 
86 


きい 。 

また , スー パー シス テム を 掲載 以来 。 多 
数 の ご 意見 , な 問い 合わ せい た だ きま し 
だ た が, スー パー88 シ リー ズ の 主旨 を ご 理解 
い だ た だ け て な いと 思わ れる こと が 多々 あり 
ます の で , 今回 本 シリ ー ズ の 主旨 や 目的 と 
いっ た も の も くわ し く 説 明 し て み ま し た の 
КЕЕШ, 


スー パー セー バ {88 


プロ グラ ム 
ЕА E 
スー パー セー バ 88 の プロ グラ ム は リス ト 
1,02: 55-2 О лоз 
SS88 HT, リス ト 2 は ROM BASIC 用 で 
e 
リス ト 2 の 場合 は , 
DEF USR=&HB000 : 
I=USR (0) Q 
と すれ ば 起動 し ます 。 
次 に リス ト 1 の 場合 で す が , プロ グラ ム 


` を 完全 に 打ち 込ん だ ら セ モー ブ し て , SS88 の 


Expand type を 起動 きせ ます 。 起 動き せ た 
Y A F reai r чуду а А 
Dh, スー パー モニ タ を 使っ て リス ト 1 を 
入力 され た 方 は すでに SS88 Expanded 
type に な っ て いま すか ら , その まま で か ま 
いま せん 。 
つづ いて , モニ タモ ー ド で 
]H0 Q 
LUC, スー パー モニ タ を 解除 し ます 。 を 
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スー パー モニ タ PAHT 3 
ROM BASICHR 


れ か 5, 
]MD000, D7FF, 8400 © 
と し て , メ イン プロ グラ ム を 8400H 
—8BFFH に 移し ます 。 そこで , CTRL-B 
を 使っ て モニ タモ ー ド か ら 抜 け , 
BSAVE “SS. S1” , &H8400, 
&H800 © 
と し て , 810H—8BFFH を セー ブ し ます 。 
この と き , ファ イル 名 は 必ず 大 文字 で SS. 
SECUS Sv. 
KU, リス ト 3, 4 を 打ち 込ん で くだ きる 
vom eU АРАЗ S 
BSAVE'SS. I1”, &HF350, &H50 © 
リス ト 4 は 
BSAVE “SS. 12”, &H000, &H300 © 
ЕЕЕ р SOB E) 
スト 3 は 大 文字 で 55. П, TAMAS 
12:007 79 ル 名 iC セー ジョ じ :C : く 7 だ さあ 
そし て 最後 に , 先月 号 で オー トス ター ト 
機能 を つけ る だ た め に 変更 を 加え た SS88 本 
体 プ ログ ラム を , さら に リス ト 5 の よう に 
変更 じ て く だ さい 。 そして, モニ タモ ー ド 
УБ 
]GC000 © 
と し て 実行 し て くだ るい (実行 の 詳細 は 5 
月 号 の スー パー シス テム 88 を ご 参照 くだ き 
い )。 
以上 で 完了 で す が , これ に よっ て 1 枚 の 
ディ スク の 中 に 先月 号 分 や 合わ せ て , SS. 
ML SS: 1И2; SS IL SS: D, sS: ӨШ) 
5 つの マシ ン 語 ファ イル が 作ら 5 れ て いる は 
ЖЗ» こわ むら の は ASTE 
ム フ ァ ミリ ー に 属す る ブロ グラ ム で , スー 
パー シス テム 88 と いう DOS を 形成 する 一 


員 で す 。 1 つ で も 欠け て いた ら 正 常に 動き 
Aa LONG айла хул 

それ で は , 実行 し て み ま し ょ う 。 まず リ 
セッ ト を か け て スー パー シス テム 88 を 起動 
し ます 。 次 に 2 を 押し て Expanded type を 
セレ クト し て 《 だ さい 。 2 を 押す と , 先月 
号 ま で は プロ グラ ム を 読み 込ん で 終了 し ま 
し た が , 今回 は 図 1 の よう に 表示 され る は 
ず で す 。 こ の うち , 10 Super monitor は 
いま まで Expanded type と 呼ん で いた も 
0C, 672 月 の スー バー モニ タ の に こと 
で す 。 そ し て 2 の Super saver と いう の が , 
今回 の スー パー セー バ の こと で す 。 

で は , 1 か 2 を 押し て モー ド 選 択 を し て 
《 だ さい 。 モ ー ド 選択 を 行 う と , 選択 きれ 
た モー ド に 従っ て デ ロ グ ラム が 入力 され 終 
US ç 2 

以上 まで で きだ た 6, ダイ レク トモ ー ド で , 

ISET Q 

と し て 《 だ さい 。 す る t, 先ほど の モー ド 
選択 と 同じ 画面 ( 図 1) が 表示 る れる は ず 
で す 。 こ の ISET が モー ド 変 更 用 の コマ ン 
FC, 起動 時 に Expanded type を セレ クト 
し た 場合 に 使用 で きま す 。 くわ し く 述 べ ま 
Tt, た と えば 最初 に 1 の スー パー モニ タ 
を 選択 し た が , 途中 で スー パー セー バ を 使 
LE K ae SSE ka EES SU ISE ренче 
ンド を 使え ば, リセ モッ ト し な く て も 簡単 に 
EE RETESET >; b ы, ГЕ 
で は , 2 を 押し て スー パー セー バ モ ー ド に 
し て くだ さい 。 スー パー セー バ の 使い 方 の 
説明 に 入り まし ょ 3o 


使い 方 

ER 

まず ,SS88 用 の スー パー セー バ の 使い 方 
か ら 6 説明 し ます 。 こ の 場合 , 起動 は 

CMD S Q 
と し ます 。 これ で 図 2 の よう な 画面 が 表示 
る れ ま す の で , カ モッ ト テ ー プ を 出力 用 ( プ 
レイ ) EERIE U edis い 。 st bros 
た ら , ボー レー ト を 設定 し ます 。 ボ ー レ ー 
ト は 1200 ボ ー の と き は 1 を , 600 ボ ー の と き 
は 2 を 入力 し て くだ きい 。 入力 する と を の 
ボー レー ト が 表示 され , 

Sure (y/n) ? 
と きい て きま すか ら , それ で よい 場合 は Y 
か Yy を 入力 し ます 。 設 定 を 変更 し た い 場 合 
は N か n を 入力 し て , も う 1 度 ボ ー レ ー ト 


の 設定 か ら や り 直 し て 〈《 だ さい 。 
ボー レー ト の 設定 が 完了 する と , 
Save to disk (y/n) ? 
EBT Sk. СС, bibere 
容 ( 種 類 や アド レス ) を 調べ た な い だ け な 6N 
か 1n を 入力 し ます 。 こ の 場合 は すぐ に , 
Repeat infinitely (y/n) ? 
кес, Sa S tik. gd 2 
きる れ て いる プロ グラ ム や デー タフ ァイル の 
ロー ド , セー ブ ( デ ィ ス ク ) と いう 作業 を 1 
回 で 終了 する の か , それ と も テー プ エ ラ ー 
と な る まで (テー が 終わ る まで ) 続け る 
の か と いう こと で す 。 1 回 で 終了 する 場合 
は N か n を, 続け た い 場 合 は Y か Y を 入力 
し て 《 く だ さい 。 くわ し く は , 実行 し て みれ 
ば すでに お 分 か り い た だ ける と 思い ます 。 
これ を 設定 する と , テー プロ ー ド が 開始 
SLR os lele L, 
Save to disk ? 


r 


ADRS : 
D999 : 
00616 : 
D020 : 
D939 : 
D040 : 
D050 : E 
D969 : 
D979 : 
D080 : 


で Y か y を 入力 し た 場合 は , その 前 に , 
Drive# (1 or 2) ? 
と きい て きま す の で ,。 セーブ し た い ド ライ 
ER (E RIZDE を 入力 GTER P S US 
入力 する と, その ドラ イブ ナン バー が 表示 
され , 
Sure (y/n) ? 
と きい て 。 き ま E eu W. k UR 4 2 ナ 
ン バ ー を 誤っ て 入力 し た 場合 は N か n を 入 
HLT, ドラ イブ ナン バー の 設定 か ら や り 5 
直し て くだ さい 。 
以上 が 完了 する と , 
Repeat infinitely ? 
te us 
テー プロ ー ド が 開始 きれ, ファ イル が み 
つか る と , その ファ イル 名 と ファ イル の 種 
類 が , 
Found : 


(еа IAN 
(ファ イル の 種類 ) 


BOOG : ЗА C1 Eé F6 10 D3 40 CD 42 ВЗ 21 10 Ва CD 50 55 : 20 
B919 : CO 83 35 CD 8D ЗЕ FE 31 28 08 FE 32 28 QE FE 03 66 
B929 : CA 7B 04 18 ES 21 F9 ВЗ ЗЕ FB 18 @5 21 03 Ва ЗЕ 7F 
B939 : 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +С +D +E +F :SUM 
B300 : 32 АӨ ВЗ ЗЕ 41 32 A1 ВЗ 11 8F EC 21 9C ВЗ 01 96 : 80 
B310 : 00 ED B0 18 CF 21 C7 B4 CD 50 55 СО 21 ВЗ 38 FS : 60 
B329 : C9 CD 83 35 CD QD ЗЕ FE 59 28 15 FE 79 28 11 FE : АВ 
B339 : ДЕ C8 FE 6E C8 FE 03 CA 7B 04 CD 50 ВЗ A? 37 C9 : 18 
B340 : A? C9 ЗЕ 5С 21 00 СӨ 11 01 СӨ 06 3F АҒ F3 ED 79 : АА 
B358 : 36 99 ED BO ЗС FE SF 20 EB D3 SF FB C9 ЗЕ 0A СЗ: 78 
B360 : 8D ЗЕ 21 А2 ВЗ ES CO 15 7F CD 50 ВЗ AF 03 53 ЗА: ЕЗ 


B380 : 04 21 АЕ ВЗ 18 DF 21 B9 ВЗ 18 DA 21 ӨР EC 96 09 : AZ 
B390 : 36 20 23 10 FB C9 46 49 4С 45 31 40 4D 41 43 4E : FD 
B3A9 : 31 40 4F 76 65 72 20 6C 65 6E 67 74 68 00 54 61 : 64 
B3B9 * 70 65 20 65 72 72 6F 72 00 42 61 64 20 66 69 6C : 81 
B3C9 : 65 00 46 6F 75 6E 64 20 ЗА 20 99 3B 42 41 53 49 : 35 
B300 : 43 20 20 20 20 ВА 99 ЗВ 44 41 54 41 46 49 4C 45 : 42 
B3EQ : 20 9A 00 ЗВ 4D 41 43 48 49 ДЕ 45 20 F1 54 5D 09: 25 
B3F9 : СО A4 44 7E CD DS 44 B? FA 31 32 30 30 20 62 73 : 82 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 «A +В +С +0 +E +F :SUM 
B400 : 70 OA GG 36 30 30 20 62 73 70 QA 00 53 61 76 65 : OE 
B419 : 20 6F 6E 20 64 72 69 76 65 20 99 0A 00 OC 2D 20 : C7? 
B429 : 2D 20 20 20 20 20 20 2D 20 20 2D 20 2D 20 2D 20 : DQ 
Вазе : 2D 20 20 20 20 20 94 20 20 20 20 53 55 50 45 52 : 27 
B449 : 20 53 41 56 45 52 20 38 38 9A 20 28 43 29 31 39 : 59 
B450 : 38 34 20 42 59 20 41 2E 4B 4F 42 41 59 41 53 48 : 08 
B469 : 49 BA 20 20 20 20 20 52 AF 40 20 56 45 52 53 49 : 97 
B479 : 4F 4E 20 2D 8A 2D 2D 20 20 20 20 20 20 20 20 2D : ЕЗ 
B480 : 20 20 20 20 2D 20 20 20 20 20 20 20 20 9A ВА 50 : AD 
B490 : 6C 65 61 73 65 20 73 65 74 20 63 61 73 73 65 74 : 19 
B4A@ : 74 65 20 74 61 70 65 2E дА 57 68 61 74 27 73 20 : 29 
B4B9 : 62 73 79 20 28 31 3A 31 32 30 30 20 2F 20 32 3A : 96 
B4C9 : 36 30 30 29 ЗЕ 20 00 53 75 72 65 20 28 79 2F 6E : 18 
BADO : 29 ЗЕ 20 00 52 65 70 65 61 74 20 69 6E 66 69 6E : 10 
B4E9 : 69 74 65 6C 79 20 28 ?9 2F 6E 29 3F 20 00 QA 57 : 6E 
B4F9 : 6F 72 68 69 6E 67 2E 2E 2E 2E QA 00 99 өе 99 өө : 4C 
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と いう 形 で 表示 きれ ます 。 こ の うち ファ イ 
ル の 種類 は , BASIC の プロ グラ ム の 場合 は 
*BASIC?。 マ シン 語 の プロ グラ ム の 場合 
І “MACHINE”, デー タフ ァイル の 場合 は 
"DATAFILE' と 表示 る され ます 。 なお, マ 
シン 語 の プロ グラ ム の 場合 は ゲロ グラ ム の 
入力 が 完了 し た 時 点 で . その 開始 アド レス 
と 長き が 16 進 数 で 表示 る れ ま す 。 

ik, カセ ッ ト テ ー プ の 場合 , マシ ン 語 
プロ グラ ム に は ファ イル 名 が つい て いな い 
場合 が あり ます が , その と き は スー パー セ 
ー バ の 方 で 

MACNnm (n :1—9, m: A~Z) 
と いう ファ イル 名 を つけ ます 。 これ は , bd 
と も と ファ イル 名 の つい て いな い デ ー タ フ 
ァイル の 場合 に つい て も 当て は まり , その 
場合 は , 

FILEnm (n :1—9, m: A— Z) 
EXS9 2 y AV ЫЛ b $ p LS C, 
実行 中 に MACN1A” と いっ た ファ イル 名 
が 表示 る れ た ら , それ は ファ イル 名 の つい 
で いか が We シン ン 語 ジロ ラム だ まい ゆで て と 
で す 。 あ と の 細か い 部 分 は 実際 に 使っ て ご 
理解 いた だ ける と 思い ます 。 

次 に КОМ BASIC 用 の スー パー セー バ 
の 使い 方 を 説明 し ます 。 こ の 場合 は , 5588 
用 の スー パー セー バ に お いて 

Save to disk (y/n) ? 

と いう メッ セー ジ が 省略 され て , すぐ で に, 

Repeat infinitely (y/n) ? 

と 表示 きれ る と いう だ け で , あと は 5588 
用 と 変わ り ま せん 。 こ の 点 だ け 注 意 し て , 
5588 用 の 説明 を ご 覧 くだ さい 。 

Ёк хеке сузе уе че ур п 
使用 上 の 注意 
IS 

Repeat infinitely ? 

TYDY を 入力 し て 何 度 も 作業 を 繰り 返す 
| 24 
ル と ファ イル の 間 も 読 み 込 ん で いま す の で 
その 間 に 余計 な 雑音 な ど が 入っ て いる と , 
テー プ エ ラ ー (ТК error) に な っ て し まい 
ます の で 注意 し て くだ さい 。 

また , この スー パー モー バ は バイ ナリ 形 
AD BASIC プロ グラ ム , マシ ン 語 ブロ グ 
25, デー タフ ァイル の み を 対象 と し て い 
ます 。 し た が っ て , 特殊 な セー プ を し て あ 
5605, PC-8801 の モー ブ 方 法 と は 違っ 
た 形式 で セー ブ き され た も の な どの 場合 は 正 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +F :SUM 
C200 : 20 6D 6F 64 65 20 6E 75 6D 62 65 72 20 3F 20 00 : ED 
C210 : 8A 20 20 5? 6F 72 6B 69 6E 6? 2E 2E 2E 2E 2E 00 : 11 
C220 : өө 00 өе өө өө өе OO OO OO өе өе өе өе OO OO OO : өө 
C230 : 00 00 өө өө ве OO 99 ве 99 QA ве OO OO OO өе OO : өө 
C240 : 42 4C 4F 41 44 22 53 53 2E 4D 32 22 ЗА 42 4C 4F : 10 


xxxx EXPANDED MODE SELECTION xxx 


1.Super monitor 
2.Super saver 


What s mode number ? 8 


B] 1 
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常 な 動作 は 期待 で きま せん 。 
その か 155 この: テッ パー 

イト まで の ファ イル を 

で それ 以 馬 の 清き は デ エラー と な つて し ま 

いま す の で ご 注意 くだ きい 。 


スー バー モニ タロ 
E S 3 
トド PR 


プロ グラ ム 

ON で 
プロ グラ ム は リス ト 6 の よう に な っ て い 
ます 。 こ れ を 完全 に 打ち 込ん だ 6, 6 月 号 
に 掲載 し た スー パー モー ニタ (RART1) を 起 
動き せ て くだ さい 。 も ちろ ん , その 前 に 打 
ち 込 ん だ プロ グラ ム は セー ブ し て お いて く 
だ きい 。 

起動 きせ た ら リ スト 6 を ロー ド し て , 次 
QE uae r A 

まず モニ タモ ー ド で 

ЇН 3.688; © 

と し て , テキ スト RAM モー ド に し て , 

]MD000, EOFF, 7000 О 
CUu coc b, 7000H 
LB80RBH セージ し て くだ さい 。 こ れ が ス 
ー パ ー モ ニタ II の メイ ンプ ログ ラム と な り 5 
ます 。 以後 、 メ イン プロ グラ ム は こち ら を 
FU 2 T 

次 に , 6 月 号 の スー パー モニ タ I を 変更 
Е Р Лы UT 
じ て 〈 く だ さい 。 ロード G で きだ ら , アド レス 
C12CH の 値 (C9H) を 00 に し ます 。 スーパ 
ー モ ニタ II を 利用 する 場合 は , この 変更 し 
た スー パー モニ タ I を 使用 し て くだ さい 。 
で は , 起動 きせ て み ま し ょ う 。 まず, 先 
ほど 変更 し た スー パー モー ニタ | を 起動 し ま 
+, 起動 方 法 は 6 月 号 を ご 参照 くだ さい 。 

つづ いて , 今回 の スー パー モニ タ II の メ 
AV ZHER Жш bikat: S hu, 
ザイ ログ 表記 の ダイ レク ト ア セン ブラ , デ 
スジ ジョ ジ 4458R(K ブ チェ ェ ッ ク «wx 
ンプ エディ タ が 使え る よう に な り ま す 。 


使い 方 


使い 方 は , 先月 号 の SS88 用 スー パー モ 
ニタ と 同じ で す の で , そちら を ご 覧 くだ き 
v, ここ で は , 前 回 は いた こと を 説明 し 
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ー バ は 48K バ 


ЕСО 


Ts 

まず 。 チェ ッ ク サ つき エディ イタ で PE, 
これ を ディ スク モー ド で 使う と か な り ス ピ 
ДАЕ а š Sp it SW の 
は ご か ん で ん くだ さい 。 また, ご 使用 の 際 
i, リー ド ・ ラ イト モー ド を 注意 し て くだ 
さい 。 も し リー ドモ ー ド と ライ トモ ー ド が 
違っ て いれ ば , 当然 を その ダン プ を 書き 替え 
て も チェ ッ ク サ ム は 変化 し ませ ん 。 

次 に ディ イス ア セン プラ で す 。 プ リン タ に 
出力 する と き は AS コー ド が 一 緒 に プ 
リン ト ア ウト され ます 。 も し, これ が じゃ 
まだ と いう と き は , 画面 を 40 字 モー ド に し 
Gu АУ С G5 人 だ さい 。 CII 
ば 5a ア ドレ ス と デー ニタ ニー モニ ッ ク ツク ぽか が 
出力 され ませ ん 。 

そして, まこ と に 申し わけ な いこ と で す 
が , 先月 号 で リス ト 3 が どう いう わけ か 抜 
UG Sas だ 0 SMA に つい で は !- imb 
欄 に くわ し 載っ て おり ます の で , そちら 
を ご 覧 くだ きい 。 こ の リス ト 3 は 今回 の ス 
ー パ ー セ ー バ に も か か わっ て いる 大 切な 部 
AZ CE 


BESUCHE EAST SEE o 
オー トス ター ト の 補足 
тсе 


スー パー シス テム 88 で は , ID モク タ で フ 
ァイル 数 が 設定 され て いる 場合 は , 自動 的 
に Simple type を セレ クト し ID モク タ に 
書か れ て いる 文 を 実行 し ます が , も し ファ 
イル 数 が 設定 され ず 任 意 (FFH) に な っ て 
いる と き は タイ プ 選 択 。 モー ド 選 択 が 完了 
し た の ち 実 行 を 開始 する よう に な っ て いま 


| 


スー パー シス テム と は 


初回 か ら お 読み い だ だ いて いる 方 は 分 か 
っ て いら っ し ゃ る と 思い ます が , この スー 
2 パー88 シ リー ズ と いう の は 最終 的 に 1 つの 
形式 を も っ た DOS に 仕上 げ る と いう こと 
を 目的 と し て いま す し た が っ て , 今回 も 
そう で よる ねー これ まで スー ペー88 シ リー ズ 
で 掲載 きれ た プロ グラ ム が 1 つ で も 欠け て 
いる と 正常 に 動作 し な いと いう こと に な っ 
て し まい ます (ROM BASIC 用 は 違い ます 
が )。 

で すか ら , 今回 は つま ら な いか ら 打 ち 込 
む の は 止め よう と いう こと に な る と , 次 回 


か ら の 機能 が 使え なくなっ て し まい ます 。 
これ は 確か に スー パー88 シ リー ズ の 欠点 か 
も しれ ま せん が , 途中 か ら 読み 始め られ た 
方 々 へ の サポ ー ト も 考え て お り ま す の て で, 
ご 理解 いた だ きた いと 思い ます 。 

し か し , その 反面 。 お 寄せ 頂い た ご 意見 
や ゃ ご 要望 を DOS の 中 に 反映 する こと が で 
きる と いう 長所 が あり ます 。 作 者 が ひと り 
で 作り 上 げた も の は , や は りほ か の 人 に は 
使い に くい 面 が 生じ て し まう も の で す 。 こ 
の よう に 連載 形式 で シス テム を 作っ て いく 
メリ ッ ト を 最大 限 利 用 し て いき た いと 思い 
ӘР: 


SUPER SAVER 88 
(C1984 BY A.KOBAYASHI 


Please set cassette tape. 
Uhat s bsp (1:1200 / 2:600)? B 


図 2 


ドラ イプ ナン パー の 


リピ ビー ト フ ラク の 設定 
| 
ファ イル の 判別 


ファ イル の ロー ド 


fpaio : 18 F2 ЗЕ 28 12 13 CD SF 74 ЗЕ 29 12 13 18 ES CD : 8B 
f |Da20 : CC та CD 55 74 18 DD 18 3A E6 83 А? 28 07 13 €F : E1 
N | |0430 : 26 өө CD 52 74 ЗЕ 29 12 13 18 C9 DD 2B DD 7E 00 : 89 


テー プロ ー ド クロ ー ズ | |D480 : CD 49 та éF ES CD 49 74 E1 67 CD C1 82 D1 06 04 : 9B 


ディ スク に セー デブ 


ERS D489 : 26 00 CD C1 82 01 06 02 23 23 18 Е4 ЗА CE F1 FE : 48 


| EM © [SUM : 4F 43 F8 CC 93 9A 29 83 40 21 9F F1 СЗ 75 E6 30 : ЕЗ 


B3 スー パ セ ー バ の フロ ー チ ャ ー ト 


> 
o 
m 
[7] 


+@ +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM ADRS 


0700 : C2 4D 77 22 DA 83 ЗЕ 01 32 E? 83 13 ЗЕ EB СЗ 69 : 47 DC99 : 
D710 : 76'1B ЗА FF 83 А? 20 DF ЗА CE F1 FE 51 28 08 7D : B8 DC10 : 
0720 : FE BC 28 ӨС FE DE 28 08 FE BA 38 CB FE ӨЕ 30 C? : 09 DC29 
D739 7С A? CA DD 75 18 СӨ AF 32 E6 83 13 7С A? 20 9D : C4 DC39 


06 21 EQ 83 36 00 23 10 FB 96 03 AF DD 77 99 DD 


D740 : 1А FE 29 13 70 CA 69 76 18 03 01 37 C9 37 C9 06 : 6С DC49 


23 10 F9 21 58 7A E5 11 53 7C CD АӨ 77 DO 11 13 : i 
0770 : ?D CD 98 ?? 00 CD Ce 77 De CD 79 79 DO CD ЗЕ 79 : 16 DC79 
0780 De со ес 79 ре CD ве 78 DO өө CD 22 78 DO CD 13 : 

0790 : 78 DƏ CD BD 79 СЗ ДА 77 СО АӨ 77 D8 Cé CO 18 17 : 40 0с90 
D7A9 91 99 40 21 DO 83 C5 05 06 03 1А АҒ 7E А9 20 ӨС 14 DCA9 : 
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EX 


= デイ 


788 


1984 年 11 月 掲載 


は じ め に 


今回 は ディ スク に 収め られ て いる ファ イ 
ル を 整理 する た め の フ ァイル エディ タ を プ 
ログ ラバ に し て み ま じ た 。 

ディ スク に は , いろ いろ な 種類 の た くる 
だ の ジア ルレ が ニン きま す 計 2, 
機械 的 に 詰め 込む だ け な の で , ファ イル の 
数 が 多く な っ て くる と ずら り と 並ん だ ファ 
イル の 中 か ら 目 を 忠 の よう に し て 目的 の フ 
ァイル を 探 き な けれ ば な り ま せん 。 こ れ で 
は 不便 で す 。 を そこで, この ファ イル エディ 
タ の 登場 で す 。 

この ファ イル エディ タ に は , ファ イル の 
並べ 替え , 削除 , ネー ム 変 更 , プロ テク ト , 
プロ テク ト 人 解除, 調査 お よび 印刷 と いっ だ 
機能 が 備わっ て いま す の で , これ を 使え ば 
乱雑 に 詰め 込ま れ た だ ファ イル を 自由 か つ 簡 
単に 整理 する こと が で きま す 。 これ で もう 
Е БЕ А Е EY) 
に SS ん た の ここ (に の も 

前 回 同様 , 今回 も この スー パー88 シ リー 
ズ を 初め て ご 覧 に な る 方 に も ご 利用 いた だ 
ける よう に , スー パー88 専 用 タイ プ と 単独 
で 使用 で きる タイ プ の 2 つの プロ グラ ム を 
掲載 し て あり ます の で , スー パー88 を お 持 
ち で な い 方 も 臣 非 使っ て みて くだ さい 。 


プロ グラ ム 
っ 


プロ グラ ム は リス ト 1 一 4 の よう に な っ 


て いま す 。 リ スト 1 は 独立 タイ プ 用 メイ ン 
プロ グラ ム , リス ト 2 は スー パー88 用 メイ 
ンプ ログ ラム で す 。 残り の リス ト 3, 4 は 
それ ぞ れ スー パー シス テム 88 内 に 今回 の フ 
ァイル エディ タ を 組み 込む た め の SS. 12, 

SS. F1 用 変更 り ス ト で す 。 なお, SS.12 は 
いま まで 何 度 も 変更 を 加え を て きま し た の で 
チェ ッ ク の た め は に 今回 は 11 月 号 現 在 の リス 

ト 全 部 を 掲載 し まし た の で (リス ト 3), £ 
(お 確か めのう え ぇ 変更 , 修正 し て くだ さい 。 
また だ, 最後 の リス ト 5, 6 は スー パー88 の 
デバ ッ グ 用 の リス ト で , あと の 「 ス ー パ ー 
88 の 改正 」 の 欄 で くわ し く 説 明 し て あり ま 
TOT, そちら を ご 覧 くだ さい 。 

で は , プロ グラ ム を 打ち 込ん で み ま し ょ 
う 。 ま ず , スー パー シス テム 88 な し で 独立 
し て 使う 場合 は リス ト 1 を 打ち 込ん で くだ 
きい 。 プ ブロ グラ ム の 起動 は , 

A= & HC000: CALLA © 
で OK で す 。 あ と は , 使い 方 の 説明 を ご 覧 
くだ さい 。 

次 に スー パー88 用 で す が , この 場合 は , 
リス ト 2 を 打ち 込ん で くだ さい 。 完全 に 打 
bab d UIS LE —7 に で スー ンド ニン % 
テム 88 を 起動 , Expanded type の Super 
monitor を セレ クト し て 〈《 だ る さい 。 を そして, 
先ほど モー プ ブ し て お い だ た リス ト 2 を ロー ド 
Сеад, 

] HO Q 
と し て , スー パー モニ タ を 切り 離し て くだ 
や いつ づい RG 

] MC000, C9CF, 8400 Q 
と し て , メイ ンジ ログラム を 8400 ヨ ーー 8 
DCFH に 移動 し ます 。 それから , 


BSAVE “SS. El” 
& H8400,& H9DO Q 

LL C,8400H —8DCFH を モー ブ し ます 。 
この と き , 必ず ファ イル ネー ム は いび SS.E17 
と し て お いて くだ さい 。 

KU, スー パー シス テム 88 の ファ ミリ ー 
の 中 の 55.12 を リス ト 3 の よう に , 55. ЕІ 
を リス ト 4 の よう に 変更 し て くだ る い 。 Š 
の 変更 に よっ て , Expanded type を セレ ク 
ト し た と き に 図 1 の よう な 表示 が あり , ス 
ー パ パー フォー マット を 使用 時 に 今回 の SS. 
E1 も コピ ー さ れる よう に な り ま す 。 

以上 が 完了 し まし た ら , 起動 し て み ま し 
ょ う 。 k35. EVE аА 
ステ ム 88 を 立ち 上 げ , Expanded type # + 
レク ト し ます 。 す る と , 図 1 の よう に 表示 
され ます の で , ここ で は 4 の Super file 
editor を セレ クト し て くだ さい 。 これ で 
今回 の ファ イル エディ タ が 使え る よう に な 
d ます 。 で は , 使い 方 の 説明 に 入り まし ょ 5. 


使い 方 
E 3 


使い 方 は スー パー88 用 , 独立 用 た も まっ 
た 同じ で , 

СМрЕ < ドラ イブ ナン バー〉> О 
て ジア ボル エズ:E 主 ド に ЫЕ ту 3: 
と えば , ドラ イブ 2 に セッ ト る れ て いる デ 
ィ ス ク を 対象 と する 場合 は , 

CMD F2 Q 
と し ます 。 だ た だし, ドラ イブ 1 の 場合 は ド 
ライ ブナ ン バ ー を 省略 し て , 
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CMD F Q 
c Ca UR EN сї, EOT TA 
ル エ ディ タ は ディ レク トリ や FAT に 対し 
= а io b DZ: b 65 2 
ンプ リス ト の 打ち まち が いな ど が ある と , 
ディ スク の ディ レク トリ や FAT が 破壊 き 
れる 世 れ が あり ます 。 最 初 は 破壊 され て も 
が まね わな い デ イィ スタ で テス ト し て みて б 
きい 。 

ファ イル エディ タ が 起動 きれ る と, すぐ 
に 指定 きれ だ た ドラ イブ か ら デ ィ レ クト リ と 


FAT を 読み 込み , ディ レク トリ の ガ ベ ペー 


ジコ レク ショ ン (ゴミ 集め ) を 行い ます 。 
ディ レク トリ に は ダン プリ スト の 先頭 が 
0 と な っ て いる 行 が あり ます 。 こ の 行 , 何 
E b KILL 命令 を 使っ た ディ レク トリ に 
は か な り の 数 が 存在 し ます 。 と ころ が , スー 
パー シス テム 88 の FILES 命令 で は ディ レ 
クト リ を 1 セク タ ず つ リ ー ド し て 表示 し て 
CARD, 先頭 が 0 と な っ て いる 無 意 味 な 
行 が 多い と RETURN キー を 押し て も 1, 
2 個 の ファ イル し か 表示 さる され な いと いう こ 
と に な り ま す 。 そ を そこで, この 無 意 味 な 行 ( ゴ 
RJ HETE SRE сус 9 


RETURN キー 1 発 で 16 個 の ファ イル が 表 
et る よ TEESS2IS い つう の の CDE 
用 レク トリ の ガ ベ ペー ンコ レク ショ ン て す 。 
上 記 の 利点 以外 に も , ガベージ コレ クシ ョ 
ン は ファ イル の 検索 の 高速 化 に つなが り , 
ERELT, セー ブ , ロー ド の 高速 化 に も 
役立つ も の で すか ら , ファ イル エディ タ の 
必要 の な い デ ィ ス ク に も , 1E, ファ イル 
エディ タ を 起動 し ディ レク トリ の ゴミ 集め 
ut] o Co E EAE y os 

ディ レク トリ の ガベージ コレ クシ ョ ン が 
完了 する と, ファ イル 名 が すべ て 表示 きれ 
ます 。 で は , 画面 の 説明 に 入り まし ょ う 。 


iy, 1 行 目 で す 。 

Free… x x 
と 表示 きれ て いま す が , これ は この ディ ス 
ク の 空き クラ スタ 数 ( 未 使用 の クラ スタ の 
Ж) を 表し て いま す 。 こ の 値 は 。 ファ イル 
を 削除 する L, それ に 合わ せ て 変化 し て い 
ます の で , 便利 だ と 思い ます 。 そして, を 
の 隣 に は 最初 に 指定 きれ た ドラ イブ ナン バ 
ー が , 

(Drive x) 
の 形 で 表示 る れ て いま す 。 
次 に 最 下行 で す が 。 ここ に は ファ ンク シ 
ョ ン キ ー の 機能 が 表示 る され て いま す 。 


※※※※ EXPANDED MODE SELECTION жжжж 


1.Super monitor 
2.Super saver 

3.Super 
4.Super file editor 


What s mode number ? 8 


- 


format 


アド レス : デー タ 
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DAS ss 3 


ファ ンク ショ ン キ ー は 表 1 の よう に な っ 
て いま す が , くわ し 〈 く は あと で 述べ ます 。 


SE 
ファ イル の 削除 


表 1 ファ ンク ショ ン キ ー の 内 容 


m| m | m| = 


で は ファ イル 名 を 見 て くだ さい 。 表示 る 
れ だ ファ イル 名 の 中 で , 左 す み の フ ァイル 
名 だ け リ バー ス で 表示 る れ て いる は ず で す 。 
ки O С eo 590), 
カー ソル キー に 合わ せ て , この リバ ー ス 表 
示さ れる ファ イル 名 が 変化 する と いう わけ 
Ee EERE S Ub, J= 2 yy PG 
だ いで みて 《 く だるい 。 す ぐに, TINS 
ТТ St C E o TIE OE 35 
CAPS YI UTS E ORIEL 
て お いて くだ さい 。 オ ン で は うま く 動 きま 
X Us 

それ で は , 各 キ ー ご と に 機能 
БЕРСЕ 
fT 

RTAMRA о ЕЕ E E IK 
BESET L S 2 ANE INS E us 
ファ イル の 前 に 移し た いと き は , カー ツル 
е ‘TEST’ の と ころ に 移動 し | f・1 | を 
押し ます 。 す る と , 左下 に 

Where ? 
と 表示 きれ ます の て で, 今度 は カー ツル を 

NINS^* の と ころ まで 移動 し , RETURN + 
ー を 押し ます 。 こ れ で , “INS” の 前 に 
“TEST HHA SN, 並べ 替え が 完了 し た 
わけ で す 。 た だ し , これ で は いつ も 前 に 挿 
入 き れる の で , いち ば ん 最後 の 位置 に 移す 
こと が で きま せん 。 そこ で , その 場合 は 
RETURN キー の 代わ り に スペ ー ス バー を 
押し て くだ きい 。 ス ペー スバ ー を 押す と , 
カー ソル の 位置 と は 無関係 に いち ば ん 最後 
の 位置 に 挿入 る れ ま す 。 

ORE 

Where ? 
と 表示 る され て いる と き に STOP キー を 押 
す と , жо - 1| を 押す 前 ) 画面 に も と 
b, 挿入 は 中 止 き され ま す 。 それから , АТ 
に リバ ー ス で 表示 る され て いる の は , 挿入 指 
定 さ れ た ファ イル 名 で す 。 


説明 し て 


ファ イル を 削除 し ます 。 削 除 し た い フ ァ 
イル 名 の と ころ に カー ソル を 移動 し , 
ЕК を 押し て くだ き ぃ 。 左下 に 。 ブリ 
SEC 

Hit return key. 
と 表示 きれ ます の で , RETURN キー を 押 
L08022 u p D の SS OR 
を 押す と , 削除 は 中 止 さ きれ, 元 に も どり ま 
す の で , も し 誤っ て | f ・ 2 | を 押し て し ま 
っ た 場合 も , 安心 で す 。 

る て , RETURN キー を 押す t 指定 され 
た ファ イル が 削除 る きれ, 空き クラ スタ 数 が 
を その ファ イル 分 だ け 加 えら れ て 表示 きれ ま 
す 。 ま だ た, この と き 同 時 に 。 75 0735 
の ガベージ コレ クシ ョ ン も 行わ れ ま す の で , 
ディ レク トリ に 無 意 味 な 行 が 残る と いう こ 
と は あり ませ ん 。 
>й 

ファ イル ネー ム を 変更 し ます 。 ま ず , 2 
ー ツ ル を ネー ム 変 更 し た い フ ァイル の と こ 
ろ に 移動 し , | f ・3 | を 押し ます 。 す る 
КЛ ре 

Name ? 
を 表示 きれ ます の で , 新しい ネー ム を 打ち 
X^ C, RETURN キー を 押し て くだ る い 。 
も し , ここ で STOP キー を 押す と ネー ム 変 
更 は 中 止 る され, 元 に も どり ます 。RETURN 
キー を 押す と , ファ イル が 変更 きれ ます 。 

ファ イル の プロ テク ト を 行い ます 。 ま すず, 
プロ テグ クト し だ たい ぃ い フ ァイル の と ころ に カー 
ツル を 移動 し , | f・4 | を 押し て くだ き 
い 。 こ れ で , その ファ イル が プロ テク ト さ る 
れ ま す 。 

f ・4 | の 逆 で , プロ テク ト を 解除 し ま 
3. 使い 方 も , f. 4 | の 代わ り に , 
| f ・5 | を 押す だ け で す 。 こ れ で , > 
クト が 解除 きれ ます 。 

HFLP キー 

ファ イル の 種類 アドレス, プロ テク ト 
の 有無 , 使用 クラ スタ な ど を 調べ ます 。 

まず , 調べ で ない フ ァイル の と ころ へ カー 
ツル を 移動 し , HELP キー を 押し ます 。 こ 
nT, 画面 上 に ファ イル ネー ム , RAT, 
アド レス , (マシ ン 語 プロ グラ ム の み ), 7 
ロ テ ク ト , 使用 クラ スタ が 表示 され ます 。 
な お , 使用 クラ スタ の 順 は , 矢印 の 順 で す 。 
また , これ だ け の クラ スタ 情報 で は ディ ス 


ク の どこ を 示し て いる の か 分 か り ま せん の 
С, その 後ろ の ( ) の 中 に , その クラ ス 
250 gs Т О ОШ ТИ nA ドラ カク まで 
クタ が 同時 に 表示 され る よう に な っ て いま 
Fo RIEL, モク タ は 使用 セク タ が 表示 さる 
れる よう に な っ て いま す 。 

すべ て 表示 きれ る と , 左下 に 

Hit return or copy key. 
と 表示 る され ます の で , RETURN キー か 
COPY キー を 押し て くだ る い 。RETURN 
キー を 押す と ファ イル エディ タモ ー ド に も 
どり, COPY キー を 押す と 表示 きれ た 結果 
が プリ ント アウ ト さ れ ま す 。 
ESC キー 
ЕКОЕ ИЕ Е Ее RES 
ば , 現在 ドラ イブ 1 を 対象 と し て いる と し 
ます 。 ここ で ESC キー を 押す と , 対象 が ド 
ライ ブ 2 に 変更 きれ ます 。 つ まり , ESCH 
ー1 発 で も う 一 方 の ドラ イブ に 対象 を 変更 
で きる と いう こま で すす 。 
COPY キー 

A TIE IBARET QA 
イル エディ タモ ー ド で , COPY キー を 押す 
と , 現在 画面 に 表示 きれ て いる 全 フ ァイル 
が プリ ント アウ ト さ れ ま す 。 
STOP キー 

ファ イル エディ タモ キー ド で STOP. キ ネー 
を 押す と , エディ イッ タモ ー ド か ら ぬ けり 出し 
idu 69554 V7 カ ンク ジョン キ お 
どおり に な り ま す 。 

以上 で , 今回 の ファ イル エディ タ の 使い 
方 を ご 理解 いた だ けた と 思い ます 。 使 用 上 
の 注意 は , 4%, ノー マル に 使っ て いた だ 
けれ ば 問題 は な いも ぁ も の な の で , これ と いっ 
て ご ざい ませ ん 。 自分 な り に , うま く 使 い 
Л CAT だ Sw。 


Mm 
NW — 53 


スー パー シス テム 88 は お 気づき の 方 も い 
らっし ゃ る と 思い ます が , ON ERROR 
GOTO 文 が 使用 で きま せん 。 そこ で 人 今回 , 
リス ト 5,6 の よう に 改正 し た いと 思い ます 。 

まず , リ スト 5 で す が , これ は スー パー 
88 フ ァ ミ リー の 中 の SS. H の 追加 リス ト 
で す 。 この 追加 に よっ て , アド レス は F350 
|H—F3BeH と な り ま す の で , この 部 分 を 
SS.I1 と いう ファ イル ネー ム で セー プ し で 

95 


くだ きい 。 なお, 追加 リス ト は 追加 部 分 も この ょ うに 変更 し た の ち , 


含め た SS: I1 の 全 リ スト で す 。 ] GC000 Q 
念 の た め , 元 の 部 分 も チェ ッ ク し て お い と し て , デイスク に スー パー シス テム 88 を 
C GSS yo セッ ト し で お いで くだ さい 。 


次 に リス ト 6 で す が , これ は 「SS88 セッ 
ト 用 プロ グラ ム 」(5 月 号 に 掲載 し , その後 
変更 を 加え た だ た プログラム) の 変更 リス ト で , 


CODE 1-92 <. «CBEO TES. BB AF „ CIRC -3 Fa 


e 


SG RE 
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ADRS +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +D +E +F :SUM 
C990 65 63 74 20 20 20 20 1С 1C 20 75 6E 79 72 éF 74 : BC 
C910 : 65 63 74 20 20 00 48 69 74 20 72 65 74 75 72 6E : 61 
C920 : 20 6B 65 79 2E 00 4E 61 6D 65 3F 20 00 57? 68 65 : 9B 
C930 72 65 ЗЕ 20 00 46 69 6C 65 20 77 72 69 74 65 20 : 21 
C940 79 72 6F 74 65 63 74 65 64 00 46 69 6C 65 20 61 : CB 
C950 : éC 72 65 61 64 79 20 65 78 69 73 74 73 00 46 72 : F9 
C960 : 65 65 20 20 00 46 69 6C 65 20 6E éF 74 20 65 78 : F8 
C970 69 73 74 73 00 48 69 74 20 72 65 74 75 72 6E 20 : C8 
C980 6F 72 20.63 6F 70 79 20 6B 65 79 2E 00 00 99 99 : 53 
C990 : 00 99 99 99 99 OO OO OO 99 OO OO OO OO OO OO OO : OO 
C9A9 : өө 00 өө 99 OO OO 99 OO OO OO OO OO OO OO OO OO : OO 
све : 99 ов 99 OO OO OO OO OO OO 99 OO OO OO OQ OO OO : OO 
C9C9 : 00 00 өө 99 OA OO OO OO 99 OO OO OO OO OO OO OO : вө 
C9D9 : 00 өө өө өе OO өе OO OO OO өе OO OO OO OO OO OO : OO 
C9EQ : өө өө өө ве OO OO OO OO OO OO OO OO OO OO OO OO : OO 
C9F0 : вө 99 ga OO OO OO 99 99 өе OO OO OO OO OO OO OO : вө 
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Cade : Ва E6 AF 32 B8 Eé 21 9E 8C CD 50 55 21 02 14 22 : 2F 


C399 3E 85 21 DF 8C 01 19 14 CD QB 89 CD 33 89 FE 03 Ed 
C3B9 : CD 72 44 ?8 01 12 13 C1 ЗА 87 EF 3C 32 87 EF 10 : 56 
C3C@ : EA ЗА CC 8C 32 28 88 CD 31 85 CD ?3 89 11 09 00 : C4 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B «C «D +E +F :SUM 
C499 : 94 84 CD 09 35 CD 31 85 CD 99 89 CD SB 89 СЗ 73 : 4C 
C410 : 84 21 35 8D EB 21 17 06 22 86 EF EB CD 59 55 СО: 51 
C420 : 9B 86 CD 9B 86 18 CF 22 20 ЗА Ад 44 77 23 77 23 : 8E 
C430 : CD DS 44 22 99 CD 3E 85 21 ED 8C 01 19 22 CD 0B : 46 
C440 : 89 21 17 06 22 86 EF 21 26 8D CD 50 55 CD D9 35 : 7F 
C450 : 21 1? 17 22 B0 E6 CD C8 SF DA Fé 87? 23 7E A? 28 : C2 
C460 : EO FE 20 28 DC FE 30 38 04 FE 3B 38 D4 21 02 14 : E8 


ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +В «C +D «E +F :SUM 
C700 : 7B 06 09 CB ЗЕ 38 02 06 01 C9 21 17 8C DD 21 ӨЕ : 6E 
C710 : 8C DD 21 1E 8C СЗ 50 55 23 7E CD ED ВА 7D CB 27 : Fo 
C729 : 84 48 4? 21 00 DE CD 26 86 2A 00 DE 11 84 8C СО: 81 
C730 : 52 8B EB 36 48 23 36 20 23 36 20 23 36 20 23 EB : CC 
C740 : 2A 02 DE CD 52 8B EB 36 48 23 36 00 21 ?6 8C C3 : 5C 
С?50 : 50 55 D5 CD E2 8A 21 52 EC D1 7E A? C8 12 23 13 : 18 
C760 : 18 F8 CD 09 8B CD 9F 8B 2E 01 E5 CD AE 8B E1 28 : SB 
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は じ め に 
E 7 


今回 は , シー ケン シャ ル お よび ラン ダム 
アク セス ファ イル を と り 上 げた いと 思い ま 
is 

ご 存 知 の と な り , スー パー シス テム で は , 
ンー ケン ン ャ ルン ル / ラ ンタ バア クモ セス ファ アイ 
ル は 取り 扱え を ませ ん 。 ま だ た だ, たとえ スー スパ 
に ンス の ンー ニク ショ ンー クレ ルン ミタ 時 ハジ 
クセ ス フ ァ イル が 取り 扱え る よう に な っ だ 
と し て も , 現在 出回っ て いる ファ イル を 使 
っ だ た プログ ラム は NEC の シス テム ディ ス 
ク を 005 と し で プロ グラ ミン グ きれ て us 
ます の で , スー パー シス テム 上 で 起動 きせ 
る こと は 不可 能 と 思わ れ ま す 。 

し た が っ て = シー ケン ツジ мәр 260012. We 
クセ ス フ ァ イル に つい て は , NEC の シス テ 
ム デ ィ ス ク に な る べく 準拠 する こと に し て 
スー パーテ シス テム オリ ジ ナ ル の シー タン シ 
ャ ル / ラ ンダ ム ア ク セス ファ イル に 仕上 げ 
TAR О, オリ ジル と っ て BS NEC 
の シス テム ディ イス ク の シー ケン シャ ル / ラ 
ンダ ム ア ク セス ファ イル と ある 程度 の 互換 
才 も の の 9 まつ は 0 スー バニ ショ ステ A 
の シー ケン シャ ル / ラ ン 災 ' ム アク セス ファ ア 
イル を NEC の シス テム ディ スク ファ イル 
と し て 読み 込む せこ と も ある 程度 で どき ます し , 
その 逆 も し か り と いう こと で す 。 

使い 方 も ,NEC の シス テム ディ スク の 場 


合 と ほとん ど 同 じ で す の で , 
テム AsE で シー ケン シャ ル / ラ ンダ ム 72 e 
ス フ ァ イル を 取り 扱い た いと いう 方 は どう 
ぞ ご 利用 《 だ さい 。 も と も と, スー パー シ 
AU HB NEGO XA TATA AT И О! 
ー エ リア の 大 きき る が 違い ます の で , か な り 
大 き な 配列 も とれ ます し , ファ イル 数 を 15 
EEE CR UIS. 39599772) --) 
ア に は 余裕 が あり ます 。 

処理 速度 の 面 で の シー ケン シャ ル / ラ ン 
ダム アク セス ファ イル は 1 セク タ 単 位 の 入 
出力 を 行う の で , 2 倍 , 3 倍 に アッ プ す る 
と いう こと は あり ませ ん が , 少な く と も 
NEC の DOS よ り 5 遅く な る と いう こと は 
が ME у ак тА 

さら に , 今回 は ISET ユマ ンド の 改良 も 
行い ます 。 現 在 の ISET コマ ンド は 000H 
—C2FFH に プロ グラ ム を ロー ド す る た め , 
この 部 分 が 書き 替え を られ て し まい ます 。 4 
IT, ディ スク 内 の RAM を 利用 し て , 
ISET コマ ンド を 実行 し て も 000H 
—C2FFH が 書き 替え られ な いよ うに 改良 
し だ いと 思い ます 。 て わし で は 「ISET の 改 
良 」 の 欄 を ご 覧 くだ さい 。 

そし て , さら に も う 1 つ , 日 頃 の ご 支援 
の 感謝 た と し て 「 ス ー ラ パー IPL」 も 発表 し た 
いと 思い ます 。 高速 IPL に つい て は , 本 誌 
9 月 号 に 発表 きれ まし た が , 今回 は きら に 
高速 に コン パク ト に プロ グラ ミン グ さ きれ 
て いま す 。 つ ま り , 現在 高速 IPL と し て 使 
われ て いる も の は 大 体 ブ グー ト に 約 8 秒 か か 
b, 2, 3 セク タ を 書き 替え る も の も あり 
iTi, この スー フッ パー IPL の 場合 は ブー ト 
時 間 が 約 6.5 秒 (PC-8801MKII model 30) 


ハー クー ンス 


C, 書き 替 を る の は IPL 用 の セク タ 1 セク 
タ の み で す 。 もちろん, いま まで に 発表 る 
NE NEC の シス テム ディ スク の どの バー 
ジョ ン で も 使用 可能 で す 。 ま た, N-BASIC 
か ら の 立ち 上 げ も で きま す 。 まあ, これ 以 
上 の 高速 作っ イン テリ ジェ ント タイ プ の デ 
ィ ス ク で は まず 無理 ど と 思い ます 。 くわ し 
く は 「 ス ー パ ー1IPL」 の 項 を ご 覧 くだ さい 。 
な お , この スー パー IPL は スー パー シス テ 
ム 88 と は 独立 し て いま す の で , スー パー シ 
ステ ム 88 を お も ち で な い 方 も ご 利用 いた だ 
け ま す 。 


プロ グラ ム 
к o 


今回 の プロ グラ ム は 6 つ に 分 か れ て いま 
す 。 リ スト 1 一 3 は 今回 の シー ケン シャ ル / 
ラン ダム アク セス ファ イル 用 プロ グラ ム で , 
リス ト 4 は 毎度 の フォ ー マ ッ ト 用 プロ グラ 
A^ (SS. F1) 変更 リス ト で す 。 残り の リス 
ト 5 一 7 に つい て は 後述 し ます 。 

で は , まず リス ト 1 を 打ち 込ん で くだ きる 
v. 完全 に デバ ッ グ が で きた ら 1 度 セ ー プ 
し て と スー パー ジ ズ ダム バ の スー デシ パー モータ 
を 起動 し て くだ さい 。 KU, モニ タモ ー ド 
c 

1но о 

と し て , スー パー モニ タ を 解除 し , 先ほど 

セー プ し て お いた スト 1 m DES 
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ий ot A qaa th Е КС 


]MC000, C9CF, 8400 © E 
| ァイル を オー プン する 
と し て , 8400H —8DCFH へ 移動 きせ ます 。 id Энъ = 
а: WEE 7 №, CLOSE ファ イル を クロ ー ズ する 
BSVAE “SS. R2”, WRITE # ファ イル に 出力 する ($S ) 
sels 
& H8400, &H9DO Q INPUT # ファ イル より 入力 する (S ) 
eua š | а REA 
も ファ イル 名 SS. RO Ç+ プ し て 《 だ き LINE INPUT £ | ファ イル より | 行 入力 する 
い 。 
続い て 、 リ スト 2 を 打ち 込ん で くだ きい 。 mE rocas ыйы 
RE Kes; CE LOF ファ イル の 長 さ を 調べ る | 
BSAVE “SS. RI”, x. GET | ファ イル に 出力 する (R) 
& HPEA30, を H80 © ° PUT ファ イル より 入力 する (R ) 
t, ファ イル 名 SS. R1 で セー ブ し ます 。 S は シー ケン シャ ル , R は ラン ダム ファ イル 


だ だ し , この 部 分 は E 9B9H か ら の ババ 表 1 コマ ンド 表 
ッ フ ァ 領 域 に 含ま れ て いま す の で 必ず スー 
パー シス テム (PART II で は だ めで す ) C 
セー プ し て くだ さい 。 次 に , リス ト 2 と 同 
ОСИУ UAE) 

BSAVE “SS. ЕЗ”, 
&HEA30, &H40 Q 
CEE Ad qu EEUU. ジム 
は SS. R3 で す の で , ご 注意 くだ きい 。 以上 
の 3 つの リス ト が 今回 の メイ ンプ ログ ラム 
Єт; 

次 に , 今回 の SS. Rl, SS. R2, SS. R3 
お は UO ECHO AMUSSS. B を フラ フォー マ 
ЕЕ Cap. k 5 uz SS. Fg Өе 
スト 4 の よう に 変更 し て くだ さい 。 な お , 
これ まで は 9 月 号 に 掲載 し た 000H か ら の 
プロ グラ ム に 変更 を 加え て きま し た が , А 
回 か ら は 直接 SS. Fl に 変更 を 加え る よう 
に し た いと 思い ます 。 変更 の 方 法 は , まず 
スー パー シス テム を 起動 し , スー パー フォ 
ое чаара а モニ 
タモ ー ド で , S コマ ンド な ど を 使っ て リス 
ト 4 の よう に 変更 し ます 。 す べ て 変更 し た ら 

BSAVE “SS. F1’, 
&H8400, &H9D0 О 
と ScCGKE2S も は ま 3 する EGGS 変更 完了 で ま 。 
今後 は この 方 法 で 変更 し て いき た いと 思い 
ます の で , よろ し お願い し ます 。 

それ か ら , ISET コマ ンド の 変更 は 後述 
し て ある 「ISET の 改良 」 で 合わ せ て 行っ て 
いま す の で そちら を 参照 し て くだ きい 。 
以上 まで で きま し た ら 起 動 し , Expanded 
{уре を セレ クト , š 6 ic 5@ Super S & R 
Ше を セレ クト し て くだ る きい 3 

で は , 使い 方 の 説明 に 入り まし ょ う 。 
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使い 方 
. 1 


使用 で きる コマ ンド は , 表 1 の よう に な 
っ て いま す 。 こ の 表 を ご 覧 に な れ ば お 分 か 
り い だ だ ける と 思い ます が , ファ イル の オ 
ー プ ン は OPEN C, 読み 込み は INPUT 
4, LINE INPUT# で 行い , 書き 込み は 
WRITE# で 行い ます 。 い ずれ も 使い 方 は 変 
わり ませ ん の で , PC-8801 リフ ァ レ ンス マ 
ニュ アル を ご 参照 くだ さい 。 た だ し , 書き 
込み は WRITE# の み で , PRINT £X f fH 
で きま せん 。 代 わり に それ を 補う オプ ショ 
ン を 用 意 し まし た 。WRITE# に セミコロン 
機能 を つけ ます 。 つ まり , た と えば 書き 込 
むと き に , 

WRITEH £1, A$; B$ 
と する と , 読み 込む と き は A$, B$ で 1 つの 
文字 列 

A$ 十 B$ 
と し て 読み 込ま れ ま す 。 ま た , ファ イル 用 
関数 だ し CoROP を つげ で あき まし た だ 。: い 
ずれ も , PC-8801 の リフ ァ レ ンス マニ ュ ア 
ル に くわ し く 説 明 さ きれ て いま す の で , z+ 
ら を ご 覧 くだ さい 。 で は , 使い 方 の 注意 を 
説明 し ます 。 


使い 方 の 注意 
E e 


使用 に 当たっ て は , 以下 の こと に 注意 し 

(C TEES 

①1 度 ファ イル オー プン し た ら 6, クロ ー ズ 
する まで ディ スク を 差し 替え を な いで くだ 
きい 。 これ を し ます と , FAT が 破壊 され 
ЗА 

② フ ァイル オー プン 中 に , ISET コマ ンド 
は 使用 し な いで くだ きい 。 

9 LINE INPUT# で は "が 無視 まる れ ます 。 
つま り , ファ イル 中 に 

ABC "Super^, DE 

と 読み 込ま れ ま す 。 


101 


《④ フ ァイル オー プン 中 に エラ ー が 発生 し た 
0 STOP 命令 の ブレ ー ク で 実行 を 中 断 
し た と き は 必ず , すぐ に CLOSE 命令 を 
EIL THOT QUOS vs 

⑤NEC の シス テム ディ スク に よる シー ケ 
ン シ ャ ル / ラ ンダ ム ア ク セス ファ イル と 
互換 性 を も だ た せ た だ た つもり で す が , 場合 に 
よっ て は , 違う 読み 込み 方 を する こと が 
あり ます の で ,。 ご 訂 承 くだ さい 。 


ISET の 改良 
っ 


今回 の 改良 に よっ て C000H—C2FFF は 
実行 し て も 保存 きれ ます が , 保存 の 方 法 は 
1 度 ゲ ディ スク 内 の RAM 上 に 移し て お 
と いう 方 法 を と っ て いま す 。 

改良 の た め の プ ログ ラム は リス ト 5, 6 
で す 。 ま ず , リ スト 5 で す 。C000H 一 C2FFH 
は 網 を か けた 部 分 以外 は SS. I 2 と 同じ で 
TOT, 現在 の SS. 12 に BF00H—BFFFH 
を 追加 し て , 該当 部 分 を 変更 し て くだ さい 。 
追加 変更 し た ら , 

BSAVE “SS. 13”, 
&HBF00, &Н400 Q 

L. hui do Av RSS: B SSE 
Va b 33% 07 EO b S7 U で お KG 
だ きい 。 

КЖ, リス ト 6 を 打ち 込ん で くだ きい 。 
だ だし, この プロ グラ ム は 各種 に 多用 きれ 
て いる E9B9H か ら の バッ ファ 領域 に 含 
まれ て いま す の で , ほか の シス テム で は 2 う 
IA ガ 編 セー ン できない こと も あり ます 。 
DAE EMAIL で A rZ Me ZA 
ВА ао a be AK 

入力 し た ら , モニ タモ ー ド で 

]MC000, C05F, EA20 Q 
と EA20H か ら へ 移動 し 
BSAVE “5. 127, 
& НЕА20, & H60 Q 
УАВ УА 
以上 で ISET の 改良 は 完了 で す 。 
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1 リ 
КУР 
A 
cm 


B 


QT Ж 


ADRS + +0-+1 +2 +З + +5 +6 FP t8 t9 +A +B +C +D +E +F: 
C700 : FE C3 CC 01 7С E1 7E 3D CD 2B 8B El 23 7E 06 00 : B1 
C710 : CD DB 7C 7E 04 FE C9 30 02 18 F5 Eé 9F 4F 3E F8 : 1D 
C720 : C6 08 10 FC 81 CD CE F2 Ат 18 60 32 85 EC 32 F0 : CC 
C?30 : F1 СЗ 11 79 CD 66 F2 11 08 00 19 7E 3D 4F ЗА FO : C9 
CTA: FEGI F1 09 E1 7C FE 08/38 08 7E 1F138 1E IF 1F : 58 
C750 : 38 9F F5 ES CD 66 F2 CD F9 8B CD CE F2 E1 F1 38 : 2E 
67604 16760) 66 F2 ES DC 11/79"E1 CD CE F2 11 09 00 19 : 27 
C770 : 06 00 36 00 23 10 FB 09 AF СЗ 41 48 Ei Е1 7E B? : 35 
C789 : C9 11 04 00 19 ТЕ A? CO 23 7E 37 26 00 éF C1 C1 : CB 
C790 : D1 C1 C1 C1 C1 05 FS CD 02 24 F1 DC AB 20 E1 C9 : 04 
С?А@ : CD 94 86 ЗЕ 16 CD Bé 8B 01 80 00 CD BE 8B 0B 79: 64 
C?B0 : BO 20 F8 СЗ BA 7B ЗЕ 01 FS ЗЕ 16 СЗ 0D 7D DB FE : 6E 
C?CO : E6 02 28 FA TE 23 ОЗ FD ЗЕ 09 03 FF DB FE Eé 04 : 57 
C7D8 : 28 FA 7E 23 D3 FD ЗЕ 08 D3 FF DB FE E6 04 20 FA : 88 
GEN: 3169 9E. C3. 32 11579 21-F3:8B 22 12 (9 3A 89 EC 32 t AF 
C7F9 : F0 F1 C9 CD F9 8B СЗ 14 79 ЗА 85 EC F5 ЗА F0 F1 : 06 
SUM : A5 BF 60 82 89 9F 7F BC 6F 42 Dé 92 76 49 A8 21 : 4А 
ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +А +В +С +0 +E +E :SUM 
C880 : 3C 28 07 3D 32.85 EC-CD'04 7G!F1! 32 85. EC-3E (ЕРУ 1-66 
081094173270 F1 SE 21932 11 79 21. FE 82 22 12 79 C9. ES 1 ,2A 
C820 : ЗЕ 01 CD 85 79 CD FA 7B CD 38 8C E1 01 80 00 СО: QC 
C830 : 40 8C ӨВ 79 BO 20 F8 C9 ЗЕ 01 F5 ЗЕ 15 СЗ АА 79 : 4E 
C840 : ЗЕ ӨВ ОЗ FF DB FE Eé 01 28 FA ЗЕ ВА 03 FF DB FC : EE 
C850 : 77 23 ЗЕ 0D 03 FF DB FE Еб 01 20 FA DB FC 77 23 : 02 
C860 : 3E 0C 03 FF C9 09 57 3D 32 85 EC 4F ЗА F8 F1 3C : 9B 
C870 : 28 30 3D 47 A9 20 09 79 32 85 EC 32 F0 F1 D9 C9 : ТЕ 
C888 : :CD266: F2 C5 78.32 85 EC ЗА 11 79 FE СЗ CC 11 79 : ЕВ 
C8907:301 779 32 85 EC 32 FO F1.21:FE. 82. CDi 14: 79 .D9. C3 1:87 
C8A9 : CE F2 CD 66 F2 7A 3C CA E1 8B 79 18 E5 22 87 E6 : DO 
C8B9 : 21 00 00 22 88 EC E1 El ТЕ FE 2C 28 98 EB 2А 8D : ЕЗ 
C8C9 : E6 23 05 18 9B D? CD 03 11 Е5 CD A9 21 2А 41 EC + 53 
C8D9 : 22 8D Eé 2A 87? Eé CD 34 8B 3C 28 10 3D 32 85 EC : 0C 
C8E9 : A9 28 OF C5 CD 11 79 C1 79 32 85 EC 79 CD 2B 8B : 05 
C8F9 : 18 04 79 32 85 EC 2А 8D Eé 06 01 11 08 00 A? ED : 89 
SUM : 4D BC 25 Dé SE 1E DF 16 54 A9 45 BO 28 FF 00 40 : DB 
ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
C900 : 52 28 06 38 03 04 18 F6 19 4D 79 A? 20 02 QE 08 : 8B 
C910 : E1 F1 ES 2А 87 Eé C2 5A 8D 79 23 FS Е5 7E CD 56 : 0E 
GSO 80:76 FE CO 38 15 10 F6 E1 79 23-77 23 F1 CD'BD V A6 
C930 : 8D CD 94 86 CD 1F 8C E1 СЗ CE F2 05 C2 А9 87 E6 : 2D 
C940 : OF A? 28 OC 47 E1 F1 F5 E5 04 B8 02 A9 87 18 D8 : 8B 
C950 : CD CE F2 СЗ B8 4D 4F СЗ DB 7C 79 ES FS 11 07 00 : 29 
C960 : 19 ТЕ Еб 10 C2 BA 80 F1 E1 23 F5 ES 7E CD 56 8D : 80 
C970 : ТЕ FE CO 30 17 CD 56 8D 10 F6 Е1 79 23 77 23 F1 : 41 
C980 : CD BD 8D CD A0 8B CD E1 8B C3 37? 8D EB 05 20 13 : F2 
C990 : Еб OF 47 E1 F1 FS ES 04 B8 30 02 18 DD EB C6 CO : 3C 
C9A9 : тт 18 D? 05 C5 CD 8C 7C C1 E1 AF 77 CD DB 7С 36 : 97 
C9B0 : C8 EB 10 EF E1 F1 F5 ES C6 СӨ 12 18 BD 77 F5 79 : Ве 
C9C@ : CD 22 ?9 F1 3D 81 32 FA 81 C9 99 00 00 00 00 00 : 8D 
C9DO : өө 00 өө өө 99 өө OO OO OO өе өө OO өе OO OO OO : вө 
C9E@ : 00 00 99 өө 99 OO OO OO OO өе OO өе өе OO OO OO : өө 
C9F0 : өө 00 OO өө 99 OO OO OO OO OO 99 OO өе өе OO OO : өө 
SUM : 7F 46 71 1А ОЗ 8C F1 9D 46 ӨЗ 52 61 7B 38 1E D9 : ЕЗ 
— 
ADRS : *0 +1 *2 *3 +4 +5 +é +? +8 +9 +A +B +C +D +E +F :SUM 
EA39 : 3E C3 32 08 ED 32 BB F2 32 6F ED 32 B1 ED 32 AE : 15 
EA49 : ED 32 86 EE 32 D9 EC 32 F4 EC 32 D5 ED 21 00 84 : 2C 
EA59 : 22 BC F2 21 E1 87? 22 09 ED 21 42 8B 22 70 ED 21 : CF 
EA69 : 7С 8B 22 B2 ED 21 81 8B 22 AF ED 21 79 85 22 87 : ?B 
EA79 : EE 21 AD 8C 22 D1 EC 21 EE 8A 22 F5 EC 21 CD 87 : 38 
EA89 : 22 06 ED ЗЕ C5 32 C1 F2 ЗЕ C1 21 AD F2 06 05 77 : 0E 
EA90 : 23 10 FC ЗЕ 78 32 B2 F2 ЗЕ 52 32 8B F3 ЗЕ 33 32 : 9E 
EAA9 : 8C ЕЗ ЗЕ FF 32 F0 F1 C9 өө 00 00 00 00 өө өө өө : 98 
Ë: SUM : 88 36 AO АВ 7E CF 9А 56 9F C8 СЗ ЕӨ 0A 68 46 QA : 07 
ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
EA30 : ЗЕ C9 32 08 ED 32 6F ED 32 B1 ED 32 AE ED 32 86 E1 
EA49 : EE 32 00 ЕС 32 F4 EC 32 05 ED ЗЕ CD 32 BB F2 21 : ED 
ERDE: EC F2 22 BG BADE 49 32 8B.ES 3E. 32.32 ӨС ЕЗ СО : 03 
EA69 : 50 ЕЗ СЗ SC ҒЗ 00 өө өө өе өе өе өе өе өв өө өө : 55 
SUM : 68 ЕВ E? DC 04 64 A4 51 92 91 69 31 12 34 17 74 : F6 


スー バーIPL 


RST APE DIOS мул рТ 
の よう に な っ て いま す 。 こ の リス ト を 打ち 
込み モニ タ の CTRL-W な ど を 使っ て 
NEC の シス テム ディ スク の セッ ト さ れ て 
(КЭР AAAY TS A KOEI > 2 
0, セク タ 1 に 書き 込め ば 完了 で す 。 
CTRL-W を 使う と き は , ディ スク を ドラ 
ARIES Lc, 

J 2W 15 0, 0, 1,C000; COEF O 


ат 


E Used us 
ブート の 時 間 . すなわち リセ ッ ト か ら 
How many files (1—15)? 

と 表示 され る まで の 時 間 は N. s - BASIC か 
ら 6 立ち 上 げ た 場合 。 約 6.5 秒 で す 。 た だ し , 
機種 は 8801MKII model 30 à また は 8801 十 
80S31 と し ます 。N-BASIC か ら も 立ち 上 
が り ま す が , この 場合 は N。。-BASIC に 切 


り 替 える 時 間 が プラ ス さ る れ ま す 。 


ЗА , 8560 : 52 。 8560 : 52 , 8570 : ЗА 

33 y: 8588 :- 33 

52 
ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
BF99 : 21 15 BF 22 15 C9 21 ӨР BF 22 дА C1 C3 00 СӨ DD : 28 
BF10 : 21 E2 04 18 04 DD 21 7B 04 D9 21 28 BF 11 30 EA : AC 
BF20 : 01 50 99 ED BØ СЗ 30 EA ЗЕ 15 CD C9 37 ЗЕ 60 CD : 56 
BF39 : 02 37 AF СО 02 37? ЗЕ 95 CD 02 3? AF СО 02 3? 21 : 40 
BF49 : 00 BF 01 80 02 ЗЕ 0B ОЗ FF DB FE E6 01 28 FA ЗЕ : 70 
BF59 : 8A ОЗ FF DB FC 77 23 ЗЕ 0D ОЗ FF DB FE E6 01 20 : 4A 
BF69 : FA DB FC 77 23 ЗЕ 8C D3 FF 0B 79 Ве 20 D? 09 DD : 68 
BF70 : E9 өө 00 өе 99 өе 99 OO OO OO OO өө OO OO 99 99 : E? 
BF80 : өе өе өе өе өе OO OO OO OO OO өе OO OO OO өе 00: 00 
BF90 : өө өе өе өе OO өе OO OO OO OO OO OO OO OO өе ве : ве 
BFA9 : 00 00 өе өе OO OO 99 өе OO өе OO OO OO OO OO вө : өв 
BFBO : өө ве өе өе өе OO ве OO GO 99 OO өе OO өө ве OO : O0 
Вғсе : 99 өө ве өе OG өе OO OO OO OO өе OO OO өө OO OO : өө 
BFDO : өө өө өе 99 өе OO ве OO өе OO OO өе OO OO вее OO : өе 
BFEO : өө өө өе OO OO OO OO OO OO OO OO ве өе өе OO өе : ве 
ВЕЕ@ : өе 00 өе өе өе өе OO OO OO OO OO OO OO OO 99 OO : 00 
SUM : 02 EB 6E Cé BC ВА EA 50 D? 9B А5 02 AS 606 SB FQ : ВЕ 
ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
C000 : 2T ӨС C1 CD 50 SS 21:F7:CI.CD 50 55 CD ӨЗ 35 GD 4 FD 
C919 : 9D ЗЕ FE 03 CA 7B 04 FE 31 CA 83 C0 FE 32 CA 8C : 57 
C020 : СӨ FE 33 CA C8 СӨ FE 34 CA DO C9 FE 35 CA 08 Се : 64 1J 
сөзе : 18 D4 өө өө өө өө өө OO OO OO GO OO 99 өө OO OO : EC 
седе : OO өв өе өе OO OO OO OO OO OO OO OO өе өе OO OO : өе А 
C050 : өе өе өе өө OO OO OO OO OO OO OO OO OO өе OO OO : ве ト 
C969 : өе 99 өө OO OO OO OO OO OO OO OO OO өе OO OO OO : 99 
C070 : ED BO 1А FE ЗА 28 02 AF 12 AF C9 99 өө өө 00 өө : 52 6 
C080 : өө 00 99 CD 95 се 11 40 C2 СЗ EA СӨ CD 95 CO 11 : D5 
C090 : 65:С2 63 EA (£0 -21010:C2:C0:550:55. 21 92 F2 2287: 77. 
C9A9 : EE ЗЕ C9 32 3C ED 32 2A ED 21 F5 ЗА 22 8A F1 21 : A? 
COBO ; CONS 22 B5 F1J3EIE1:3258C6 FA: ЗЕРЕ 32 B7 FA EE? 1F 
C@C@ : C9 32 6F Eé 00 00 00 C9 CD 95 CO 11 90 C2 18 1A : DO 
C9D9 : CD 95 СӨ 11 BØ C2 18 12 CD 95 СӨ 11 00 C2 18 BA : B6 
COEG : өө 00 өө өө OO OO OO OO OO OO 21 B9 E? 22 83 EC : 54 
Cere ES 36 ЗА 23 01 20 00 EB CD 7@ СӨ 32 52 E6 CD 58 : 10 
SUM .: 8E ЗЕ 23 59 ДЕ Аб 71 FC 30705 2F 2C 4E D3 18 A8 : F2 
ADRS +@ +1 *2 +3 WAEA *75€85«9)*N +B 46 +0 *E *+*F ! SUM ADRS +@ +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
C100 SA 21 FF FF 22 56 E6 E1 2B СЗ E2 04 ӨС 2А 2А 2А : 16 C000 : ЗА 50 00 Ат 20 08 AF D3 31 ЗЕ F3 СЗ FD 77 CD A9 : EA 
C110 : 2A 20 45 58 50 41 ДЕ 44 45 44 20 4D AF 44 45 20 : F8 C919 AF 21 AD C8 CD 50 55 3E 0D CD C9 37 ЗЕ 50 CD D2 : 94 
C120 : 53 45 4С 45 43 54 49 AF ДЕ 20 2А 2А 2А 2А QA ВА : 82 C929 37 3E 59 CD D2 37? CD 47 38 A? 28 1E 01 80 17 21 : 96 
C130 : 20 20 20 20 31 2E 53 75 70 65 72 20 6D éF 6E 69 : Ci| | J | Ce3e : ae ва CD ов Ce өв 79 BO 20 F8 ЗЕ 01 32 86 EF AF : CA 
C140 74 6F 72 0A 20 20 20 20 32 2E 53 75 79 65 72 20 : 6E C040 CD 7D 44 CD 00 84 AF СЗ 99 88 CD GE SF 21 9C СӨ : 90 
C150 73 61 76 65 72 ВА 20 20 20 20 33 2E 53 75 79 65 : ^9 А C050 : CD 50 55 CD 9B ЗЕ СЗ 7B 04 11 01 99 01 99 10 21 : 9E 
SER NE E р ES [LM чус етсш ус 
C180 : ВА 20 20 20 20 35 2E 53 75 70 65 72 20 53 26 52 : E? Z C989 : 01 80 17 21 00 41 C5 ES CD 7B 07 El C1 23 23 0B : E6 
C190 : 20 66 69 6C 65 QA 00 00 @@ 00 99 OO 99 OO 99 OO : CA C999 79 B98 20 F2 СЗ C1 00 AF CD ӨЕ 07 C9 ЗЕ 42 61 64 : 60 
C1A9 eo өе өв 99 99 99 өе GO GO OO өө ве ве өе OO ве : ве C9A9 20 73 79 73 74 65 6D 20 64 69 73 6B 00 53 55 50 : 88 
с1ве : өе өе өе өе өе OO өе OO ве өе өе QA өе ее OO OO : 00 C9B9 : 45 52 20 49 50 4C 20 28 43 29 31 39 38 34 20 42 : 88 
C1C9 вө ве 99 өе ве өе өе өе OO GO OO OO ве OO өе OO : 99 C9C9 79 20 41 2E 4B 4F 42 41 59 41 53 48 49 QA 57 6F : 73 
C1D0@ : өө ве өө өе ве ве ее өе BG ев өе OO OO OO OO өе : вө CODO : 72 6B 69 6E 67 2E 2E 00 3E QB ОЗ FF DB FE Еб 01 : 52 
С1Е@ : 99 вө өе BA өе OO өе OO 99 өе өе OO BA OO OO OO : O0 C@E@ : 28 ҒА ЗЕ ВА ОЗ FF DB FC 77 23 ЗЕ QD ОЗ FF DB FE : АЗ 
C1F@ : вө өө өө OG BG OO 99 OA 20 20 57 68 61 74 27 73 : 78 COFO : Еб 01 20 FA DB FC 77 23 ЗЕ QC ОЗ FF C9 99 00 99 : 57 
SUM : EF 8C EC 98 BF 55 08 66 84 АА 65 9C BF 50 ВЗ CC : OE SUM 58 F5 7С 2A C9 5A 6A 2D 7B F9 49 38 7E 83 6E DA : EB 
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1984 年 12 月 掲載 


は じ め に 
Ep а 


setinf. n88 と いう こと に な り ま し た だ た 。 い ず 
れ も 多 く の リ クエ スト を いた だ いた 機能 
目新し き は あり ませ ん が , ASCI セーブ, 
ロー ド , マー ジ の 処理 速度 は 2, 3 倍 上 が 
GS まじ マー ジン は ASGII 2 7 421 
け で な く , バイ ナリ 形式 の ファ イル に 対し 
て も 行え を る よう に な っ て いま す 。 

で は , プログ ラム の 説明 に 入り ます 。 


プロ グラ ム 
E а 


今回 の プロ グラ ム は ASCI セー ブ , ロー 
ド ,。 マ ー ジ , テキ スト エディ ッ ト お よび 

ジロ グラ バ は スト 1,、 2 の よう に な っ 
て いま す 。 リ スト 1 は 今回 の メイ ンプ ログ 
ラム で , リス ト 2 は 今回 の プロ グラ ム を ス 
ー パ ー シ ス テム 88 に 組み 込む た め の プ ログ 
ラム で す 。 

で は , 打ち 込ん で み ま し ょ う 。 ま ず リ ス 
ト 1 を すべ て 打ち 込ん で くだ さい 。 完全 に 
打ち 込め た ら セ ー ブ し て , スー パー シス テ 
ム 88 の スー パー モニ タ を 起動 し て くだ さい 。 
起動 し た ら モ ニタ モー ド で , 

но о 
と し て スー パー モニ タ を 切り 離し , 
]MC000, C8FF, 8400 О 
で 8400 以 降 へ 移動 し ます 。 そ こ で この 8400 
H—8CFFH を 
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BSAVE *SS=A1” 
&H8400, &H9000 の 
で セー プ し ます 。 ファ イル 名 は 必ず SS: AT 
LOTES 
KU, SS: 13 を リス ト 2 の よう に 変更 し 
て くだ きい 。 変更 箇所 は 網 の か け て ある 部 
分 で す 。 な お , C300H 以降 は 追加 で すか ら 
BSAVE “SS. 13”, 
&HBF00, &H420 Q 
(=s IESU 
それ で は 。 リサ スズ ス 下 3 を ご覧 くだ きい 。 こ 
れ は , 今回 の SS. Al と いう ファ イル を フ 
ォ ー マ ッ ト 時 に コピ ー す る た め の 変 更 り リス 
ト で , SS. F1 を リス ト 3 の よう に 変更 し , 
ふた た だ たび 同じ ファ イル 名 で セー ブ し て お ぢ い 
て くだ きい 。 変更 の 方 法 は 先月 号 で 説明 し 
だ た よう に , まず スー パー フォ ー マ ッ ト を 起 
ML, リス ト 3 の よう に 変更 , ふた たび 同 
じ フ ァイル 名 で 
BSAVE “SS. F1’, 
& H8400, & H9D0 О 
CGC セー デン (6 ま 2 
残り 0 リスト 4 以降 は あと の 「 大 改正 」 の 
項 で 使用 する も の で す の で , そちら を ご 覧 
くだ きい 。 
スー パー モニ タ は 起動 す る と , 8420H € 
ЕЕН に 書き 替え て いま す 。 し た が っ て , + 
ー ブ の と き に は 8420H を 00H に 直し て お か 
ね ば な り ま せん 。 


使い 方 
A 


いずれ の 機能 も , 使い 方 は NEC の シス 
テム ディ スク の 場合 と 同じ で す の で , くわ 
し く は リフ ァ レ ンス マニ ュ ア ル を ご 参照 く 
だ さい 。 ここ で は NEG の シス テム デ 452 
ク と は 違っ て いる 点 に つい て 述べ ます 。 

NEC の シス テム ディ スク と は , ДРОН 
が 違っ て いま す 。 
(DLOAD, SAVE コマ ンド 

この 2 つの コマ ンド で は ファ イル ディ ス 
クリ プ タ ト に 文字 変数 が 使え ませ ん の で , 
LOAD, SAVE 命令 と 同じ 機能 を も っ た 文 
字 変数 の 使用 で きる コマ ンド (CMD AL, 
CMD AS) が 追加 され て いま す 。 文字 変数 
が 使え る 以外 は , LOAD, SAVE コマ ンド 
と 同じ 機能 を も っ て お り , CMD AL が 
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LOAD に , CMD AS 2: SAVE に 対応 し て 
いま す 。 だ だ し , CMD AS は ASCII セー 
IZDAT LES スレ 
を ASCH セー ジグ 区 だ いぶ むき ば 
SAVE “MESE ЛАД? О 
C33, これ を CMD AS コマ ンド で 行う 
と き は , 
CMD AS "TEST" の 

СОК た いう も と Q ず いつ ば 0, ASC t 
ー ブ の みな の で 文 尾 に * ,A? を つけ る 必 
要 は な いと いう こと で す 。CMD AL は 
LOAD と まっ た く 同 じ で す 。 
⑦ マ ー ジ 機能 

マー ジ は MERGE コマ ンド で は な く , 
CMD M コマ ンド を 使い ます 。 な ぉ , CMD 
M を CMD MERGE た し て も か まい ませ ん 。 

また だ, マー ジ は ASCII セー ブ さ れ た ファ 
イル に 対し て だ け で な く , バイ ナリ 形式 の 
Л ANN AE лд» つま る 
BASIC 7 7 4 w Ç 5 tv iZ ASCII, ЖЕ 
ASCII は 問わ な いと いう こと で す 。 
© setinf. n88 

setinf. n88 は , 文字 どおり NEC の シス 
テム ディ スク に つい て いる setinf. n88 と 
同じ 機能 を もっ て お り , ディ スク の ID + 
クタ に 書き 込み を 行う ユー ティ リティ で す 。 


使い 方 は , 
CMDI Q 
T 
Drive# (lor 2)? 
と 表示 され ます の で , ドラ イブ 番号 を 入力 
LT. TSE, 


Sure (y/n)? 
と きい て きま す の で , Yy か n を 入力 し て 答 
えて 《 だ さい 。 n を 入力 する と ふた た び ド 
ライ ブ 番 号 の 入力 と な り , 了 を 入力 する と , 
How many files (0-15 orn) ? 
と きい て きま す 。 そこ で , オー トス ター ト 
時 に 設定 し た い フ ァイル 数 を 入力 し ます 。 
も し , 未 設 定 に し た い の で あれ ば n を 入力 
Uc aus 
ファ イル 設定 を 入力 する と , 
Information ? 
と きい て きま す の で , オー トス ター ト で 実 
{ТЛ AUT = Ак ABE だ る 
い 。 以 上 まで 完了 する E, 指定 し た ドラ イ 
プ ブ に セッ ト さ る され た ディ スク の ID セク タ 
FETHA. DEZ 7:77 12. IRD) 
に 入力 され た 情報 が 書き 込ま れ ま す 。 
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な お , テキ スト エディ タ 中 で ROLL UP/ 
DOWN が 使用 出来 る よう に な っ て いま す 。 
使い 方 は N。。-DISK BASIC と 同様 で す 。 


大 改正 
E НЬ 


今回 ご 愛読 の 皆様 か ら 指摘 を いた だ いた 
箇所 を すべ て 手直し する こと に し まし た 。 
訂正 , 改良 事項 は 以下 の と ぉ おり で す 。 
① BLOAD 命令 で ロー ドア ドレ ス が 使え 
な い 
ファ イル ディ スク リプ タ に 文字 変数 が 使 
えな い 
@ Simple type で ファ イル ポイ ンタ が 
8DD0H と な る 
④ ZS で ROM を モ セー ブ す る と FAT, ディ 
レク トリ に 異常 を きた す 
ファ イル エディ タ で , ディ レク トリ が ク 
リア さる れ な いと き が ある 
⑥⑯⑥ ス ーー パー セー バ で , いき な り TP エラ ー 
と な る こと が ある 。 
(⑦ フ ァイル の 長き が 7FCH の ファ イル を 
о Fp 2 tme LS 
オー トス ター ト が 効か な く な っ た 
以上 の 8 項目 に つい て , リス ト 4 一 9 の よ 
5 に 訂正 し た 結果 , ② は LOAD, | SAVE, 
RUN コマ ンド の み 和 無理 で し た が , ほか の 
項目 は すべ て 解決 いた し まし た 。 どうも, 
数 々 の ご 指摘 あり が と う ご ざ いま し た 。 確 
ao Ea L T TES 
で は , DE) АК О» C šB L 3 
£ SS88 セ モッ ト 用 プロ グラ ム に つい て 
で す が , 今回 全 プ ログ ラム (リス ト 10) を 
掲載 いた し まし た の で , この 機会 に チェ ッ 
クサ ム を 確認 し て くだ さい 。 な お ぢ , 今回 の 
変更 筒 所 は リス ト 10 の 網 の か か っ た 部 分 で 
o 
次 に 、SS I. SS 人 2 に つい 6 お 2 に 
れ も リ スト 4, 5 に ある よう 全 リ スト を 掲 
載 し まし た 。 こ の 場合 も , 網 の か か っ て い 
る 箇所 が 訂正 部 分 で す 。 
な お , 55.П (リス ト 4) に つい て は セー 
デ に 当たっ て 。 
BSAVE "SS. I1”, &HF350, &H67 
о 
と し て 《 だ さい 。 £T&H67 €! 
つづ いて SS. M2 で す が , これ は リス ト 
7 の よう に 65E 0 H か ら 追 加 し て くだ さい 。 


o 


m 


чту 


onc отус 


= 
© 


%›*0 +1 *2 t3 
: ЗА ЗА ЗА ЗА 
: ЗА ЗА ЗА ЗА 


+7 +8 +9 +A +E +F :SUM 
ЗА ЗА ЗА ЗА ЗА ЗА : Ав 
ЗА ЗА ЗА ЗА 


: 74 74 74 74 74 74 74 74 74 74 : 40 


puto 41 42 
3 ЗЕ СЗ 32 


*6 +? +8 *9 +A 
6@ СО 02 37 АР 
37 21 00 BF 01 
6E EA C3 95 EA 
09 ОЗ FF DB FE 
FF DB FE Eé 84 
2E 49 33 22 2C 
ЗА ЗА ЗА ЗА ЗА 
21 B9 E9 22 83 ЕС 
AF 32 52 E6 C3 74 


8F 60 44 0? EE 62 7A 89-5E 56 : 


+4 +5 +6 +7 +8 +9 
79 BO C2 C? 8D C9 
8 03 21 C? 8D 22 B8 


7C D1 89 54 AF 81 


: 88 , 8B39 : ЗЕ 
: 06 , 8B34 : FO 
: 7E 


ADRS : +0 +1 +2 +3 +4 
C000 : CD QE SF 21 ДА 


C010 : 50 55 CD 83 35 
C020 : 7C 21 СЗ се CD 
C939 : 50 55 21 E4 CO 
C949 : 59 28 1D FE 6E 
C050 : 59 СӨ 18 DE CD 


Ce69 : ЗА E1 СӨ Dé 31 
C979 : 01 01 99 З? CD 
C080 : 19 18 FO 21 00 
C090 : 36 FE 2B 3? CD 
C9A9 : 0A 7З 65 74 20 
COBO : 73 6B 20 éF 6E 

: 76 65 2E 0A 64 
CODO : 74 20 53 53 44 
C9E9 : 20 00 ВА 99 73 
COFO : ВА 63 éF 60 70 


SUM : Bé 7F 9F 36 2B 


セー ブ は この 追加 部 分 も 含め て , 
BSAVE “SS. М2”, 
& H65E0, &Н1120 Q 

と し て くだ さい 。 

その ほか , SS.M1 は リス ト 6, 55.51 は 
リス ト 8, SS.E1 は リス ト 9 の よう に 変更 
に で くる いい ずれ も スー パー シス チム 
88 フ ァ ミ リー の プロ グラ ム を 直接 書き 直す 
よう に な っ て いま す の で , 訂正 の 際 は スー 
パー モニ タ を ご 使用 くだ さい 。 た だ し , t 
ー プ は BSAVE 命令 で お 願い し ます 。 
念 の た め , 訂正 リス ト に 対応 する ファ イ 
ル 名 の 一 覧 表 ( 表 1) を 作っ て お きま し た 。 


今回 は これ で 終わ り で す が , いか が で し 
だ か? 大 改正 で スー パー シス テム 88 の バ 
グ は 総 せ らい で きた と 思い ます 。 数々 の ご 
指摘 を いた だ き , 大 変 助かり まし た 。 今後 
も 皆さん の ご 支援 の ある 限り この シリ ー ズ 
を 続け て いき た いと 思っ て お り ま す の で 
で う で よろ し くち 願い し ます 。 

次 回 は ,DSKO$ な どの コマ ンド を ちょ っ 
と 変わ っ た 形 で シス テム に 組み 込ん で みた 
いと 思っ て いま す 。 そう いう 小細工 も する 
t, また バグ が 多く (な る と いう 非難 が 集中 
し を う で す が , 最近 , 私 は NEC の シス テム 
ディ スク を 越え る こと に スー パー シス テム 
88 の 意義 が ある の で は な いか と 思う よう に 
な り ま し て , 身 の りほ ども わき まえ ず 挑 戦 し 
て いき だ た いと 思っ て お り ま す 。 
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:SUM 


СЗ5@ : FE 3A C2 A5 80 23 C3 1D 78 23 ZE 11 95 EC 06 03 : Dé 


+é +7 +8 +9 +A +B +С +D +E +F :SUM 
5 2A B1 EC 18 96 ED Ве СЗ CE. 99 SO: Н 
78 99 00 99 99 900% 08 99 00 : 
d 32 92 EE 32 8F EE 32 

ED 
21 
9c 
F2 
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今回 は , ディ スク エディ イタ で す 。 はじめ 
に 断っ て お きま す が , 今回 分 は スー パー シ 
ステ ム が な く て も 使用 で きる よう に し まし 
пос, 初め て と いう 方 も 利用 で きる よう 
に な っ て いま す 。 基 非 どう ぞ 。 

$C, ディ スク エディ タ の 内 容 で す が , 
モニ タ の 人 へ R, ^W, へ D の 程度 の も の で 
は お も し ろく あり ませ ん の で , オー ル マ イ 
7 ADER УЛЕА К ХОЙУУ E 
LOB 2530 0660530 ¿F 2 
WAR ВКА cde 
ッ ト す る , ある い は デイスク に 収め られ だ 
ファ イル 名 を 指定 し て , その ファ イル の 使 
用 居 て いる クラ スタ 久 を デデデ イ ッ ト す る と い 
うだ け で な 《, ファ イル が マシ ン 語 の ファ 
イル の 場合 は , その アド レス を も 考慮 し て 
エディ イッ ト で きる よう に な っ て いる と いう 
こと で すず 。 た だ たとえば, スー パー モニ タ を 使 
っ て , SE RAM の 6000Hー7000H を 使っ た 
A DAES АСО сЕ ASL スー 
パー モデ タ は 疫 走 し じ て し まい ます 。 これ は , 
スー パー モニ タ が オン メモ リ で エディ ッ ト 
し て いる だ めで , 6000Н —7000H を 使用 し 


ー モ ニタ 自体 が 書き 替え を られ て し まう か ら 
で す 。 と ころ が , これ は オン メモ リ で ある 
DEG EUT uw ZI CET Aube S 
れ ば 本 体 の メモ リ は 変更 きれ な いわ け で す 
Pó, どん な アド レス の ダン プリ スト で も 
AJpC SIDED と ほほ なめ dd C ub: 
今回 の ディ スク エディ タ で す 。 

そし て , エディタ の 機能 と し て , 文字 を 
上 直接 入力 で きる ASCII, ダ ンプ の エディ ッ 
ト 機能 ・ チ ェ ッ クサ ム も 入力 で きる チェ ッ 
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スー バー 


С РС-8801 


A My ж. 


459 PART 


クサ ナム 機能 , 4 ビッ ト 単 位 の イン サー ト , デ 

リー ト 機能 な どの 便利 な 機能 は みん な つけ て 

お きま し た の で , 存 分 に 活用 し て くだ さい 。 
で は , プロ グラ ム の 説明 に 入り ます 。 


プロ グラ ム 
E з 


プロ グラ ム は リス ト 1 で す 。 今回 は スー 
パー シス テム な し て 使用 で きま す の で , х 
ー パ ー シ ス テム へ の 組み 込み は 来 月 まとめ 
(pc Dee. I CT KK だ ざい 5 
で は , リス ト を 打ち 込ん で くだ さい 。 完 
人 金 に 打ち 込ん だら セー ブ し て お いて くだ き 
Uv. Hd, スー パー シス テム に 組み 込む こ 
реви, SS D] 8 いう ファ イル ネー 
ム で セー ジ し て お いて くだ さい 。 655^, 
これ だ けし か いら な いと いう 方 は ご 自由 に 。 


使い 方 
gp. 


プロ グラ ム の 起動 は 何で も か まい ませ 
Vu. 

BLOAD `5. р”, R Q 
と する の が いち ば ん よい で し ょ う 。 
<, C000H か ら 6 起動 し て くだ きい 。 
起動 する と , 図 1 の よう に 表示 る れ ま す 。 


と に か 


1985 年 4 月 号 掲載 


スー パー ディ スク エ デ ] 


1 一 4 の 4 つの 各 モ ー ド は 以下 の よう に な 
っ て いま す 。 


Filename type 


これ は , ファ イル ネー ム を 入力 し て , を 
の ファ イル の 使用 し て いる 部 分 を エ ディ ト 
する タイ プ で す 。 こ れ を 選択 する と, 

File name ? 
Cod EC SE 3 UC. лла Je A57 
ァイル ネー ム を 入力 し て くだ きい 。 入力 す 
る と 先頭 の セク タ が 表示 る れ , エディ ッ ト 
が 開始 され ます 。 

な お エディ ッ ト の 対象 と な る の は ファ イ 
ル の 使用 し て いる 部 分 の み で , FAT に 従 
っ て スク ロー ル し ます の で , ディ スク の 中 
に バラ バラ に セー ブ る され て いる ファ イル も 
簡単 に エディ ッ ト で きま す 。 


Track type 


SWISS РИ, e owe sel A; 
トラ ッ ク , セク タ を 入力 し て , その 指定 き 
れ だ 部 分 を デイ ッ ト す る タイ デ プ で す 語 に 
れ を 選択 する と , ドラ イブ 番号 か 6 順に き 
いて きま す の で , 各 値 を 入力 し て 《 だ さい 。 
すべ て 入力 する と , その 指定 し た 部 分 が 表 
示 る され, エディ イッ ト が 開始 る きれ ます 。 た だ 
し , 入力 は 16 進 数 で , を そして, 入力 に 当 た 
っ て は RETURN キー で な く ス ペー スバ 
ー で , 入力 の や り 直 し は カー ソル 移動 キー 
の | で 行い ます 。 


Cluster type 


これ は , ドラ イブ 番号 , クラ スタ 番号 を 
入力 し て 。 そ の クラ スタ を エディ ッ ト す る 
ADU SI SU FIA E, 
クラ スタ 番号 を 順に きい て きま す の で , 各 
値 を 入力 し て で だ きす べ て 入力 する と, 
その クラ スタ の 先頭 セク タ が 表示 きれ , = 
ディ ッ ト が 開始 さき れ ま す 。 な お , エディ ッ 
ト の 対象 と な る の は 指定 され た クラ スタ の 
範囲 内 で す 。 


Address type 


これ は , マシ ン 語 の ファ イル ネー ム を 入 
HULT, その ファ イル の アド レス に 従っ て 
エディ ッ ト す る タイ プ で す 。 選択 す る と, 
ファ イル ホム を きい て きま す の で ,。 入力 
LTR S 

する と , その マシ ン 語 ファ イル が 先頭 ア 
ドレ ス よ り ダ ンプ リス ト 形 式 で 表示 され , 
エディ イット が 開始 きれ ます 。 な お , エディ 
ッ ト の 対象 し な る の は , その ファ イル の ア 
ドレ ス の 範囲 内 で す 。 つ まり , マシ ン 語 の 
ダン プリ スト を メモ リ 上 に 打ち 込ん で それ 
を セー ブ す る と いう の で は な く , 最初 か ら , 
ディ ォ ス ク E に 作っ で し じ よ まお うし という ge 店 
3 


リフ ァ レ ンス 
マニ ュ ア ル 


で は , エディ ッ ト の 各 機 能 を 説明 し ます 。 
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指定 され た 範囲 の 先頭 セク タ に 移動 し ま 
す 。 だ た だし, モー ド 2 track type の 場合 
は 最初 に 指定 し た セク タ に な り ま す 。 

指定 され た 範囲 の 最後 の セク タ に 移動 し 
ます 。 だ た だ し , モー ド 2 の 場合 は いち ば ん 
最後 に ロー ル ア ッ プ し た と き の セ クタ と な 
り ま す 。 た と えば , 最初 番目 の セク タ を 
選択 し て n 回 ロー ル ア ッ プ し , b 番 目 の セ 
22 hok b +З УСШ 
押せ ば a 番 目 の セ クタ に も どり ます が , つ 
づい て | f : 2 | を 押せ ば , 最 後に ロー ル ア 
ッ プ し た と き の セ クタ 。 すなわち b 番 目 の 
セク タ に な る と いう こと で す 。 
現在 表示 し て いる セク タ を プリ ンタ に 出 
力 上 し ます 。 

エディ イット モー ド を 変更 し ます 。 こ の エ 
プッ シト モーR ほ は デー タモ エ デ 人 イット 。 
ASCII エディ ッ ト の 2 種類 が あり , K t Z 
ば , 現在 デ ゲー タ エ デ ィ ッ トモ ー ド で あれ ば , 
を 押す と ASCII エ ディ イット モ ー 
ド に な りさ は なお, お ーー タタ エエ デイ ショ ト t 
いう の は モニ タ の E コ マン ド の ょ うに 数 値 
デー タ を 入力 する も の で , ASCII エディ ッ 
ト と いう の は ASCII ダン プ で 直接 文字 を 
入力 する も の で す 。 

ЕА, AE と いう 文字 デー タ エ デ ッ 
ッ ト で 入力 する に は , A の ASCII ユー ド 41 
He 41 ШМ ^ ОСА 
れ ば な り ま せん 。 と ころ が , ASCII エディ 
ッ ト で は 直接 文字 を 入力 どき る わけ で すか 
6, た だ A を 1 文字 入力 すれ ば よい の で す 。 
ダン ブリ スト の 中 が アル ファ ベッ ト な どの 娘 
字 列 ば か り だ と いう と き な ど は , こ の ASCII 
エディ ッ ト を 使え ば 半分 の 手間 で すみ , 大 
変 便利 で し ょ 5. 


<<< SUPER DISK EDITOR Ver 1.0 
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2.Track type 
3.Cluster type 
4.Address type 
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図 10 


f・5 

ライ トモ ー ド の ON/OFF を 切り 替え ま 
す 。。 エ デイ リッ ド 申 スク ロニ テル デ チッ プン 5 А 
クロ ー ル ダウ ン , あるいは STOP キー な ど 
に よっ て 現在 表示 きれ て いる セク タ が 変更 
され る と き , その セク タ を 書き 込む か と 5 
か を 決め る の が ライ トモ ー ド で す 。 これが 
ON と な っ て いれ ば , エディ イッ ト を 使っ て 
書き 替え を られ た セクタ が ディ スク に 書き 込 
まれ ます 。 もし, OFF に な っ て いれ ば , = 
ディ ッ ト を 使っ て 書き 替え て も ディ スク は 
まっ た く 〈 書 き 替 えら れ ま せん 。 

な ぉ ,ON/OFF は | f - 5 | が WRITEION 
と な っ て いれ ば ON で , WRITE OFF と な 
っ て いれ ば OFF と いう こと に な っ て いま す 。 
ROLL UP キー 

次 の セクタ に 移動 し ます 。 もし, 指定 る 
れ た 範囲 の 最後 の セク タ で あっ た 場合 は 
「OVER EXTENT!」 と エラ ー 表 示さ る れ , 
ロー ル ア ッ プ さ る され ませ ん 。 

ROLL DOWN キ ー 

前 の セク タ に も ど し ま す 。 もし, 指定 る 
れ た 範囲 の 先頭 の セタ クタ で あっ た 場合 は 
「OVER EXTENT!」 と エラ ー 表 示さ る れ , 
ロー ル ダ ウ ン さ きれ ま せん 。 なお, モー ド 2 
の track type で は 全 ト ラッ ク , 全 セ クタ に 
スク ロー ル で きま す 。 

INS/DEL キー 

デー タ エ デ ィ ッ ト で は 4 ビッ ト 単 位 で デ 
リー ト し , ASCII エディ ッ ト で は 1 バイ ト 
単位 で デリ ー ト し ます 。 ISL, dv. 
カー ソル の ある 1 行 で 有効 , ほか の 行 は 変 
化し ませ ん 。 

だ と えば , 1 行 入力 し た と ころ , 途中 で 
1 つ だ け 多 く 数 値 を 入力 し た と し ます 。 こ 
の 場合 4 ビッ ト だ けず れ て いる わけ で す 
か ら , モニ タ の M コ マン ド を 使っ て 移動 き 
せる こと は て きま ん 。 そこ で の 5 ジレ 
を を その 余分 な 数 値 の と ころ へ 移動, INS/ . 
DEL キー を 押し ます 。 これ で , その 1 つの 
数 値 の み を デリ ー ト し て , それ 以後 を 4 ビ 
ッ ト ず つっ ずら 6 こと が で а 
ESC キ ー 

デー タ エ デ ィ イット で は 4 ビッ ト 単 位 で イ 
ン サ ー ト し , ASCH エディ イット で は 1 バイ 
КЕСА аа РА ть た だ し に で 生ん 
も 1 行 中 に お いて の み 。 カー ソル の ある 行 
で イン サー ト さ れる だ け で ほか の 行 は 変化 
し ませ ん まな お > BSCS TEREF Tur 
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ディ ッ ト で は 0 が , ASCII エディ ッ ト で は 
スペ ー ス (20Н) が 1 つ イ ン サ ー ト され ま 
す の で ESC キー で 1 度 ス ペー ス を あけ て 
蘭 き 筆 を る と いう 具合 に 使っ て て だ さい 。 
CTRL -J 
モー ド 2 , 3 に お いて , 表示 きれ て いる 
ОСА о ш Мы йк В 
無効 で す 。 変 更 は , ドラ イブ 番号 , サー フ 
АКО, EAZA UTI ET, 
CTRL-U 
CTRL-』 と 同じ で す が , この 場合 は ドラ 
イプ 番号 , クラ スタ を 入力 し て 変更 し ます 。 
CTRL-Y 
現在 表示 され て いる セク タ を ほか の セク 
タ に コピ ー し ます 。 こ れ は , モー ド 1 ユ ー3 
の 場合 に 有効 で , モー ド 4 で は 無効 で す 。 
入力 は ドラ イプ 番号 , サー フェ ス , トラ 
ッ ク , セク タ で , 指定 され た セク タ に 現在 
表示 さる され て いる セク タ が そっ くり 書き 込ま 
(UT. 
CTRL-F 
モニ タ の F コマ ンド と 同等 で す 。CTRL- 
pap 5 
ТОР! 
と きい て きま す の で , 一 定 の デー タ を 書き 
込み だい 範囲 の 先頭 に カー マル を 移動 し , 
RETURN キー を 押し ます 。 す る と , 今度 は 
LAST ? 
と きい て きま す の で , その 範囲 の 最後 に カ 
ー ツ ル を 移動 し , RETURN キー を 押し ま 
+, 範囲 を 指定 する と , 
DATA ? 
と きい て きま す の で , 書き 込み た い デ ー タ 
の 値 を 入力 し ます 。 な お , デー タ の 入力 方 
法 は トラ ッ ク の 入力 と 同じ よう に 入力 完了 
は スペ ー ス バー で , 入力 の や り 直 し は | に 
で 行い ます 。 
CTRL-Q 
モニ タ の M コ マン ド と 同等 で す 。CTRL- 
Q と する と , CTRL-J と 同じ よう に 範囲 を 
きい て きま す 。 範囲 を 指定 する L, 
WHERE ? 
と きい て きま す の で , 移動 きせ た い 場 所 の 
先頭 に カー ツル を 移動 し , RETURN キー 
を 押し ます 。 こ れ で 。 そこ に 指定 され た 範 
囲 の ダー タ が コピ ー さ きれ ます 。 
CTRL-P 
指定 きれ た 範囲 の 全 セ クタ を プリ ンタ に 
出力 し ます 。| f ・ 3 | で は 表示 きれ て いる 
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図 2 テン キー 配置 
セクタ の 1 つ し か デリ ント アウ ト さ る れ ま せ 
AD CTREP TE REE REG 
あれ ば クラ スタ の 全 セ クタ が プリ ント アウ 
hàn, モー ド 1 で は ファ イル の 全 セ クタ 
が 。 モー ド 4 で は 。 アド レス つき の ダン ジン デ グ 
リス ト 形 式 で 全 リ スト が プリ ント アウ ト き る 
れ ま す 。 た だ し , モー ド 2 で は 最初 に 指定 
し た セク タ (| f・1 | で 表示 され る セク 
タ ) の み プ リン ト ア ウト され ます 。 
CTRL -X 

カー ソル を 1 バイ ト ず つっ 進め ます 。 た だ 
し , ASCIIT エ ディッ ト で は 無効 で す 。 
CTRL-Z 

mK EA ES E A E Te са 
だ し , これ も ASCII エディ ッ ト で は 無効 で 
n 

HOME CLR キー 

カー ソル を 行 の 先頭 に 移動 し ます 。 もし, 
すでに 行 の 先頭 に ある 場合 は ホー ム ポ ジ シ 
ョ ン に 移動 し ます 。 ホ ー ム ポジ ショ ン に あ 
る 場合 は 最 下行 の 先頭 に 移動 し ます 。 
STOP キー 

最初 の モー ド 選 択 に も どり ます 。 を そして, 
モー ド 選 択 で 押す と , 終了 し ます 。 
CTRL.-G 

クリ ッ ク 音 の ON/OFF を 変更 し ます 。 
CTRL-G と する t; 16 進 数 を 入力 する と き 
に クリ ッ ク 音 が で る よう に な り ま す 。 もう 
1 度 CTRL-G と する と 消 を ます 。 また, 2 
リッ ク 音 は 16 進 数 の キー (0-Е) HHI 
れ だ た と きのみ 音 が 出る よう に な っ て いま す 。 
CTRL-S 

“= uA RIES ВЕУ С 
CTRL-S と する L, 画面 左 す み に 「SUM」 
と リバ ー ス で 表示 る され, チェック サム 入力 
で 2Ry に な 0 り まお お 6 02) 由 度 (HIRIDSS と 


する と 解除 る れ ま す 。 

この チェ ッ ク サ ム 入 力 モ ー ド と いう の は 
チェ ッ ク サ ム も 入力 する の で , 1 行 入 力 し 
終わ る と , カー ソル は 次 の 行 の 先頭 で な く 
チェ ッ ク サ ム に 移動 し ます 。 こ こ で チェ ッ 
クサ ム の 値 を 入力 し , も し その 値 が 同じ 行 
の チェ ッ ク サ ム の 値 と 違っ て いれ ば , ビー 
音 が し て カー ソル は 行 の 先頭 に 移動 し ま 
す の で も う 1 度 を その 行 を チェ ッ ク し て 
だ さい 。 もし, チェ ッ ク サ ム が 正しけれ ば , 
次 の 行 の 先頭 へ 移動 し ます 。 こ れ は , チェ 
ッ ク サ ム を 入力 する 分 だ け 手 間 が か か り ま 
す が , いち いち ディ スプ レイ を 見 る 必要 が 
な い の で , 便利 だ と 思い ます 。 

HELP キー 

使用 で きる コマ ンド キー の 一 覧 表 を 表示 
し ます 。 エ ディ イッ トモ ー ド に は , 適当 な キ 
ー を 押す と も どれ ます 。 エ ディ ッ ト 中 に キ 
ー の 配置 や 内 容 が 分 か ら な く 《 な っ だ と き に 
i, と し ど . じ ど 活 用 (だ きい 。 


を それから, ファ ンク ショ ン キ ー は ユン トロ 
ー ル キー で 代用 で きま す 。 コ ント ロー ルキ 
ー と の 対応 は , 表 1 の か っ こ 内 の と お ぉ お り で 
す 。 た と えば , の 代わ り に CTRL 
тоть, 同じ と いう こと で す 。 

また テン キー は 図 2 の よう に , 16 進 数 が 
扱え を る よう に な っ て いま す 。 


使い 方 の 
注意 


モー ド 4 の address type で マシ ン 語 の 
ダン プリ スト を 入力 し よう と いう 場合 は , 
あら か じ め そ を その アド レス で 適当 に セー ブ し 
て お いて 《 だ さい 。 だ と えば ,5000Hー9000 
H の ダン プリ スト を 入力 する 場合 は 

BSAVE "ABC', 
&H5000, & H4000 の 

LUC, あら か じ め デ ィ ス ク 上 に エリ ア を 
確保 し て お きま す 。 も ちろ ん , ファ イル ネ 
ー ム は 何で も か まい ませ ん 。 これ で , モー 
ド 4 を 使っ て ディ スク 上 で この ファ イル 
АВС を エディ イッ ト す れ ば , 5000Н ~9000H 


RI 


コマ ンド キー リス ト 


の ダン プリ スト が 入力 で きる わけ で す 。 
ASCII エディ ッ ト で は , ASCII ユー ド が 
20H よ ょ り 小 さい 文字 は 入力 で きま せん 。 Z 
の 場合 は 。 デ ー タ エディ ッ ト を 使っ て 入力 
Udo sc. 
まだ ただ, トラッ ク の 値 や クラ スタ の 値 な ど 
を 入力 する 場合 は '16 進 数 で , そし て 入力 
完了 は , スペ ー ス バー,/ 入力 や り 直 し は 
[HC fio € (28v, 
た と えば , 12H と いう 値 を 入力 する 場合 
15 28 
の 順 で 入力 すれ ば OK と いう こと で す 。 b 
C RECAI C R EE iii DE wË 
いう と き は , [を 押し ます 。 そ れ ま で 入力 
し た 値 95 ク リア ミ きれ, 再 入力 で きま す 。 た 
だ , トラ ッ ク の 値 な ど は , 最大 で 2 桁 ま で 
で す の で , 
3« .2 


スペ ー ス バー 


па АЗЕ, 


2328 

と 入力 すれ ば , 自動 的 に 値 は 23H に な り ま 
+, くわ しく は , 実際 入力 し て みれ ば , お 
分 か り い だ た だ ける と 思い ます 。 

最後 に .。 モード 4 で 入力 で きる ダン プリ 
スト は どん な アド レス で も か まい ませ ん が , 
先頭 アド レス の 下 2 桁 は 0 で な けれ ば な り 
ませ ん 。 つ まり, スター ト ア ドレ ス が ( 呈 20 
HEEtvo5t&ii,CI20H—C21FH を 
1 ブロ ッ ク と し て し まい ます の で , ЖАА 
が 合わ せら れ な いと いう こと に な り ま す 。 
まあ , ほとん どの 場合 , C000H か ら 5 と か D 
200H か ら な ど で す の で 問題 は な いと 思い 
ます が , と きど き 65E 0 H か ら と いう 狂っ 
た こと を する プロ グラ マー が いま す の で , 
ご 注意 くだ きい 。 

АТИР k u ssp 
0 H か ら 5 で あれ ば , ディ スク 上 で は 6500H 
か ら (6500H—65DFH i0) と し て 入力 


最後 の セク タ に 移動 する 

表示 され て いる セク タ を プリ ント アウ ト す る 
エディ ッ ト モ ー ド を 変更 する 

ライ トモ ー ド を 変更 する 

一 定 の デー タ を 書き 込む 


クリ ッ ク 音 を 発生 に 設定 する 


全 セ クタ を プリ ント アウ ト す る 


指定 し た 範囲 の デー タ を ほか へ 移動 する 


表示 セク タ を 変更 する (クラ スタ タイ プ ) 
カー ソル を | バイ ト 分 進め る 


ROLL DOWN キ ー 


前 の セク タ を 表示 する 
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L, を その後, 1 度 ロ ー ド し て 65E 0 HLIK 
эн дас, ЫП зш 2 

ちな み に , スー パー モニ タ は 6500H~65 
DFH を 0 と し て , 6500H IE + — > L 
て お いて も か よい ませ ん 。 


今回 は , いつ も の 倍 の 大 きる の プロ グラ 
み で す が , と に か く こ れる を ん あ れ ば , どん 
な アド レス で も その ダン プリ スト ファ イル 


AT Z22 ЕЕ МИЫ こと が で きま す 。 


*598 «7 «B *9 
2E) D3 2I SEPLES 
C4 E6 AF 32 B9 
20 D3 2A 88 EF 
Б4 E6 AF 32 B8 
9B СӨ CD 58 55 
E etico ША 
25 D3 21 00 UU 


FE 32 СА 8D CI 
34 СА 99 CI 20 
50 45 52 20 44 


c 

л 

© 

2 

[m 

о 

о 

w 
t n 7, Ос ن ئت ت 22 نٹ‎ ВО то + 
Ф ал т 0 тр Тото о о 

w 

го 

w 

c 

c 

e 


35 32 19 04 ӨЕ 


20 56:65:72 20 : 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +D +E +F: 
C788 : D3 F5 7E ЗС 28 83 Fl A7 СЭ ЗА 45 D3 АЕ ЕІ Зр B9 : 
C718 : 38 6D A7 C9 7E ЗС 28 67 3D 23 22 38 рз CD 4F ре : 
C728 : A7 C9 CD 94 DØ ЗА Зр D3 ЗС FE 11 38 85 32 Зр D3 : 
C730 : 18 16 ЗЕ 01 32 23 D3 ЗА 22 D3 ЗС 32 22 рз CD 72 : 
C748 : D8 CD 35 D8 FE A8 38 37 A7 C9 3A 45 D3 4F 3A 3D : 
C758 : D3 ӨС ЗС ВЭ 38 29 18 D5 CD 66 C7 F5 D5 CD 35 D2 : 
C768 : CD 94 D0 DI F1 C9 CD 1С D2 2A 38 D3 E5 CD EF C6 : 
C778 : El 22 38 D3 D8 CD 94 D8 2А 22 D3 55 5C A7 C9 37 : 
C788 : C9 CD IC D2 ЗА 16 D3 OF 38 86 ВЕ 38 2E ØF 38 4D : FD 
C798 : ЗА 3D D3 Зр A7 28 89 FE 88 28 85 32 Зр D3 А7 СЭ : 
СТАВ : 2A 38 D3 2B 2B 7E ЗС 28 06 23 22 38 D3 Зр CD 4F : 


C7B8 : ре ЗА зр рз C6 07 32 зр рз A7 сэ CD 94 DƏ ЗА 3D : 41 
C7C8 : D3 3D 28 83 C3 2D C7 3E 18 32 23 D3 3A 22 D3 A7 : 3E 
C7D8 : CA 7F C7 3D 32 22 D3 CD 72 DB СЗ 48 C? ЗА 41 D3 : АЗ 
C7E9 : 4F ЗА 3D D3 3D B9 DA 7F C7 СЗ 2D C7 D5 11 88 01 : 4D 


74 89 C4 : Bl 
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ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +0 +E +F 


:SUM 
C888 : 2A D2 21 CE D4 22 38 D3 3A 16 D3 FE 88 28 #9 CD : 13 
C818 : 87 C4 CD FD CD СЗ 62 C2 2A 84 D3 EB 2A 32 D3 E5 : 49 
C828 : A7 ED 52 28 8A El CD EC C7 22 84 D3 СЗ CB C6 El : A7 
C838 : СЗ 62 C2 2А 34 D3 EB 2A 32 D3 81 88 81 89 D5 ЕВ: FD 
C840 : A7 ED 52 EB DI 28 84 38 82 18 F2 A7 ED 42 C9 Ср : 7E 
C858 : C5 D2 ЗА 16 D3 FE 88 28 8B CD 38 D2 CD 6C C8 22 : ES 
C868 : 38 D3 18 A4 CD 8D C6 DA 87 C6 18 F8 21 CE D4 7E : 5F 


C870 : 3C C8 23 18 FA 2A 26 D3 E9 2A 28 D3 E9 ЗЕ 81 18 : AA 
C888 : 81 AF 32 2А ОЗ CD 38 CD ЗА 8B D3 FE 37 38 IF FE : 4B 
C890 : ЗЕ 380 1B ЗЕ 88 32 8B D3 ЗА 24 рз 16 88 SF 2A ВЕ : BD 
C8A9 : D3 A7 ED 52 22 8E D3 AF 32 14 D3 32 IA D3 ЗА 18 : FS 
C8B9 : D3 32 19 D3 AF 32 18 D3 11 CF C8 21 16 C9 CD 74 : A6 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C «D +E +F :SUM ADRS +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
C988 : CD 2A ØC D3 22 86 EF 22 ВА D3 ЗА 15 D3 32 14 D3 : A7 CE00 : 22 02 D3 21 38 F5 22 86 D3 21 6D F5 22 08 D3 CD : 85 
C918 : 2A 12 D3 22 8E D3 AF 32 25 D3 CD 8E C9 3A 19 D3 : 35 CE16 : 72 ре 2A 04 рз E5 06 18 C5 CD D3 CE CD BB CF СІ : 89 
C928 : 32 18 D3 СЗ 62 C2 CD 52 C9 11 85 El 78 12 13 7E : FE CE20 : 10 F6 El 22 04 D3 06 4E 2A 86 D3 Е5 36 2D 23 18 : B2 
C930 12 23 13 18 FA 11 41 C9 CD 77 C9 11 BI D4 C3 C9 : 9C CE38 FB 24 02 ОЗ 25 22 82 ОЗ AF 32 81 ОЗ El 11 78 88 : 35 
C948 : C8 2A BE D3 11 85 El 1А 13 47 1А 77 23 13 18 FA : ØF СЕ4@ : 19 11 84 ОЗ 06 Q3 CD 02 DB 23 23 36 3A 23 23 86 : 2B 
C958 18 AC 2A 12 D3 E5 EB 2A 8E D3 A7 ED 52 38 9E 2C : 96 CE58 18 C5 ES 2A 02 D3 23 22 82 D3 2B 11 10 88 01 060 : 20 
C960 : 45 El СЭ 21 17 83 22 86 EF EB CD 58 55 2A ВА 03 : 25 CE60 : 10 7E 81 4F 19 10 FA EI ЗА 91 D3 81 32 01 рз 79 : 78 
C978 : 22 86 EF C9 22 28 D3 EB 22 26 D3 3A 14 D3 32 15 : EB CE79 : CD FD CF 23 СІ 18 DA 36 ЗА 23 23 ЗА 81 D3 CD FD : F5 
C988 D3 2A 8A D3 22 8C D3 2A 8E D3 22 12 D3 C9 11 B9 : 86 CE80 CF 21 65 FD 36 5B ЗА 16 D3 FE 08 28 17 23 EB 2А: 7B 
C998 : D4 18 DƏ CD 07 D1 ЗА 16 D3 FE 01 28 84 FE 88 28 D5 CE99 32 рз CD C9 CE 36 2D 23 EB 2А 34 D3 2B CD C9 CE : 9A 
C9A8 : 09 81 02 81 CD 4E рі CD 87 DI'81 03 13 CD 4E DI : Al СЕА@ : 36 5D 18 IF 11 3A D3 86 84 C5 IA 13 D5 23 CD FD : A6 
C9B8 : СЗ 62 C2 ЗА 1А D3 А7 28 ØD 21 88 E9 22 ВЕ D3 21 : ØF CEB9 : CF 36 2C DI СІ 18 F2 36 20 36 5D 23 23 CD 35 DØ : C6 
C9CB : 84 ЗЕ ЗЕ 81 18 23 CD 30 CD 2А ВА D3 ЗА 24 D3 47 : 85 CEC9 : CD FD CF 21 18 FE 36 ЗЕ C9 05 CD 14 ре 86 04 El : 7E 
C9D9 : 3A IC D3 A7 20 89 4F ЗЕ ЗЕ 80 67 79 3C 18 8A 3E : СӨ CED6 : C3 82 DØ 2A 04 рз E5 ЕВ 2A 86 D3 EB CD C9 CE 23 : DB 
C9E8 05 04 ВЕ 03 81 18 FD 67 AF 22 86 EF 22 BA D3 32 : 86 CEE0 : 36 ЗА 23 23 22 86 D3 El 11 10 88 19 22 84 D3 C9 : 8E 
C9F9 IC D3 AF 32 14 D3 32 1A D3 CD 47 CI C3 62 C2 3A CC CEF9 2А 9E ОЗ 22 10 ОЗ ЗА IC D3 A7 20 ЗЕ ЗА 14 D3 A7 : 87 


1985Ж 4 月 掲載 


スー バー ディ スク エ デ イタ PART2 


前 回 の ディ スク エディ タ は いか が で し た だ け で は いっ た い ど ん な 内 容 の ファ イル な ム を 入力 する 際 , ディ スク に 収め られ て い 
bs 今回 は 前 回 発表 分 の 機能 を る 6 に 拡張 の か 分 か り ま せん 。 を そこで, 今回 は さら に 3 ァイル を 参照 で きた 方 が 便利 だ と い 
し て , スー パー シス テム に 組み 込み ます 。 マシ ン 語 ファ イル の ディ ス ア セン ブル 機能 , こ と で , FILES 命令 の 機能 も 追加 し て お 

ディ スク エディ タ は ダン プリ スト 形式 で バイ ナリ 形式 の BASIC ファ イル お よび :i Uds E Ээ ын (HES. 
エディ ッ ト を 行い ます 。ASCII セー プ き され ASCII フ ァイル の リス ト 表 示 機 能 を 追加 
た ファ イル は と も か く 〈, マ シン 語 や BASIC Fast s 
な どの バイ ナリ 形式 の ファ イル は 一 見 し た それ か ら , モー ド 1, 4 で ファ イル ネー 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C «D +E +F :SUM 
B000 3E C3 32 D8 C2 21 48 B0 22 09 C2 3E 0D 32 62 D5 : 57 B200 : D1 21 2C B2 22 E4 D1 ЗА 86 EF 4F 06 01 ЗЕ C9 32 : ES 
B010 : 21 81 BC 22 B1 C1 21 35 BD 11 é? D8 01 64 00 ED : A? B219 : 97 D1 CD 4E D1 CD 1B B2 СЗ 6C F1 ЗЕ ЗА 32 9? 01: 20 
B020 B9 21 95 BD 11 78 04 01 12 00 ED BO ЗЕ 0D 32 ДЕ : FB B220 : 3E C2 32 ЕЗ D1 21 37 D1 22 E4 D1 C9 CD 75 F1 F1 : ОЗ 
lJ B030 04 21 0? BD 22 71 C2 ЗЕ 03 32 C5 BD 21 F4 BC 22 : F6 B230 : F1 CD 1B B2 CD 07 D1 CD 6C F1 СЗ C1 B1 CD 59 B5 : бА 
B949 : 37 СЗ 22 49 СЗ СЗ 00 СӨ CA QD CA FE 16 28 1E FE : Ад B240 : 11 EB ВЗ 05 DD 21 EB E1 CD 52 B5 DD 77 00 DD 23 : 6B 
Я; в@5@ QE 28 10 СЗ DB C2 FE 12 CA 00 00 FE 17 CA 00 00 : SF B250 : FE CB CA éA B3 FE DD CA 91 B2 FE ED CA АЕ B3 FE : АС 
ト B969 C3 99 00 CD 07 D1 CD 07? D1 3E 01 18 01 AF 32 DF 25 B260 : FD CA 8C B2 FE СӨ D2 85 B2 FE 80 02 ДА ВЗ FE 40 : 57 
B979 : F1 ЗА 16 D3 OF DA 04 B9 OF DA DF B9 ØF DA DF B9 8c B270 : 02 23 ВЗ 21 3C B? 16 00 SF A? 19 19 19 7E 23 56 : 1А 
1 вове 11 00 EO 2A ВЕ D3 22 C2 ВО A? ED 52 EB 2A 04 D3 6F B289 : 23 5E СЗ 3? ВЗ 21 FC B? D6 C9 18 EA CD A2 B5 18 : 06 
B090 19 2B 22 DA F1 2А 34 D3 2B 22 E2 F1 CD 88 B1 3A 2 B290 : 03 CD 89 B5 CD АЕ BS DD 77 00 DD 23 FE DD CA АА: 82 
B9A9 1D D3 32 31 ОЗ 3E 01 32 1D ОЗ 32 30 D3 ЗЕ C9 32 : F5 В2А@ : B5 FE ED CA AA BS FE FD CA AA BS FE E9 28 56 FE : 50 
B9B9 : 3D Có ЗЕ 48 32 CE F1 СО 6C F1 3E @A CD 29 71 2A : 7D B2B9 : CB 28 5A CD 50 B2 47 AF 32 DB 82 7A FE 07 28 1C : 64 
B9C9 : DA F1 23 CD 9A 6F 2B CD 66 F2 СО 3D B2 CO 6C F1 : FA B2C9 : FE E2 28 35 ЗЕ 01 32 DB B2 7B FE D7 28 2F FE E2 : C2 
B9D9 DD ES 01 21 EQ E1 EB ED 52 45 ЗЕ 08 32 87 EF 11 E3 В20@ : 28 2F ЗА DB B2 A? 28 1D СЗ AA BS 99 16 DE 3A E? : 41 
B9E9 : EO E1 1А CD 80 6F 13 10 F9 ЗЕ 14 32 87 EF 21 05 D3 B2E9 : E1 А? 28 06 AF 32 E? E1 18 ӨВ CD АЕ B5 DD 77 00 : AZ 
Bere El CO 2E-70-3E АВ 32 BX EF. 23 Eg EL /E.FE.20 39 2B B2F9 : DD 23 32 E6 E1 78 C3 3? B3 16 E4 18 CC 1E DE 18 : 10 
SUM 08 ЕЗ 80 C8 96 ВЕ 41 9B 79 64 СЗ 25 EB 6С QA 68 21 SUM : FF 50 51 26 55 98 93 QA CF 64 ЕӨ 46 CE 17 E5 1D : 90 
ADRS +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +С «D +E +F :SUM 
B100 : 05 A? 28 @А 3E 20 CD 29 ?1 23 18 F8 18 AC CD F? 56 B300 : DD 1E E4 18 F0 96 7E 16 DC 1E 00 18 E8 CD 4F B5 : 4C 
B110 : B1 CD 62 71 38 10 FE 03 28 09 FE ØD 20 08 CD 59 24 B310 : DD 77 00 DD 23 32 E6 E1 CD 6A B3 47 3E 01 32 E? : D6 
B120 : 71 FE 03 CA C1 B1 ЗА 30 ОЗ A? CA B2 B1 2A DA F1 B4 B320 : El 18 94 FE 76 28 1C Dé 40 CD 3F BS 47 ЗЕ D9 81 : F2 
B130 : 23 EB 2A E2 F1 CD D? 6F DA B2 B1 18 CF D9 3E 01 : 5A 8330 : 57 ЗЕ 01 80 SF ЗЕ 62 21 DO El 77 23 72 23 73 23 : 7C 
B149 : 32 30 ОЗ 2A C2 BD 7E 44 4D 2А DA F1 EB 2A E2 F1 : CA B340 : 36 00 C9 ЗЕ 66 11 00 00 18 ED 06 80 CD ЗЕ B5 47 : 17 
B159 : AZ ED 52 38 30 28 2F 60 69 23 22 C2 BD 11 900 EO : 23 B8350 : ЗЕ 70 81 SF ЗЕ 01 80 57 7B 1E 00 FE 73 38 06 FE : BA 
B160 : A? ED 52 4F 7С A? 79 28 1D F5 CD 75 F1 CD 5A C6 2B B360 : 74 28 02 18 02 5A 16 D8 18 CD CD 4F B5 DD 77 00 : DA 
B179 CD 66 F2 F1 21 00 ЕӨ 22 C2 BD 18 ВА F1 AF 32 30 DC B379 : DD 23 FE СӨ 30 32 FE 80 30 28 FE 40 30 ӨЕ CD ЗЕ : ТЕ 
B180 : ОЗ CD 66 F2 F1 AF D9 C9 21 03 15 22 Ве Eé CD QE 96 B389 : B5 06 01 80 57 ЗЕ 82 81 1E 00 СЗ 37 B3 06 8B 06 : 06 
B199 : SF 21 03 01 22 86 EF C9 CD 6С F1 CD A? éF СЗ 66 1А B390 : 40 C5 СО 3F B5 06 Di 80 5F 3E 2F 81 57 C1 78 C3 : BD 
В1А@ F2 ?E FE 20 DC AF B1 A? C8 CD 29 71 23 18 F2 3E 9B B3A9 : З? ВЗ 96 8C 06 80 18 E9 06 8D 06 СӨ 18 ЕЗ CD ¿F : 13 
B1B9 20 C9 CD 75 F1 11 74 BD CD C2 C4 CD 6C F1 CD 59 91 B3B9 : B5 DD 77 00 DD 23 FE 40 DA AA B5 FE ВС D2 AA B5 : 6B 
B1C9 71 ЗА DF F1 A? 28 06 CD 75 F1 CD 97 D1 AF 32 30 2% B3C9 : АҒ 06 38 21 BC B8 ТЕ А9 28 09 23 23 23 23 10 F6 : ӨС 
B100 ОЗ ЗА 31 ОЗ 32 1D ОЗ ЗЕ 01 32 A? E6 ЗЕ CD 32 30 AB B300 : СЗ AA BS 23 7E 23 56 23 SE СЗ 37 ВЗ ZE 23 FE ЗА : 43 
B1E9 : Có 21 ЗВ 01 22 48 02 21 02 18 22 BO E6 AF 32 DF E2 ВЗЕ@ : DA 46 ВА F5 ЗЕ 2C 12 13 F1 18 30 CD 26 B5 21 00 : 2А 
PIFO : F1 CD 75 F1 СЗ ЗА C2 ЗА DF F1 А? C8 ЗЕ СЗ 32 ЕЗ 72 B3F0 : E1 7E 32 C4 BD Dé 61 23 ES 21 B5 BS A? SF 16 00 : F8 
SUM Dé 64 14 D? 55 F6 3C 15 B5 AE A2 8B 5B BA 3? 43 ЕВ SUM : 65 75 81 30 82 00 26 C9 40 B0 Có 12 50 68 82 61 : 3C 
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プロ グラ ム 
P cg 


今回 の リス ト は 4 つ に 分 か れ て いま す 。 

各 リ スト は リス ト 1 が 今回 の 機能 拡張 用 
ОРАО АА N2 が スー パー シス アテ 
ム に 組み 込む た なめ の プロ グラ ム , そし て リ 
スト 4 が 今回 (前 回 分 を 含む ) の プロ グラ 
ム の だ ため の スー パー フォ ー マ ッ ト (SS. Е 
1 ) 用 変更 リス ト で す 。 リ スト 3 が SS.I 3 
の 変更 り ス ト で す 。 

で は , まず リス ト 1 を 打ち 込ん で くだ さき 
い 。 完全 に 打ち 込め た ら , 

BSAVE “SS. Р2”, 

&HB000, &НЕ00 Q 
REESE UCM SUO. Z3, min] 
分 は 55. D1 と いう ファ イル 名 で モー ブ し 
て お いて 〈 く だ さい 。 

続い て , リス ト 2 を 打ち 込ん で くだ さい 。 
打ち 込ん だ 6 1 度 セ ー ブ し , スー パー シス 
テム を 起動 , スー パー モニ タ を セレ クト し 
е Sua uay LECT L で お 
ぃ だ リス {о 2 を ロー ド し , モニ タモ ー ド で 

]HO © 
と し て スー パー モニ タ を 解除 し ます 。 それ 
か ら , 

] MC000, COFF, 8400 О 
と し て , C000H —COFFH を 8400H 以 降 へ 
移動 し , を の 部 分 を SS.D3 と いう ファ イル 
名 で , 

BSAVE “SS. D3”, 

& H8400, & H100 О 

Та су t Cay Sus, 

次 に , SS. 13 を リス ト 3 の よう に 変更 し 
て くだ きい 。 なお, 変更 部 分 は 網 の か か っ 
部 の RI が oe た だ 区 > 念 の だ め に チェ ッ ジ の グ 
サム も 確認 し て お いて くだ さい 。 

аа Е ОВИ о е 
マッ ト 用 の プロ グラ ム を いつ も の 要領 で リ 
スト 4 の よう に 変更 し て お いて くだ るい 。 
毎度 お 手数 を か け て すみ ませ ん が , 55. F 
1 に つい て は 現在 プロ グラ ム の 改造 中 で , 
次 回 か ら は 毎回 変更 する こと が な いよ うに 
Uu vto Xd. UTERO 
待ち くだ さい 。 
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ADRS : +9 
B499 : 19 
B410 : 20 
B429 : 4F 
B439 : 12 
B449 : 23 
B459 : B3 
B469 : 28 
B479 : 28 
B489 : 28 
B490 ЕЕ 
B4A9 B4 
B4B9 : 3A 
B4C9 : F1 
B4D9 98 
B4E9 : B5 
B4F9 : 18 
SUM 2А 
ADRS : +0 
B500 : E3 
B519 13 
B529 : 96 
B539 : 94 
B549 : 98 
B559 DA 
B560 : 99 
B570 : 38 
B580 : A? 
B590 : 32 
BSA0 : ВЗ 
B580 16 
BSC9 : 20 
в50@ 41 
В5Е@ : 20 
B5F0 : 20 
SUM 5D 
ADRS +@ 
B600 20 
B610 20 
B620 48 
везе 20 
B640 : 20 
B650 : 20 
B660 20 
B670 : 20 
B689 52 
B699 52 
B6A9 29 
вове 4E 
весе 49 
B6D9 : өө 
BeE9 : 43 
BeF9 29 
SUM EF 
ADRS : +@ 
B700 : 00 
B710 : 49 
B720 : 28 
B730 : вө 
B740 : Е@ 
8750 : E? 
B760 : 63 
B770 Е 
B780 : E? 
B790 : 63 
B?A0 : E2 
BZB9 : E? 
B7C0 : 63 
B7D0 : ЕЗ 
BZE9 : E? 
B7F0 > 63 
SUM EAF 


Dou ERU tahay 
у КИВ, REG TESTES, 
今回 の 組み 込み で , Expanded type に 

`7. Super disk editor” が 追加 きれ て い 
る は ず で す 。 こ の 機能 を 使う と き に は , 7 
を 選択 し て くだ さい 。 

で は 使い 方 の 説明 に 入り ます 。 


使い 方 
E s 


Expanded type の スー パー ディ スク エ 
ディ タ を 選択 する t, 自動 的 に SS. D3 が 読 
み 込 まれ ます 。 
ディ スク エディ タ の 起動 は , 
CMD D Q 
で 行い ます 。 これ で , 自動 的 に SS. DI, SS. 
D2 の 2 つの ファ イル が 読み 込ま れ , デ ィ ス 
クエ ディ タ の モー ド 選 択 画面 が 表示 され ま 
す 。 デ ィ ス クエ ディ タ の 使い 方 は 前 回 述べ 
"eg aec Uere pm 
で は , 新しく 追加 され た 機能 に つい て 説 
明 し ます 。 
まず , モー ド 選 択 で 1 か 4 を 選ん で くだ 
さい 。 す る と , 
FILE NAME? 
¿ š T S Ф, cs 

ж < ドラ イブ 番号 > О 
と 入力 し て くだ さい 。。 これ で , 指定 され た 
ドラ イブ 番号 に モッ ト る され て いる ディ スク 
の 全 フ ァイル が 表示 る れ , ファ イル 名 の 入 
力 待ち と な り ま す 。 た と えば , ドラ イブ 1 
の ディ スク の 全 フ ァイル 名 を 参照 し た いと 
き は , ファ イル 名 の 入力 で , 

* 1 

КАЛ TOCNE ОИ 1:09 4 
スク の 全 フ ァイル 名 が 表示 され ます の で , 

それ を 参照 し て エディ イッ ト し た い フ ァイル 
名 を 入力 し て くだ きい 。 

な お , 表示 る れる ファ イル 名 の 後ろ に つ 
いて いる の は , その ファ イル の 種類 を 表し 
t 4 30972 ERIK IME あれ ば マレ シン 語 
0774 v, B» BASIC, A が ASCII ファ 
イル を 意味 し て いま す 。 

また , ドラ イブ 番号 の 入力 を 省略 し て * 
だ け を , ある い は 1, 2 以外 の 文字 を 入力 


119 


し た 場合 は 自動 的 に ドラ イブ 1 が セレ クト 
され ます 。 ' 

次 に , 新しい コマ ンド に つい て で す が , 
機能 拡張 に と も な っ て CTRL-V, CTRL-N 
が 追加 され て いま す 。 こ れ は モー ド 1, 4 
で 有効 な コマ ンド で , モ ー ド 1 で は BASIC 
ファ イル (バイナリ) ある い は ASCI ファ 
イル を リス ト 形 式 に 直し て 表示 し , モー ド 
4 で は 現在 カー ソル の 示す アド レス より デ 
А АУЛ ET lu GE ДЗ: 

СЕМСЕР $774 Z 2 4 
上 に 出力 され ます が , CTRL-N の 場合 は プ 
リン タ に も 出力 され ます の で 結果 を プリ ン 
F し た い 場 合 は CTRL-N を ご 利用 くだ さい 。 

使い 方 は , CTRL-V/N を 入力 する と 
BASIC ファ イル , ASCII フ ァイル で あれ 
ば , フ ァイル の 先頭 より リス ト 形 式 で 表示 / 
プリ ント し, マシ ン 語 ファ イル (モー ド 4 ) 
で あれ ば 現在 カー ツル の 示し て いる アド レ 
ス ょ より デス ルス デモ セン デル し て 表示 / プ リン 
F し ます 。 表 示 を 一 時 停止 し た いと き は 
RETURN キー を 押し , 中 止 し た いと き は 
ТОРЕ 0072605. 

と に か く , 1 度 使っ て いた だ けれ ば , す 
ぐに お 分 か が り い だ だ ける と 思い ます 。 


使い 方 の 注意 
к o oo 


CMD D を 実行 する と き は , 必 ず SS.D 1 
と SS.D 2 の セー プ き され て いる ディ スク を 
ドラ イプ 1 に モッ ト し て お いて くだ さい 。 
まな た, 前 回 説明 が 不足 し た 部 分 が あり ま 
し ただ た ので, 補足 し ます 。 

エディ ッ ト 画 面 の ASCI ダ ンプ の 最 下 
行 で す が , ここ に は モー ド 1 一 3 の 場合 は 
その 表示 され て いる セク タ の が 表示 され ま 
す 。 た と えば 現在 ドラ イブ 1 サー フェ ス 0), 
トラ ッ ク 8H, セ クタ 0BH ダ ンプ リス ト が 
表示 る きれ て いれ ば , この クラ スタ 番号 は 21 
HET: 

だ の 3 あて 。 

[01, 00, 08, 0B] 21 

と 表示 る れ ま す 。 

そし て , モー ド 4 の 場合 は その マシ ン 語 
ファ イル の 使用 アド レス が 表示 さる れ ま す 。 
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前 回 , 書き 忘れ まし た 。 す み ま せ ん 。 
それ か ら , モー ド 1 で マシ ン 語 ファ イル 
を 指定 し た 場合 , CTRL-V/N は 無効 と な 
り ま す 。 マ シン 語 フ ァイル の 場合 は モー ド 
4 を ご 利用 くだ きい 。 

モニ RT マジ シン 語 フ ァイル を 指定 て 
も ,CTRL-V/N は ディ ス ア セン プル 機能 と 
し て 働き ます 。 

まだ, 前 回 の ディ スク エディ タ は 8801 
MKIISR で も 使え ます 。SR の 方 も ご 活用 
くだ きい 。 


お わり に 
. w— 3 


これ で スー パー シス テム 用 の ディ スク エ 
ディ タ の 完成 で す が , いか が で し た で し ょ 
う か 。 今 回 は 前 回 分 を 手直し し な く 《 て も よ 
い 形 で 提供 し まし た 。 も ちろ ん , 前 回 グロ 
グラ ム に 手 を 加え て いる の で す が , 今回 の 
プロ グラ ム を 起動 きせ る と 自動 的 に 前 回 分 
AUS S kl a ЭЕ L た 。 いつ 6 の 
よう に , ずら り と 変更 リス ト を 並べ る よう 
な こ . と に は な ら な か っ だ と いう こと で す 。 
プロ グラ ム は 少々 長く な り ま す が , この 方 
が 簡単 で よい と 思い ます の で , 今後 は この 
方 針 び いき た いと 思い ます 。 

次 回 は , いま まで の 分 を すべ て オー バー 
レイ 方 式 で 扱え る よう に し た いと 思い ます 。 
スー パー シス テム も Expanded type で 7 
つの モー ド に 拡大 きれ , そろ そろ 肥満 気味 
に な っ て きま し た 。 を そこ で , モー ド 選 択 な 
じじ に, と ユマ ンド = 発動 《 く よう に し た いら と 
мб ЕТТ 

た と えば , Expanded type C, 

CMD MON О 

と 入力 すれ ば , スー パー モニ タ 用 の プログ 
ラム が ロー ド さ れ , 立ち 上 が る と いう 具合 
で す 。 どうぞ , ご 期待 くだ さい 。 


85A4 : ЗА 。 SSAE : 。 85AF : 。 85BB : 44 


85BE-:-36 5. „18568: ... 856904 | S85CB : 00 
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は じ め に 
ИОНИ 


今回 の 拡張 機能 は ご 要望 (文句 ? ) の 多 
か っ た SS88 専用 の フォ ー マ ッ ト , バッ ク 
アッ プ , コピ ー お よび クラ スタ サー チャ ー 
(s 

まず フォ ー マ ッ ト と バッ クア ッ プ で す が , 
これ は シス テム ディ スク に 付属 し て いる 
format.n88, backup.n88 と ほとん ど 同 じ 機 
能 で す 。 し か し , 付属 し て いる も の は SS88 
で は 使え ませ ん し , 不便 な 点 も あり ます の 
C, さら に 便利 に SS88 専用 の ユマ ンド と 
аа ыа ай 

次 に コピ ー で す 。 こ れ は 一 方 の ドラ イブ 
に セッ ト さ れ て いる デイ スク に セー ブ き され 
て いる BASIC や マシ ン 語 の プロ グラ ム フ 
ァイル や デー タフ ァイル な どの ファ イル を 。, 
も う 一 方 の ドラ イブ に セッ ト き れ て いる デ 
ィ ス ク に コピ ー す る コマ ンド で す 。 一 般 に , 
backup.n88 や xfiles.n88 を 使っ て 別 の デ 
イス ク に コピ ー で きま す が , これ は マス タ 
ー デ ィ ス ク 内 の すべ て の ファ イル を コピ ー 
し て し まい , 任意 の 1 つの ファ イル の み を 
コピ ー し よう と する と ,BASIC の プロ グラ 
ム フ ァ イル な ど は 簡単 で す が , ほか は ちょ 
の SG 人 GSG フー ク 0 ジ アイ ツレ で 
あろ う が , ASCI モ セーブ さ る れ た も の で あろ 
う が , 何で も ほか の ディ スク に そっ くり ュ コ 
bc bis-Ew5op, この コビー 
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コマ ンド で す 。 

最後 に , クラ スタ サー チャ ー で す 。 5588 
の FILES コマ ンド に は , ファ イル の 使用 
し て いる クラ スタ 数 や 残り の 空き クラ スタ 
数 を 調べ る 機能 は あり ませ ん 。 それ で は 不 
便 ほ と いう こと で , 任意 の ファ イル の 使用 ク 
ラス タ 数 や 空き クラ スタ 数 を 調べ る た め の 
ュ マ ンド を 作り まし た 。 それ が , この クラ 
Z od mt 

今回 も , 毎度 の こと な が ら 前 回 まで の 分 
に 手直し を 加え て スー パー シス テム 88 内 に 
組み 込む と いう 方 法 を と り ま す 。 

それ で は , プ ブログ ラム の 説明 に 入り まし 
は まり 


プロ グラ ム 


今回 の プロ グラ ム は リス ト 1,2 の よう 
に な っ て いま す 。 リ スト 1 は メイ ンプ ブロ グ 
FAT Ч) ASMERHZ moa SSP 
変更 り ス ト で す 。 

それ で は , まず リス ト 1 を 打ち 込ん で 
だ さい 。 完全 に 打ち 込め た 6 5588 を 起動 
し , Expanded type の Super 
mode を セレ クト し て くだ さい 。 セレ クト 
LRG, モー クタ EDE 

]H0 © 
と し て , スー パー モニ タ を 解除 し ます 。 を 
LG, Sq E QD е n 08 

]MD000, D8FF, 8400 @ 


monitor 


19842 9 月 掲載 


で メイ ンプ ログ ラム (D000H~D8FFH) を 
8400Н —8CFFH へ 移動 し ます 。 そ し て , 

BSAVE “SS.F1” ,&H8400,&H900 © 
LUC84100—8CFFH を セー ブ し ます 。 こ 
の と き , 毎度 の こと な が ら 6 ファ イル 名 は 必 
JO ESSI IPC asp» k hu ËL ЕД 
ISSUE bi SERO бага e ОЛУ а 
ミリ ー の 1 つと な り ま す の で , 必ず 同じ デ 
Ду ДЕ Т о e Sus 

UU TSS ETE Еро ТООЦ 
ЖИТ ООУ ФА WU TSS EZT 
オウル 名 で セー ジ し で な いで ぐだ ざい に 7 リド 
v AXX&HC000—&HC2FF で す 。 以 上 を 完 
了 し た ら 56, 起動 し て み ま し ょ う 。 

まず リセ ッ ト を か け SS88 を グー ト し ま 
+, 最初 に 表示 され る 初期 画面 は いま まで 
と 同じ で す 。 こ こ で は 2 の Expanded type 
を セレ クト し て くだ さい 。 Expanded type 
を セレ クト する と モー ド 選 択 と し な り ま す が , 
今回 の 変更 に よっ て 図 1 の よう に 3 つの モ 
ー ド を セレ クト する 画面 が 表示 る れる は ず で 


xx*xxx EXPANDED MODE SELECTION жжжж 


1.Super monitor 
1 .Super saver 
1.Super format 


Uhat/s mode number ? 8 


図 1 


>} 


° 


そこ で , 新しく 追加 きれ た 3 O Super 
format を セレ クト し て くだ きい 。 3 を セレ 
クト する と プロ グラ ム が ロー ド さ れ , 終了 
(コマ ンド 入力 待ち ) し ます 。 こ れ で , 今回 
の コマ ンド (CMD F, CMD B, C M D 
C, CMD L) が 使 を 4 る よう に な り ま す 。 
も し, ここ まで うま くい か な い 場 合 は 。 リ 
スト 2 の 変更 が 不 完全 と 思わ れ ま す の で , 
も う 1 度 チ ェ ッ ク し て みて 〈 く だ さらい 。 

な お , モー ド 変 更 (ISET コマ ンド ) の 画 
面 も 図 1 の よう に 変更 きれ て いま す 。 ま た , 
今回 の Super format は E000H—E1FFH 
を ワー クエ リア と し て 合用 し て いま す 。 


使い 方 


使用 で きる コマ ンド は 表 1 の よう に な っ 
て いま す 。 で は , それ ぞ れ の 使い 方 を くわ ゎ 
し く 説 明 し ます 。 


CMD F 


この コマ ンド は デイ スク の フォ ー マ ッ ト 

を 行う ヨ マ ン AN で 

CMD F Q 
で 起動 きせ る と, 図 2 の ょ うに 表示 る れ ま 
4. 5S doe оне t 76 7E EA ク 
を ドラ イプ.2 に セッ ト し て 《 く だるい 。 そし 
T, も し その ディ スク を 物理 的 に フォ ー マ 
> seu. У Уел 
て くだ きい 。 も し , その 必要 が な い 場 合 は 
INTE HESREN NIE IN Y. 
力 し た い 場 合 は , 

Sure (y/n)? 
と きい て きま す の で , それ で よい 場合 は Y, 
y 2? #*= s NR も で 2〈G だ る さい 39 ま る て も) 
ディ スク の フォ ー マ ッ ト が 開始 され ます 。 
も UN, n を 入力 し た 場合 は , ふた だ び 前 
の メッ セー ジ ど に も どり ます の で , も うぅ 一度 
入力 し な お し て くだ る . い 。 

Эштә рэ S4), Татту 

ト を 行わ な いと , 

Create SS88 (y n)? 
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と きい て きま す 。 そこ で , も し スー パー シ 
ステ ム 88 を 作り た い 場 合 は Y, Y を 入力 し 
て 《 だ さい 。 も し N, n を 入力 する と , 


と 表示 され, ディ レク トリ , FAT, ID を ク 
リア し で 終 本 も ます 。 

Y, 了 を 入力 し た 場合 は , 

Mounted SS88 on drive 1 (у/ п)? 
と 表示 され ます の で , スー パー シス テム 88 
の 組み 込ま れ て いる ディ スク が ドラ イブ 1 
に セッ ト る れ て いる こと を 確認 し て , Y, 
TERULETEN Е БРЕС N, PAA 
力 し た 場合 は SS88 を ドラ イブ 1 に モッ ト 
FU ЖЛ мэ Жуу C РЕ 

5L, スー パー シス テム 88 の コピ ビー が 
開始 る され ます 。 た だ し , この 場合 の スー パ 
ー シ ス テム 88 は スー パー シス テム 88 フ ァ ミ 
リー を 指し て いま す 。 し た が っ て , 必ず 全 
クア ミリ サー. (SS.M1, SS.M3, SSII, SS. 
12, 55.51, SS.F1) が セー プ き され て いる デ 
ィ ス ク を ドラ イブ 1 に セッ ト し て くだ きい 。 
スー パー シス テム 88 の 全 フ ァ ミ リー が そっ 
ç b m n cord que SE 
の | 


CMD B 


ER 
この コマ ンド は ディ スク の バッ クア ッ プ 
を 行う コマ ンド で す 。。 

CMD BQ 
で 起動 する と , 図 3 の よ うに 表示 され ます 。 
そこ で マス ター ドラ イプ ナン バー (バッ ク 
アッ プ を と り た だ たい デイ スク の セッ ト さ れ て 
いる ドラ イブ 番号 ) を 入力 し て くだ きい 。 
入力 し た ら 6, 今度 は マス ター ディ スク を コ 
ピー する ディ スク の セッ ト さ る され て いる ドラ 
イプ ナン バー を 入力 し ます 。 

そこ まで 入力 する コピ ビー ドラ イブ の 
物理 的 フォ ー マ ッ ト を 行う か きい て きま す 
DT, CMD F の 物理 的 フォ ー マ ッ ト の と 
き と 同 じ よ うに , その 有無 を 入力 し て くだ 
さい 。 以 上 が 完了 する と バッ クア ッ プ が 開 
Man, 1 トラ ッ ク ご と に コピ ー さ れ て い 
きま す 。 コピ ー は 全 ト ラッ ク に つい て 行わ 
れ , も し ディ スク 1/O エ ラー と な っ た トラ 
ッ ク が ある 場合 は , 

Disk I/O error on track XX 
と , その トラ ッ ク ナ ン バ ー を 表示 し , KD 
トラ ッ ク の コピ ー に 移り ます 。 なお, FAT 
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: 
Н 
. 
: 
. 
Н 
: 
: 
. 
Н 
. 
: 
. 
H 
: 
H 
. 
: 
H 
H 
H 
: 
H 
H 
H 
H 
H 
. 
Н 
. 
H 


に 従っ て 必要 トラ ッ ク の み を コピ ー す る と 
いう いま まで の 方 法 を と ら な か っ た だ の は , 
オー ル マ シ ン 語 処理 に よっ て テキ マキ と コ ユ 
к=? Ле ББ, や は リン ラルク の ネス 
プ と いう も の は まっ た だ く 同 じ デ ィ ス ク を 作 
る と いう も の だ と 判断 し た か ら で す 。 

ER 


CMD С 


この コマ ンド は ファ イル の コピ ー を 行う 
コマ ンド で す 。 使い 方 は 

CMD CELI TANT ARZI TEA 
O SE E TS cse 
は CMD C て 指定 し た ドラ イブ を マス ター 
に スプ 上 とう の ホ ポラ イプ を っ コピ 
РЕВЕ о ОЦ ЕОМ 
Zw sho WEST 74 2C 
ー し た い 場 合 は , 

CMD: C; 3T ТЕСТ x @ 
LU idu СЕ, ГЕТ! な いち アテ オイ 
ル が ドラ イブ 2 に コピ ー さ れ ま す 。 も ちろ 
A, ドラ イブ ナン バー が 1 の と き は 省略 し 
て も か まい ませ ん 。 ま だ , ドラ イブ 2 か ら 
ドラ イブ 1 ヘコ ピー と いう 場合 は , 

GMD Cii 2.5 TEST" 
と し ます 。 コ ピー する ファ イル の 種類 は 特 
殊 な セー ブ プ を され て いな いも の で あれ ば , 
BASIC で も マシ ン 語 で も デー タフ ァイル 
Ci も が まい ませ ん ョ スバ ニー マッ レジ テル 3G、 あ 
れ ば 消 和 上 華 に すばやく で コビー し て 〈 む ます 。 


Please mount a neu disk on drive 2. 


Do you need physical formatting (y/n)? B 


図 2 


Mount master disk on drive 
Master drive? B 


図 3 


ディ スク の フォ ー マ ッ ト を 行う 


ディ スク の バッ クア ッ プ を 行う 


ファ イル を コピ ー す る 


ファ イル の 使用 クラ スタ 数 。 空 ク ラス タ を 調べ る 
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CMD-L 


IT 
この コマ ンド は ファ イル の 使用 クラ スタ 
数 や ディ スク の 空き クラ スタ 数 を 調べ る コ 
FRET 
ファ イル の 使用 クラ スタ 数 を 調べ る に は , 
CMD 上 、. < ファ イル ディ スク リプ タ > 
と し ます 。 これ で , 使用 クラ スタ 数 が , 
XX Clusters 
と いう 形 で 表示 さる れ ます 。 
た と えば , 3 クラ スタ を 使用 し て いる , 
Sample と いう ファ イル は 場合 は , 
CMD En "Sample^ の 
EOE, 
3 Clusters 
と 表示 きれ ます 。 
次 に 空き クラ スタ の 調べ 方 で す が , この 
場合 は , 
CMD Ln Q (n 319425 
と し ます 。 SOT, FEE SBT, 
XX Free clusters 
と いう 形 で 表示 る れ ま す 。 
だ たとえば, ドラ イブ 2 に セ モット され て い 
る ディ スク の 空き クラ スタ 数 を 調べ た い 場 
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frd, 
CMD L2 Q 
ёл?» 

な お , 文中 の FAT と か , クラ スタ な どの 
ED ҖИК, 本 誌 の 「 フ ロッ ピー ディ ス 
ク の 徹底 活用 」 の 7 月 号 に くわ し くく 説明 き 
れ て いま す の で , そちら を ご 覧 くだ きい 。 


使い 方 の 注意 
Е 


コマ ンド の 使用 に あたっ て , 以下 の 点 に 
注意 し て くだ さい 。 
(DCMD F, CMD B コマ ンド で は , “Ў 
れ も マ ル チ ス テー トメ ント は 使え ませ ん 。 
し た が っ て , ダイ レク トモ ー ド で 使用 する 
t, 1 つ コ マン ド を 実行 後に コマ ンド が 続 
いて も , 強制 的 に 終了 し ます 。 くわしく は 
使っ て みれ ば , お 分 り い た だ ける と 思い ま 
T: 
CMDC コマ ンド を 使っ て , も うぅ 一 方 の 
ディ スク に ユビ ピー する 場合 a も し その ディ 
スク に ライ ト プ ロ テク ト の か か っ て いな い 


同じ 名 の ファ イル が あれ ば , その ファ イル 
に 書き 込ま れ ま す 。 し た が っ て , 同じ 名 で 
消し た 《 く な い フ ァイル が ある 場合 は ご 注意 
(IS SU 

③CMD C コマ ンド は ディ スク 内 で ファ イ 
ル の や り と り を 行っ て いて , 本 体 メ モリ 上 
に は 読み 込ん で いま せん 。 し た が っ て , 
SS88 で は 扱え を な い フ ァイル , た と えば 
NEC シス テバ イラ バン 8 な 5 セー ニン 2C さる 
32K バ イト に も お よぶ BASIC プロ グラ ム 
つのだ や の も ビー で きる よう に だ な っ て 
いま す 。 


お わり に 
E u. 


今回 は ご 要望 や 苦情 が 多数 よせ られ だ フ 
ォ ー マ ッ ト を 中 心 に ゲロ グラ ミン グ し まし 
だ た な が 9 い が の GNU5 た て 3 より 22 が 。 NECAR 
テム ディ スク に は , まだ xfiles.n88 や setinf. 
n88 と いっ だ も の も あり ます が , これ は 互 
換 性 の 利点 を 生か し て NEC シス テム ディ 
スク 上 で 使え ば 問題 は な いと 思わ れ ま す 。 


PC-8801 の 機能 を 


拡張 する 


1985 年 5 月 号 
1985 年 6 月 号 
1983 年 9 月 号 
1983 年 10 月 号 
1984 年 7 月 号 


1984 年 7 月 号 
1984 年 9 月 号 
1985 年 4 月 号 
1983 年 4 月 号 


1983 年 4 月 号 一 1985 年 5 月 号 


S-DOS80 Ver.2.0 < シス テム 編 > 
S-DOS80 Ver.2.0 < ユー ティ リティ 編 > 
Machine Language Maniter 

スー パー 漢字 プリ ンタ 

デモ ボー イ 

メモ リ レ ス キュ ー 

ファ イル デー タ の ロー ド , セー ブ を 高速 化す る 
ハイ スピ ー ド グラ フィ ッ ク ル ー チ ン Ver.1.1 
非 漢 字 プリ ンタ で 漢字 出力 
デー タコ ン バ ー タ 
NNia テ キス トコ ン バ ー タ 
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小林 5 一 
小林 秀一 
小林 秀一 
大 牟田 慎二 
鈴木 浩之 
メモ リ ジ ャ ッ ク 八 村 
中 平 健一 


PC-8001MK TL 機能 拡張 シリ ー ズ 


r. 2.0 


1985 年 5 月 掲載 


(シス テム 編 〉 


は じ め に 
к Sw 


今回 お 送り する の は , あの S-DOS80 の バ 
ー ジ ョ ン ア ッ プ 版 S-DOS80 Ver. 2.0 で す 。 
Ver. 1.0 に は 
・ デ ー タ 転送 速度 が 低い 
・ASCII 形式 の ファ イル が 使用 で き な い 
・ エ ラー 発生 時 に ON ERROR GOTO 文 

に よる エラ ー ト ラッ プ が で き な い 
な どの 欠点 が あり まし た 。 

Ver. 2.0 は 上 記 欠 点 も すべ て 克服 し , fii 
用 で きる 命令 も 追加 し まし た 。 い うま で も 
な く , Ver. 1.0 の 長所 は すべ て 受け 継い で 
いま す 。 

ここ で , S-DOS80 を 知ら な い 人 の た め に 
その 特徴 を 説明 し て お きだ た いと 思い ます 。 
S-DOS80 は PC-8001/MKII t PC-8801/ 
MKII の N-BASIC モ ー ド 上 , ある い は 
PC-8001MKII の Nso-BASIC モ ー ド 上 で 
動作 する 小型 DOS で す 。 

Sal00S80 は カー ジマ パー ス 。 と: 同じ 大 きき 
の ラリ デリ ア を 6 ちち , マシ ン 語 の ロー ド , 
セー ブ が 可能 で す 。 し か も , S-DOS80 の デ 
ィ ス ク フ ァ イル は N, Ns» Naa の すべ て の 
DISK BASIC と 万 換 性 が あり ます 。 

S-DOS80 は PC 本 体 の ワー クエ リア の 空 
SURE OI ミニ デイ スク エモ 
= > F (PC-80S 31 相 当 ) の 内 部 メモ リ に メ 
イン プロ グラ ム を 配置 する こと に よっ て 広 
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い フ リー エリ ア を 確保 し て いま す 。 
S-DOS80 Ver. 2.0 の 特徴 は 

. MOUNT, REMOVE 命令 を 実行 する 
必要 が な い ( 非 実 行文 に な っ て いる ) 

・ マ シン 語 が 扱え る 

* フ リー エリ ア が 広い (テー プペ ー ス と 同 
U8021H —E9FFH) 

・ デ ー タ 転送 速度 が か な り 高い (Ver. 1.0 
の 約 140% 増 ) 

・ASCII 形式 に よる ロー ド , セー ブ 可 能 

・ 起 動 時 に ID モク タ の テキ スト を 自動 的 
に 実行 する 

・ す べべ て の ディ イス クエ ラー を サポ ー ト し て 
いる (ERR:50 一 74) 

で す 。 なお, ディ スク の 直接 アク モス が で 

き な い の は , ディ スク の 破壊 を 防ぐ ため で す 。 


S-DOS80 Ver. 2.0 
Фат 


S-DOS80 Ver. 2.0 の 命令 を 順に 説明 し 
て いき ます 。 
FILES/LFILES 
ディ スク に 入っ て いる ファ イル の 名 前 , 
種類 と 大 きる を 表示 する 。 
書式 ) 
FILES く ドラ イブ 番号 > 〔, 44 4 7?) 
(LFILES も 同じ) 
< ドラ イブ 番号 > で 指定 し た ディ スク 上 の 
全 フ ァイル を 表示 し ます 。 フ ァイル 名 の 区 
切り 記号 は ファ イル の 種類 を 表し , それ ぞ 


れ 以 下 の よ うに な っ て いま す 。 

・( ピ リオ ド ) …… BASIC の バイ ナリ 
形式 の テキ スト ファ イル 

(АЕ 2 )---... УУ 
ファ イル 
ここ (スペース) …… BASIC の ASCII 
式 あ る い は デー タフ ァイル 
また , < タイ プ > は ファ イル 名 の 表示 形式 


の 指定 で , 1 の 場合 は 横 に , 2 の 場合 は 縦 
に ファ イル 名 が 表示 る され ま す 。 
LOAD 


ディ スク 中 の プロ グラ ム を ロー ド す る 。 

書式 ) 
LOAD< フ ァイル 名 > 

< ファ イル 名 > で 指定 し た プロ グラ ム フ ァ 
イル を ディ スク か ら ロ ー ド し ます 。 バ イナ 
リ 形式 だ け で な く ASCII 形式 も ロー ド で 
きま す 。 

Nes BASIC T ASCII セ ー ブ し た プロ 
グラ ム を ロー ド し た 場合 に エラ ー が 発生 す 
る こと が あり ます 。 こ れ は , BASIC テキ ス 
ト 中 に CTLR-J (LF) を 含ん で いる た だ ため と 
考え られ ます 。N-BASIC と N。。- BASIC 
と で は CTLR-J の 機能 が 異な り , こ の テキ 
米屋 圧着 の まま で は ロー ド で きま せん 。 
Nss- BASIC EO CTLR-J を 削除 し て く 
だ きい 。 

LOADM 

ディ スク 中 の マシ ン 語 ファ イル を メモ リ 
Е 3:5. 
書式 ) 

LOADM< フ ァイル 名 > 
LOADM< フ ァイル 名 >, < アド レス > 
LOADM< フ ァイル 名 >, R 


< ファ イル 名 > で 指定 し た マシ ン 語 ブロ グ 
ラム を メモ リト 上 に ロー ド し ます 。< ア ドレ 
ス > を 指定 し た 場合 は ロー ド の 際 の 先頭 番 
地 を その 指定 番地 に 変更 し ます 。 ま た , R 
ォ オプ ショ ン を 指定 し た 場合 は ロー ド 終 了 後 , 
先頭 番地 か ら プ ログ ラム の 実行 を 開始 し ま 
+, な お , КЕТ 命令 に よっ て 復帰 する こと 
が で きま は す 。 

MERGE 

プロ グラ ム を 混合 する 。 

SEX) 
MERGE< フ ァイル 名 > 

メモ リ 上 の プロ グラ ム と く < ファ イル 名 > で 
指定 し た プロ グラ ム を 1 つ に し て メモ リ 上 
беч [дл FINE ux ELO 
名 > で 指定 し た プロ グラ ム は ASCI 形式 で 
セー ブ き る れ て いな けれ ば な り ま せん 。 
RUN 

プロ グラ ム を ロー ド 後 。 実行 する 。 
書式 ) 

RUN< フ ァイル 名 > 
この 命令 は 
LOAD < ファ イル 名 > Q 
RUN Q 
と 等 し い 命 令 で す 。 
SAVE 

メモ リ 上 の プロ グラ ム を ファ イル に セー 
25:25 
書式 ) 

SAVE< く ファ イル 名 > 
SAVE< フ ァイル 名 >。 A 

< ファ イル 名 > で 指定 し た ファ イル に メモ 
リ 上 の プロ グラ ム を 書き 込み ます 。 A オプ 
ショ ン を 指定 し た 場合 は ASCII 形式 に よ 
АОИ 
SAVEM 

マシ ン 語 プロ グラ ム を セー ブ す る 。 
書式 ) 

SAVEM< フ ァイル 名 >, 
く 開 始 番地 >, < 長 る > 
メモ リ 上 の マシ ン 語 プロ グラ ム を < ファ 
イル 名 > で 指定 し た ファ イル に セー ブ し ま 
す 。 メ モリ 上 の < 開始 番地 > か らく 長 る > で 指 
定 し た バイ ト 数 ど だけ セー ブ し ます 。 
KILL 

ディ スク か ら フ ァイル を 削除 する 。 

書式 ) 
KILL く < ファ イル 名 > 
< ファ イル 名 > で 指定 し た ファ イル を ディ 


スク か ら 削 除 し ます 。 

NAME 

ディ スク ファ イル の 名 前 を 変更 する 。 
書式 ) 

NAME < 旧 フ ァイル 名 > 

AS < 新 フ ァイル 名 > 

< 旧 ファ イル 名 > で 表 き れ て いる ディ スク 
上 の ファ イル を < 新 フ ァイル 名 > に 変更 し 


ます 。 ド ライ ブ の 指定 は < ファ イル 名 > に 
ドラ イブ 番号 を 含め る こと に よっ て 行い ま 
+ 
SET 

ファ イル 属性 の モッ ト , リモ セット 。 
書式 ) 


SET < ファ イル 名 >, < 属性 文字 > 
SET < ドラ イブ 番号 >, < 属性 文字 > 
指定 し た ファ イル , ドラ イブ に < 属性 文 
FY に よっ て 指定 し た 属性 を つけ ます 。 属 
性 文字 は P で 指定 し , ライ ト プ ロ テク ト 属 
性 (書き 込み 禁止 ) を つけ ます 。 P, R 以 上 
の 文字 を 指定 し た 場合 に は 現在 設定 され て 
いる 属性 が すべ て 解除 きれ ます 。 
① く < ファ イル 名 > が 指定 され た 場合 に は , 指 
定 さ れ だ ファ イル に の み 属 性 が つけ られ 
973 | 
② く < ドラ イブ 番号 > が 指定 され た 場合 に は , 
指定 され た ドラ イブ の 中 に 入っ て いる デ 
ィ ス ク に 対し て 属性 が つけ られ ます 。 


Ver. 2.0 
の 使用 領域 


S-DOS80 Ver. 2.0 は PC 本 体内 ワー クエ 
リア の 空き エリ ア の うち , 0F216H—0F2F 
FH を 常駐 部 , 0OFF3DH —0FFFFH を 非常 
駐 部 も する サブ プ プ ログ ラム と ミニ ディ スク 
ユニ ッ ト 内 の 6000Hー 7 EFFH @ 2 4 X 
プロ グラ ム か ら 6 成り 立っ て いま す 。 

この 領域 の データ を 破壊 し た 場合 は 動作 
の 保証 は で きま せん 。 気 を つけ て 《 だ さい 。 
た だ , 0FF3DH —0FFFFH の 非常 駐 部 だ け 
は DOS 命令 を 使用 し な い 場 合 に の み 破 壊 
LT も か まい 84。 

た だ し , DOS 命令 を 使用 し た 場合 に は こ 
の 領域 の ゲー タ は 書き 替え られ ます の で 注 
SUCCEEDS 


シス テム ディ スク 
の 作成 
E V 


S-DOS80 Ver.2.0 の シス テム ディ スク を 
作成 する に は , まず N-DISK BASIC, Nso- 
DISK BASIC,。 あ るい は S-DOS80Ver.1.0 
を 起動 後 , 
CLEAR 300, &H8FFF © 
と 入力 し て 9000H 以 降 を マシ ン 語 領域 と し 
て 確保 し ます 。 
そして, リズ ト 1 の ダン プリ スト を 入力 
(84 年 8 月 号 の マシ ン 語 モニ タ が 便利 ) し 
ます 。 
МАТ О 
で モニ タ に 入り , 
S] E9000, SY © 
と すれ ば 横 16 バ イト , 横 サ ム を 入力 後 , サ 
ム が 異な っ て いる 場合 に は 音 を 出し て 知ら 
せま す 。 一 致す る 場合 に は 次 の 入力 へ と 進 
み ま す 。 
入力 が 終わ っ た ら セ ー ブ し , 
*G9000 Q 
と し ます 。 あ と は 画面 に 表示 され る 手順 に 
従 を ば OK で す が , 一 応 説 明 し て お きま 
する 
ドラ イブ 1 に 新しい ディ スク を 入れ て か 
ら 
sure (y/n) ? 
に 対し て 
Y Q 
と 入力 し ます 。 物理 フ ォ ー マ ッ ト を 行う か 
きい て きま すか ら , 物理 フォ ー マ ッ ト を 行 
う 場 合 は Y, 必要 な い 場 合 は N と 入力 し て 
RETURN キー を 押し ます 。 あ と は , 少し の 
間 待 っ て いれ ば 終了 し ます 。 
完成 し た ら , ドラ イブ 1 に 入れ て リセ ッ 
ト ボ タン を 押し て くだ きい 。S-DOS80Ver 
2.0 が 起動 する と 思い ます 。 
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PC-80S31, PC-8801MKTI/SR 上 で 動作 も BOL 命令 , SING 命令 に つい て 全 ア モン ブ 
確認 ずみ で す 。 こ の ほか の 組み 合わ せ で は ルリ スト を 収録 し まし た 。 興 味 の あ る 人 は 
動作 し な いこ と も 考え られ ます の で , を の 読ん で みて くだ さい 。 
お わ り に 際 は 綱 集 部 まで 文 半 で お 知ら せく だ きい 。 次 回 < 活用 編 > で は S-DOS80 Ver. 2.0 対 
応 の ユー ティ リティ を 発表 する 予定 で す 。 


PF. な お , Disk Oh! PC が 発売 され まし た が , お 楽し み に 。 
この 中 に は 前 述 の マシ ン 語 モニ タ は も ちろ 


S-DOS80 Ver. 2.0 は 'PC-8001 / MKII / ん 。 誌 上 で は ダン プリ スト の み で 発表 し た 
SR と PC-80S31 (8031-2 W), PC-8801 と プロ グラ ム の うち TURTLE #1, SYM 


xx 


ADRS +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +С +0 +E +F :SUM : SUM 
9700 : AF 32 31 79 CD 10 00 47 CD 10 00 4F 78 FE FF CA : 11 + FD 
9710 : 50 65 21 03 6А SE 23 56 23 7А B3 28 1B B? EB ED : 3C V : C1 
9720 : 42 EB 20 @E SE 23 56 23 ЕВ CD C? 65 EB SE 23 56: FB a : B5 
9730 : DS C9 23 23 23 23 18 DD СЗ C1 99 CD D? 65 CD 7A : FS : -6A 
9740 : 67 CD BF 67? CD D5 65 CD 10 00 3D 28 04 FE 01 20 : C6 : F4 
9750 : 03 32 45 70 CD 10 00 32 48 70 21 00 7C DD 21 00 : 4C 5С 
9760 : 50 ЗА 48 70 ДЕ CD AB 60 38 16 ЗА 45 70 B? C4 90 : B1 : 4А 
9770 61 20 EE 79 FE 12 DC 90 61 38 E6 CD 86 61 18 ES : 94 ; 13 
9780 : ЗА 45 70 B? 20 07 ЗА 48 70 B9 C4 90 61 CD 89 61: E4 : 56 
9790 : ЗА 2A 70 CD 51 61 21 F4 69 7E 23 F5 CD BE 65 F1 : 48 : 6C 
27A9 : B? 20 Fé CD 05 65 СЗ C1 00 DD 19 11 10 00 DD 7E : CA : BA 
d 9780 : 99 ЗС 37 C8 3D 28 F2 DD E5 CD C2 60 DD E1 DD 19 : F? : E4 
97C0 : B? C9 ЗА 45 70 B? 28 31 DD ТЕ 09 Eé 81 ЗЕ 41 28 F1 1 CE 
27D9 : 02 ЗЕ 20 CD BE 65 CD 83 61 DD ТЕ 09 Eé 01 ЗЕ 4D : D? : 03 
97E@ : 20 02 3E 20 CD BE 65 3E 22 CD BE 65 ЗА 29 7@ C6 : 59 : 0E 
y 97F0 : 31 CD BE 65 ЗЕ ЗА CD BE 65 96 06 DD 7E 99 DD 23: Fe : A1 
SUM : 66 45 32 14 5B 81 B4 16 12 ES 05 ВА 0? 3F 4C 63 92 : 6A 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
9с00 : 47 70 В? 28 OE CD 06 68 21 00 7B CD 2F 65 CD 1A : СЗ 
9C10 : 68 18 16 CD BF 6? 11 32 70 CD 4A 66 DA ?F 65 11 : 88 
9C20 + 09 00 19 CD 2F 65 CD F2 67? CD D5 65 СЗ C1 00 3A : 6E 
9C30 : 46 70 OE 10 FE 50 28 OB OE 40 FE 52 28 05 7E E6 : 84 
9C40 : AF 77 C9 7E B1 7? C9 CD 09 65 CD 05 65 СЗ C1 00 : F4 
9C50 : C5 21 15 70 CD C? 65 C1 21 E2 69 79 FE 4B 30 OF : 92 
2C69 : 21 2E 68 06 32 28 08 47 7E 23 B? 20 FB 10 F9 7E : 30 
9C79 + 23 F5 CD BE 65 F1 B7 20 F6 СЗ C1 00 ЗЕ 19 01 3E : EO 
9C80 : 35 01 ЗЕ 39 01 ЗЕ ЗА 01 ЗЕ ЗС 01 ЗЕ ЗЕ 01 ЗЕ 40 : 9D 
9C90 : 01 ЗЕ 41 01 ЗЕ 44 01 ЗЕ 46 01 ЗЕ 48 01 ЗЕ ДА F5 : 80 
9CA0 : 3A'31 70 B? 28 11 3D 28 09 CD 10 00 FE 1A 20 F9 : 47 
2CB9 : 18 05 ЗЕ 1А CD BE 65 F1 CD ВЕ 65 СЗ C1 00 F5 ЗЕ : FD 
2CC9 : ВА ОЗ FF F1-C3 18 00 7E 23 47 CD BE 65 7E 23 CD : EE 
2CD9 : BE 65 10 F9 C9 AF СЗ BE 65 ЗА 28 70 ДЕ CD 10 00 : 88 
2CE9 : 3D B9 02 91 65 32 29 70 C9 CD 10 00 47 21 00 7A : 11 
9CFO : 77 23 CD 10 00 77 10 F9 21 00 7A 46 23 78 3D 28 : 08 


9010 : 31 B9 02 91 65 23 23 05 05 32 29 70 78 B? CA 8B : 51 
9D20 : 65 11 32 70 OE 99 ТЕ 23 FE 2E 20 05 CD ЗА 66 18 : А6 
9030 : 04 12 13 0D C8 10 EF 79 18 05 79 06 04 08 ЗС 08 : 02 
9D40 : ЗЕ 20 12 13 08 0D 3D 20 Fé C9 21 99 50 ?E 3C 3? : 16 
9050 : C8 D5 3D 28 OF 06 09 ES 1А BE 13 23 20 05 10 F8 : 40 
2D69 : E1 D1 C9 E1 11 10 00 19 01 18 E2 C5 CD 7A 67 ЗА : OE 
9070 : 2B 70 E6 10 C2 9A 65 CD BF 67 11 32 70 CD ДА 66 : 75 
9D80 : 30 1E 05 21 00 50 11 10 00 7E В? 28 09 19 ЗС 20 : 90 
909@ : F8 36 FF B? ED 52 01 09 00 D1 ЕВ ED BO EB 18 10 : 99 
9DAO : 11 09 00 19 ТЕ Eé 10 C2 9A 65 23 7E 2B CD 89 64 : EE 
2DB9 : C1 70 23 EB 21 өө 7С CD C6 66 DA 88 65 70 12 32 : 50 
9Dce 2C 70 CD F2 é? C9 7D FE A0 ЗЕ D8 7E 3C C8 23 18 : 7А 
9000 : F5 06 08 21 00 7С ЗА 2C 70 FE AO 38 04 AF 37? 18 : ДЕ 
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ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
A200 : 23 1B 7A B3 28 3E 3E 9D ОЗ FF DB FE CB 47 28 06: 97 
A210 : CB 4F 28 Fé 18 OF DB FC 77 23 1B 7А ВЗ 28 25 ЗЕ : АЗ 
A220 : ӨС D3 FF 18 CC ЗЕ QC D3 FF ЗЕ ВА D3 FF DB FE СВ: 9C 
A230 : AF 20 FA CD F? F2 CD 76 3D 23 22 АВ EF 21 FA 41 : CF 
A240 : ES СЗ F4 3D ЗЕ QC D3 FF ЗЕ QA D3 FF СЗ B4 ЗВ AQ : 61 
A250 : CD E1 3D 21 95 EC 23 CD E9 01 FE 1А CA D3 FF FE : 19 
A260 : OA 28 F4 77 06 9D 20 EE 77 21 95 EC 07 ЗС 30 28 : 1F 
A270 : E2 F5 CD BS 44 CD 82 40 7E FE 20 CC C? 26 D5 CD : 23 
A280 : 65 ЗЕ 01 F1 38 05 1E ЗЕ СЗ F9 ЗВ DS CS D? B? FS : 13 
A290 : ED 53 93 EF CD C1 3D 38 86 F1 F5 CA ŞE 45 B? C5 : DA 
A2A9 : F5 ES CD 24 5С E1 F1 C1 CS DC FE 58 01 F1 05 28 : 79 
A2B0 : 2B 01 2А АВ EF ЕЗ C1 E5 09 E5 CD 8D ЗВ E1 22 AQ : 64 
A2C0 : EF EB 74 C1 D1 ES 23 23 73 23 72 23 11 57 EB 0B : 94 
A2D9 : 9B 0B OB 1A 77 23 13 9B 79 BO 20 F? D1 CD 7A 3D : 88 
A2E9 : CD F4 3D C3 40 FF CD F7 F2 21 FA 41 ES C3 F4 3D : EB 
A2F9 : 9C CD 83 01 F5 FE 4D CC 10 99 СЗ 3C F2 89 CD 8F : 4F 


: 
: 
: 
: 
: 
: 


А42@ F2 C3 82 3C 82 CD 8F 4A ES CD E8 F2 CD E? 01 SF : 3D 
A439 CD Е9 01 57 E1 2B D? 28 10 CD 9B 49 2С РЕ 52 28: 82 
A449 9B CD 8F 4A ES CD 7F 27 EB E1 18 E9 CD 9B 40 52 : De 
A450 : ES 01 B9 АС C5 D5 2B D? C2 DF ЗВ E5 EB CD F? F2 : E? 
A460 : ЗЕ OB D3 FF DB FE CB 4F 20 FA DB FE CB 47 20 06 : 39 
A470 : CB 4F 28 F6 18 1E DB FC 77 23 ЗЕ 0D ОЗ FF DB FE : 05 
A480 : CB 47 28 06 CB AF 28 Fé 18 ВА DB FC 77 23 ЗЕ OC : 55 
A490 : D3 FF 18 06 ЗЕ QC D3 FF ЗЕ ВА D3 FF DB FE CB 4F : E? 
A4A9 : 20 FA CD F? F2 E1 C9 A4 CD 8F 4A 2B D? C2 DF 3B : A2 
A4B9 : CD ЕВ F2 21 95 EC 23 CD E9 01 FE 1А CA DB FF FE : DD 
A4C9 : ВА 28 FA 77 06 QD 20 EE 77 21 95 EC D? ЗС 3D 28 : 1F 
A4D9 : E2 F5 CD B5 44 CD 82 40 7E FE 20 CC C? 26 DS CD : 23 
A4E0 : 65 ЗЕ D1 F1 38 05 1E ЗЕ СЗ F? ЗВ D5 C5 D? В? FS : 13 
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S-DO 


E т 


XC-9001/MKTI, PC-8801/MK TL wawawa 


r. 2.0 


1985 年 6 月 掲載 


PC- ВТМ TEP リト Я 


前 回 の S-DOS80 Ver. 2.0 シ ステ ム 編 は 
いか が で し た か 。 従来 の バー ジョ ン に 比べ 
て 相当 速く な っ て いる で し ょ う 。DISK 
BASIC な ど 遅 く て 使う 気 に な ら な く 〈 く なり 
ます 。 も っ と も , ファ イル アク セス を 行う 
場合 は 別 で す が 。 

今回 は S-DOS80Ver.2.0 の 2 回 目 と し て , 
2.0 専 用 の ディ スク ユー ティ リティ を 発表 
[сир 


ユー ティ リティ の 
機能 
uu 


シス テム が あれ ば 通常 の ディ スク 入出 力 
は で きま す が , 多少 複雑 な こと を し ょ うと 
する と シス テム だ け で は 少な か ら ず 不足 
を 感じ ます 。 そ れ を 補う た め の プ ログ ラム 
が ディ スク ユー ティ イリ テイ と いう わけ で す 。 

本 ユー ティ リティ に は 以下 の 機能 が あり 
EES 
@ ジ ロッ ピー ディ スク の コピ ー 

「DISK COPY」 

ПАРЕ くり コビー し ま 38 

@ シス テム ディ スク の 作成 
「CREATE SYSTEM DISK」 

S-DOS80 Ver. 2.0 の シス テム ディ スク 

を 作成 し ます 。 を その ほか の シス テム は サ 

T F Бк Ud A, 

@ デ ー タ ディ スク の 作成 
「CREATE DATA DISK」 

デー タデ ィ ス ク は シス テム ディ スク と 暴 
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RD ARIAS PARE Sa^ Се 
ませ ん 。 

@ フ ァイル 転送 「TRANSFER FILES, 
Z4 22 mpi 420503446 
の ファ イル が コピ ー さ る れ ま す が , 774 
ル 転 送 で は 必要 な ファ イル の み を コピ ー 
する -— E2093 7. 

e@ ID セク タ の 書き 替え 

「SET UP INFORMATION」 
ID セク タ を 書き 替え を る こと に よっ て 
Ver. 2.0 ス ター ト 時 に 任意 の アプ ログラム 
を 自動 的 に 実行 で どき ます 。 

@ ディ レク トリ の 整理 「FILE EDITOR」 
ディ レク トリ 中 の あき エリ ア の 整理 、 デ 
ィ レ クト リ の 並べ 替え を ,、 お よび ファ イル 
の 削除 を 行い ます 。 

@ ディ スク の 直接 書き 替え 

「DISK EDITOR」 
ディ スク の セク タ の 内 容 を スク リー ン エ 
ディ ッ ト を 利用 し て , 直接 変更 する こと 
TET 
次 に , А 
いき ます 。 


E に つい て て くわしく 説明 し て 


ユー ティ リティ の 
使い 方 


各 処 理 内 容 は メニ ュー 画面 の ファ ンク シ 
ョ ン キ ー に 設定 され て いま す ( 表 1 参照 )。 
も し , 各 ユ ー テ ィ リ ティ 実行 中 に 誤っ た 
操作 し て し まっ た ら , STOP キー を 押す 


| (ユー ティ リティ 編 〉 


と ふた だ たび メ ニュ ー 選 択 画面 に も ちどり ます 。 
た だ し , 一 部 ディ スク の 破壊 を 防ぐ た め に 
も どら な い ユ ー テ ィ イリ テイ も あり ます 。 


fs2 CREATE SYSTEM DISK 


tag CREATE DATA DISK 


f・4 TRANSFER FILES 


tes SET UP INFORMATION 


f・6 FILE EDITOR 


feil DISK COPY x 
| 
| 


[x DISK EDITOR 


f・I0 | END (#7) 


表 1 メニ ュー 選択 時 に お ける ファ ンク ショ ン 
キー 


COPY DISK 


ute cerne E HEIN SEU rg С АБС З 
Mount MASTER disk on drive ? 
CNG ene Te OZ sy ESTA 
(マス ター ディ スク ) を ドラ イプ に セッ ト , 

を その ドラ イブ の 番号 を 入力 し ます 。 
次 に , 
Mount NEW disk on drive ? 
に 新しい フロ ッ ピ ー デ ィ ス ク を ドラ イブ に 
セッ ト し , その ドラ イブ 番号 を 入力 し ます 。 
物理 フォ ー マ ッ ト を する か どう か と きい 
GIA EIS 
Do you need 
physical formation (y/n) ? 
物理 フォ ー マ ッ ト を する 場合 は 
Y の 
と 入力 し ます 。 あ と は 確認 を 行い , 
ピー ディ スク を コピ ー し ます 。 
1 ドラ イブ の 8801MKII/SR モデ ル 20 な 


フロ ッ 


ЕСЫ, その 場 に 応じ て MASTER 5 5v 
は NEW の どちら 5 か を セッ ト す る よう に 
指示 が あり ます か ら , 指定 され た ディ スク 
を ドラ イブ に セ モット し て RETURN キー 
を 押し て くだ さい 。 標準 装 備 の 8801 だ と , 
約 8 回 ディ スク の 入れ 替え を 行う こと に な 
り ま す 。 メ モリ ボー ド を 搭載 し て いる 場合 
に は , も っ と 少な 《 く な り ま す 。 

コピ ビー が 無事 に 終了 する と 

Completed. 
と 表示 る れ ま す 。 


CREATE SYSTEM DISK 


Mount NEW disk on drive ? 
に 対し ,。 新 し い フ ロッ ピー ディ スク を ドラ 
イプ に セッ ト し , その ドラ イブ 番号 を 入力 
Ud bo 

次 に , 物理 フォ ー マ ッ ト を する か どう か 

きい て きま す 。 物理 フ ォ ー マ ッ ト を する 場 
合 は 

Y @ 
と 入力 し ます 。 随時 , 確認 が 行わ れ ま すか 
6, これ に も 

Y Q 
と 答え て くだ きい 。 

次 に 

Mount SYSTEM disk on drive ? 
に 対し じ し 。 シ ステ ム デ イス クタ を ドラ イブ に も 
ッ ト し , その ドラ イブ 番号 を 入力 し ます 。 
1 ドラ イブ の 場合 は 「COPY DISK, £ IF] 
様 に 入れ 替え の 指示 が あり ます か ら , それ 
に 従っ て くだ さい 。 

Completed. 
と 表示 る れれ ば , 無事 に 終了 で す 。 


CREATE DATA DISK 


есу сул усуе ы зу е сс ur Od 
Mount NEW disk on drive ? 

に 対し 、 新 し い フ ロッ ピー ディ スク を ドラ 
イプ に セッ ト し , その ドラ イブ 番号 を 入力 
[Bit dr 

次 に , 物理 フォ ー マ ッ ト を する か どう か 
きい て きま す 。 物理 フ ォ ー マ ッ ト を する 場 
合 は 


X co 


と 入力 し ます 。 Bü 確認 が 行わ れ ま すか 
6, これ に も 

YO 
と 答え て くだ さい 。 

Completed. 
と 表示 る れれ ば 無事 終了 で す 。 
MNT 


TRANSFER FILES 


E T f OU те стт e 

Transfer From ? 

に 対し , 転送 元 の ディ スク (SOURCE) を 
ドラ イブ に セッ ト し , その ドラ イブ 番号 を 
入力 し ます 。 ЖЕ 

To? 

と 表示 る され ま すか ら , 転送 先 の ディ スク 
(DESTINATION) を ドラ イブ に セッ ト 
UL, その ドラ イブ 番号 を 入力 し ます 。 この 
と き , 転送 元 と 転送 先 の ドラ イブ 番号 が 同 
じ で も か まい ませ ん 。 

確認 を 求め て きま すか ら , 

УГ Ө) 

と 答え る と , 転送 元 の ディ スク の 全 フ ァ イ 
ル を 画面 に 表示 し ます 。 転送 元 ディ スク の 
全 フ ァイル 数 が 90 を 越え る 場合 は ファ イル 
の 選択 が びき ませ ん の で , ファ イル 転送 も 
行い ませ ん 。 注意 し て くだ さい 。 

画面 に 表示 る きれ て いる ファ イル 名 の 1 つ 
だ けが リバ ー ス に な っ て いま す が , これ が 
現在 選択 きれ て いる ファ イル で す 。 こ の リ 
バー ス 表 示さ きれ て いる ファ イル は , カー ツ ソ 
ル の 上 下 左 右 移動 に よっ て 変化 し ます 。 
ファ イル 名 が リバ ー ス 表示 る れ て いる と 
き に RETURN キー を 押す と , その ファ イ 
ル の 転送 が 行わ れ ま す 。 た だ し , 転送 先 デ 
ィ ス ク 自 体 に P 属 性 が 設定 され て いる , 5 
る い は 転送 先 デ ィ ス ク に すでに 転送 する フ 
ァイル と 同じ 名 前 の ファ イル が あり , その 
ファ イル に P 属 性 が 設定 され て いる と , 

File write protected 

と 表示 し て 転送 を 中 止 し ます 。 こ の 場合 
P 属 性 を 解除 すれ ば 転送 可能 に な り ま す 。 
また , 転送 先 デ ィ ス ク に 同じ 名 前 の ファ 
イル が あり P 属 性 が 設定 され て いな い 場 合 
に は , 

File already exists. 

Overwrite (y/n) ? 

と 表示 し て , 転送 先 デ ィ ス ク 上 の ファ イル 
を 消し て も よい か と どう か 確認 や 求め て きま 


+, 転送 先 デ ゲ ィ スク に ある ファ イル を 消し 
て も よい 場合 は Y, 転送 を 中 止 する 場合 は 
N を 入力 し て くだ さい 。 これ 以外 の キー は 
無視 る され ます 。 

i, 1 ドラ イブ の シス テム で は , その 
場 に 応じ て SOURCE あ る い は DESTI 
NATION の どちら か も セッ ト す る よう に 
指示 が あり ます か ら , 指定 され だ た ディ スク 
を ドラ イブ に セッ ト し て RETURN キー 
を 押し て くだ さい 。 

必要 な ファ イル の 転送 が すべ て 終了 し だ 
6, ESC キー あるいは [|f・10| を 押す と 

Completed. 
を 表示 し て , メニ ュー 選択 画面 に も どり ます 。 

ちな み に , この プロ グラ ム は 約 50K バ イ 
ト の ファ イル を 転送 する の に , 約 27 秒 し か 
か か ら な いと いう 優れ も の で す 。 
OM 


SET UP INFORMATION 


Mount SYSTEM disk on drive ? 
CX U. ID + Z Z. £ # š W. K ko S- 
DOS80 Ver. 2.0 の シス テム ディ スク を ド 
ライ ブ に セッ ト し , その ドラ イブ 番号 を 入 


Text for init ? 
の 表示 が あり , Ver. 2.0 の スタ ー ト 時 に 実 
行 し た い BASIC テキ スト (コマ ンド や ス 
SRA h) ie dons 
Тл, 
RUN "Sdskuty. v2” Q 
な だ の よこ しじま 
次 に , 確認 に 対し て 
Y の 
と 答え る と ID セク タ の 内 容 が 書き 替え ら 
れれ ます 。 
あと は , 
Completed. 
と 表示 る れれ ば , 無事 に 終了 で す 。 


FILE EDITOR 


II 
FILE EDITOR は KILL 命令 に よっ て 
生じ た ディ レク トリ 中 の あき エリ ア を 詰め , 
あと で セー ブ し た ファ イル が ディ レク ドリ 
の 途中 で は な く , 最後 に 表示 る れる よう に 
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し ます 。 ま た だ た , ディ レク トリ を 表示 する 順 ~ 
番 も 変更 する こと が で きま す 。 
FILE EDITOR を 選択 する t, 

Drive number ? 
CAU, ディ レク トリ の エディ ッ ト を 行う 
ディ スク を ドラ イブ に セッ ト し て その ドラ 
イプ 番号 を 入力 し ます 。 入力 後 , た だ ち に 
ディ レク トリ を 読み 込み 、 あき エリ ア を 詰 
DEDE, 画面 に ファ イル 名 を 表示 し ます 。 
ファ イル 名 は 6 X21 で 表示 きれ る の で , £ 
ファ イル 数 が 125 を 越え る 場合 に は , FILE 
EDITOR は 使用 で きま せん (126 で な く , 
125 で ある 理由 は 後述 し ます )。 

画面 に 表示 きれ て いる ファ イル 名 の 中 で 
1 つ だ け リ バー ス に な っ て いる も の が あり 5 
ます が , これ が 現在 エディ ッ ト の 対象 と な 
23G い る シテ イル で すま この リバ ニス 表示 
の ファ イル は , カー ソ ツル の 上 下 左 右 移動 に 
Jio Sb cic 

ファ イル 名 が リバ ー ス 表示 る れ て いる 状 
態 で ファ ンク ショ ン キ ー を 押す と , 各 OP 
TION へ 分 岐 し ます ( 表 2 参照 )。 以 下 に 
各 OPTION に つい て 説明 を し ます 。 
MOVE DIRECTORY 

ファ イル の ディ レク トリ 中 に お ける 位置 
の 変更 を 行い ます 。 

を 押す と , 画面 左下 に , 

To where ? (Hit return) 

と 表示 し て , どこ に 移動 する か を きい て き 
Ed, を そこで, カー ツル を 移動 し て 新しい 
ファ イル の 位置 を 選択 し ます 。 位置 を 選択 
し た ら 6, その 位置 で RETURN キー を 押し 
て くだ さい 。 を その 位置 に ある ファ イル 名 の 
前 に , 選択 る され て いる ファ イル 名 が 挿入 る 
E qa 

も し いち ば ん 最後 に 移動 し た い 場 合 に は , 
ファ イル 名 の 表示 の な い 位 置 に カー ソル を 
移動 し て RETURN キー を 押し て くだ き 
い (この 位置 が 必要 な の で 125 な の で す )。 

この ファ イル 位置 の 移動 機能 を 使用 すれ 
ば , ファ イル 名 の 表示 の 順番 が 任意 と な り , 
見 や すく な る こと うけ あい で す 。 
FILE INFORMATION 

選択 きれ て いる ファ イル の 種類 , お よび 
を の サイ ズ を 表示 し ます 。 マ シン 語 フ ァ イ 
ル の 場合 に は , スタ ー ト アド レス と エン ド 
アド レス を 16 進 数 で 表示 し ます 。 
NAME FILE 

ファ イル 名 の 変更 を や 行い ます 。BASIC の 
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まず 


NAME 文 と 同じ 働き を し ます 。 


を 押す と , 画面 左下 に , 

NAME ^<I 旧 ファ イル 名 >” "AS' と 
表示 され, < 新 フ ァイル 名 > の 入力 待ち に な 
b kg, SE SC STOP 005, 
RETURN キー の み を 入力 する t, 変更 中 
止 に な り ま す 。 フ ァイル 名 の 変更 を 行う 場 
合 に は < 新 フ ァイル 名 > (ドラ イブ 番号 は 必 
要 な し ) を 入力 後 , RETURN キー を 押し て 
《 く だ さい 。 だ た だ ち に ファ イル 名 の 変更 が 終 
"QU KE 
PROTECT ON 

選択 きれ て いる ファ イル に 対し て P 属 人 性 
を 設定 し ます 。BASIC の 

SET < く ジ アイ ルン 者 >) *p* 

と 同じ で す 。 
PROTECT OFF 

選択 きれ て いる ファ イル の P 属 性 を 解除 
し ます 。BASIC の 

SETZE ЭЛ c 
と 同じ で す 。 

KILL FILE 

選択 きれ て いる ファ イル の 削除 を 行い ま 
Fo 
|f・6| を 押す と , 

KILL < ファ イル 名 > 

Are you sure (y/n) ? 

と 表示 し て , 確認 を 求め て きま す 。 

本 当 に 削除 し て も いい 場合 に は Y を , WI 
除 し な い 場 合 に は N を 入力 し ます 。 こ れ 以 
外 の キー は 無視 され ます の で 注意 し て くだ 
きい 。 

な お , 選択 し た ファ イル に P 属 性 が 設定 
され て いる 場合 に は , 

Protected file < ファ イル 名 > 
と 表示 し て , 削除 は 実行 で きま せん 。 

[t -1], ESC キー 終了 

FILE EDITOR の 実行 を 終了 し ます 。 こ 
の キー が 押 き れる まで は ディ スク の 内 容 が 
変化 し な い の で , 操作 を 誤っ た 場合 や 中 止 
し た い 場 合 は STOP キー を 押し ます 。 こ う 
すれ ば , ディ スク 内 の ディ レク トリ は 元 の 
まま で , メニ ュー 選択 画面 に も どる こと が 
= io. 
renun up ыу сута сез ксн йн ID Р. 0] 


DISK EDITOR 


сыл кеги кыч сес а Ад ҮА. суш 
DISK EDITOR は 文字 どおり , ディ スク 


の 内 容 を 直接 変更 する た め の ユ ー テ ィ リ テ 
イィ で す 。 万 一 ディ スク の FAT な ど を 破壊 
し た 場合 に も , これ を 利用 すれ ば 容易 に 復 
旧作 業 を 行う こと が で きま す 。 

DISK EDITOR を 選択 する と, 

Drive number ? 

と きい て きま す 。 エ デイ ッ ト し だ た い デ ィ ス 
ク を ドラ イブ に セッ ト し , その ドラ イブ 番 
号 を 入力 し ます 。 

次 の 

Track number ? 
に 対し , エディ ッ ト を 開始 する トラ ッ ク 番 
(0239) К ООУ ЕУ T; КОНЕ 74 
スク か ら 1 ト ラッ ク 分 (8 K バ イト ) OF 
ー タ を バッ ファ に 読み 込ん だ あと , エディ 
ッ ト モ ー ド に 移り ます 。 

エディ ッ ト モ ー ド に お ける キー 操作 を 表 
3 に , ファ ンク ショ ン キ ー の 機能 を 表 4 に , 
まだ テン キー の 状態 を 図 1 に 示し ます 。 な 
i, この エディ イタ は トラ ッ ク 単 位 (8 K? 
イト ) の 編集 を 行う た だめ, |f・1| ある い は 
|f・2 | が 入力 され な い 限 り , エディ イット 中 
の トラ ッ ク 番 号 は 変化 し ませ ん 。 カ ー ソ ツル 
移動 な ど に よっ て 最終 セク タ を 越え た 場合 
に は , 最初 の セク タ へ も どり ます 。 

以下 に 。 エディ イッ トモ ー ド に お ける 各 フ 
ァ ン クシ ョ ン キ ー の 機能 を 説明 し ます 。 
PRE. TRACK 

トラ ッ ク 番 号 を 1 つ 減 らし ます 。 現 在 の 
トラ ッ ク 番 号 が 0 の 場合 は , 新しい トラ ッ 
ク 番 号 は 39 と な り ま す 。 

DISK WRITE スイ ッ チ が オン の 場合 に 
は , 現在 の トラ ッ ク の 内 容 を 更新 し て か ら 
前 の トラ ッ ク の エディ ッ ト に 移り ます 。 
NEXT TRACK 

トラ ッ ク 番 号 を 1 つ 増 や し ます 。 現在 の 
トラ ッ ク 番 号 が 39 の 場合 に は , 新しい トラ 
ッ ク 番 号 は 0 と な り ま す 。 

DISK WRITE スイッチ が オン の 場合 に 
は , 現在 の トラ ッ ク 内 容 を 更新 し て か ら 6 次 
の トラ ッ ク の エディ ッ ト に 移り ます 。 
NEXT CLUSTER 

トラ ッ ク 内 に お ける 次 の クラ スタ の 先頭 
に カー ツル 位置 を 移動 し ます 。 ト ラッ ク の 
範囲 を 越え る 場合 に は , トラ ッ ク 内 に ぉ おけ 
る 最初 の クラ スタ の 先頭 に カー ツル 位置 が 
移動 し ます 。 

ORIGINAL DATA 
現在 エディ ッ ト 中 の モク タ の デー タ を 元 


まず 


の デー タ に も ど し ま す 。 元 の デー タ に も ど 
る の は 表示 中 の セク タ の み で , ほか の セク 
タ に は 影響 を 与え を ませ ん 。 キー 入力 を 誤っ 
だ とき な ど に この 機能 を 利用 すれ ば , デー 
タ を 元 に も どす こと が で きま す 。 


[f - 5] WRITE ON/OFF 

DISK WRITE スイ ッ チ の 反転 を 行い ま 
3. 現在 の スイ ッ チ の 状態 は 画面 右 下 に 表 
示さ れ て いま す (|F・5] の すぐ 上 )。 
DISK WRITE オフ の 場合 , ディ スク に 
対す る 書き 込み は いっ きい 行わ れ ま せん の 
C, ディ スク の 内 容 が 破壊 され る こと は あ 
り ま せん 。 

DISK WRITE オン の 場合 に も 、 ト ラッ 
ク 内 の デー タ の 変更 が な けれ ば , ディ スク 
に 対す る 書き 込み は 行わ れ ま せん 。 デ ー タ 


の 変更 が あっ た 場合 に は 。 トラ ッ ク 単 位 で 
更新 され ます 。 
f ・6| CHANGE TRACK 


1 - 3 程度 の トラ ッ ク 番 号 の 変更 な ら , 
PRE. TRACK か NEXT TRACK で OK 
で す が , それ 以上 と な る と 少々 時 間 が か か 
りす ぎ ま す 。 か と いっ て , ドラ イブ 番号 の 
入力 か ら や り 直 す の も 手間 が か か り ま す 。 


を そこで, トラ ッ ク 番 号 の 変更 が 自由 に で 
きれ ば 便利 と 考え て , この 機能 を つけ まし 
Йе 


Track number ? 
БМ, トラ ッ ク 番 号 を 入力 し ます 。 入力 
後 , その トラ ッ ク の エディ ッ ト へ と 移り ま 
す 。 ト ラッ ク 番 号 の 変更 し な い 場 合 に は 
RETURN キー の み を 入力 し て 《 だ さい 。 

な お , DISK WRITE スイ ッ チ が オン の 
場合 , を 押す と ディ スク 内 の デー タ 
の 更新 を 行い ます の で 注意 し て くだ さい 。 
If・7| FAT COPY 

S-DOS80 Ver.2.0 で は FAT が DISK 
BASICatk [n] UE 322272 р, 2 > 7 
18, セク タ 14 一 16 に 存在 し て いま す 。 

この 3 つの セク タ に は すべ て 同じ デー タ 
が 書か れ て いな けれ ば な り ま せん 。 し た が 
っ て , FAT の 変更 を する 場合 に は , 3 セク 
タ と も 書き 替え を な けれ ば な ら な い の で 面倒 
x S 

そこで, セク タ 14 の 内 容 を も セ クタ 15 と セ 
クタ 16 に コピー する 機能 を つけ まし た 。 こ 
の 機能 は トラ ッ ク 18 を エディ ッ ト 中 の み 有 
AC, その ほか の トラ ッ ク を エディ ッ ト し 


PROTECT ON 


ファ イル に P 属 性 を 設定 


PROTECT OFF 


ファ イル の P 属 性 を 解除 


ファ イル の 削除 


0 E E D 


図 1 テン キー 配列 


> | カー ソル 位置 を | つ 右 に 移動 する EA 


PRE. TRACK 


正常 終了 (ディ レク トリ の 更新 を 行う ) 


表 2 FILE EDITOR の ファ ンク ショ ン キ ー 


前 の トラ ッ ク に 移動 


— | カー ソル 位置 を 1 つ 左 に 移動 する 


1 カー ソル 位置 を | 行 上 に 移動 する 


NEXT TRACK 


NEXT CLUS. 


次 の トラ ッ ク に 移動 


次 の クラ スタ に 移動 
(トラ ッ ク 内 ) 


+ カー ソル 位置 を | 行 下 に 移動 する 


スペ ー ス | カー ソル 位置 を | バイ ト 分 進め る 


カー ソル 位置 を | バイ ト 分 も どす 


カー ソル 位置 を 画面 左上 に 移動 する {^5 
944 


ORIGINAL DATA 


WR. ON/OFF 


CHANGE TRACK 


元 の デー タ に も どす 
(表示 セク タ の み ) 


ディ スク ライ トス イッ チ の 
オン / オ フ 


トラ ッ ク 番 号 の 変更 


カー ソル 位置 を 画面 左下 に 移動 する fe T 


エディ ッ ト モ ー ド を 終了 する 


STOP | エディ ッ ト モ ー ド を 中 止 す る 


FAT COPY FAT の コピ ー を 行う 
f・I0 終了 
ESC END (ライ トス イッ チ が ON の 場合 は 


ディ スク へ の 書き 込み を 行う ) 


= 


X3 DISK EDITOR の キー 操作 


て いる 場合 に は 動作 し ませ ん 。 

を 押す と , 

Fat copy. Are you sure (y/n)? 

と 表示 し て , 実行 確認 を し ます 。 コ ピー を 
実行 する 場合 は Y, 中 止 する 場合 は N を 入 
Jy tc CN SUO, 
[f ‘10|, ESC キー 終了 

DISK EDITOR の 実行 を 終了 し ます 。 
DISK WRITE スイ ッ チ が オン の 場合 に は , 
ディ スク の 内 容 を 更新 し て か ら , メニ ュー 
選択 画面 に も どり ます 。 

な お , エディ ッ ト 中 に STOP キー を 押す 
Ё 強制 中 止 し て メニ ュー に も どる こと が 
xxi 


プロ グラ ム の 
入力 と 実行 


プロ グラ ム の 入力 は , S-DOS80 Ver. 2.0 
を 起動 後 , 必ず 
CLEAR 100, &H83FF Q 
を 実行 し て か ら 6 行 っ て くだ さい 。 せっかく 
入力 し た プロ グラ ム が 破壊 きれ る こと が あ 
り ま すか ら 忘 れず に 。 


384 DISK EDITOR の ファ ンク ショ ン キ ー 


CLEAR 文 を 実行 し た ら , リス ト 1 の 
BASIC プロ グラ ム と , リ スト 2 の ダン プリ 
スト を 正確 に 入力 し て くだ さい 。 前 回 も 説 
明 し まし た が , 入力 に は 84 年 8 月 号 の マシ 
ン 語 モ ニタ (PC-8001MKII 用 , PC-8001/ 
8801 で は , バン ク 0 相当 の 増設 メモ リ PC- 
8801-02 な ど が 必要 。Disk Oh ! PC に て も 
発表 ) を 使用 すれ ば , か な り 楽 に な り ま す 。 

その 際 は , 

MAT 〇 
5] E8400 О 
LUCEXZZVANRAAHUZT, 

入力 が 終わ っ た ら , リス ト 1 は , 

SAVE "dskuty. v2" © 
リス ト 2 で は , 
SAVEM dskuty. v2m”, 

&H8400, &H2100 О 
と し て 必ず ディ スク に セー ブ し て (だ きい 。 
実行 する と 。 チ ェ ッ クサ ム が 変化 し ます 。 

KU, ディ スク ユー ティ リティ の 起動 方 
法 で す が , 

RUN dskuty. v2" 
で ドラ イブ 1 より 0 dskuty. Vn を ロー ド 

ESA Л с 

使い 方 は 先ほど 説明 し た の で 分 か る と 思 
いぶ まお 3 

ある い は , Ver. 2.0 の シス テム ディ スク 


137 


に dskuty. v2 と dskuty. v2m の 両方 を も 

ー プ し まず すず 。 ёш Б*%5]Ф$ЕТ UP 

INFORMATION を 利用 し て ID モク タ に 
RUN “dskuty. v2” 

書き ん で お ね お (Es モッ ト す る だ け で 

ユー ティ リティ の 起動 する シス テム ディ ス 

ク が 作れ ます 。 

な お , 本 ディ イス ク ユ ー テ ィ リ ティ は PC 
の メモ リ の 大 部 分 を 占有 し て 動作 し ます 。 
プロ グラ ム 自 体 は 8 K バ イト ほど で す が , 
バッ ファ エリ ア と し て , 残り の 領域 を は と 
ん ど 使 用 し て いま す 。 も ちろ ん , Ж КАМ 
や VRAM, それ に 拡張 RAM(PC-8801-02) 
も バッ ファ アエリア と し て 使用 し て いま す 。 
だ だ し ,PC-8001MKI の 場合 は プロ グラ ム 
と VRAM が 同じ アド レス に 位置 し て いる 
の で 使用 し て いま せん 。 

各 PC 共 通 の あき エリ ア は E000H ~ E9 
FFH の 2.5K バ イト (Na。-BASIC モ ー ド の 
場合 は E000H~E5FFH の 1.5K バ イト ) だ 
け で す 。 


前 回 の 補足 
E uu 


Bil, Ver. 2.0 の コマ ンド に つい て 説明 
し まし た が , 一 部 言葉 の 足り な いと ころ が 
あり まし た の で 補足 し て お きま す 。 

Ver. 2.0 は Nso-BASIC モ ー ド で 動作 し 
て いる 場合 , 以下 の 2 つの コマ ンド が 使え 
еге 
CMD BSAVE 
マシ ン 語 ファ イル の セー ブ を 行い ます 。 
SAVEM と まっ た だ く 〈 同 じ 働 き で す 。 
CMD BLOAD 
マシ ン 語 ファ イル の ロー ド を 行い ます 。 
LOADM と まっ た だ く 〈 同じ 働 き で す 。 
N-BASIC で 動作 し て いる 場合 の 追加 コ 
マン ド で は あり ませ ん 。 

агу. Ver.2:00ASGIIGE => U だ ジア 
イル を DISK BASIC で ロー ド す る と, 

Direct statement in file 


が 発生 する こと が あり ます が , プログ ラム 
は 正常 に ロー ド さ れ て いま す の で , ご 心配 
な く 。 LDL, これ が 気 に な る 場合 に は , 
訂正 欄 を 参照 し て , 修正 し て お ぉ いて くだ き 
い 。 


2 回 に わた っ て S-DOS80 Ver. 2.0 の シ 
ステ ム と ユー ティ リティ を お 送り し まし た 。 
Ver. 2.0 は 同じ 1.0 に 比べ る と 格段 の パワ 
ー ニ アッ ジジ る 0 で いま 35 まだ アア イル ア 
クセ ス が で き な い な ど 不 満 な が 点 も あり ます 。 
し か し , フリ ー エ リア を 1 バイ ト も 減ら き 
な いと いう 難し い 制 約 が ある の で , BDF 
と 限り が あり ます 。 す で に , Ver. 3.0 の 構 
想 に 入っ て いま す の で , 本 バー ジョ ン に 不 
満 な 点 が あっ た り , 次 回 バー ジョ ン で つけ 
加え て ほし しい 機能 が あれ ば , 私 あて に 編集 
室 気付 け で ご 一 報 く だ さい 。Ver. 3.002 
考 に きせ て いた だ きま す 。 

次 回 は 、。 何 に する か まだ 決め か ね て いる 
状態 で す が , 休載 する つも り は な い の で ご 
安心 くだ さい 。 それ で は , 来 月 号 で また お 
会 いし まし ょ う 。 


100 ' 


120 ' 
130 ' 
140 CLEAR 100. &H83FF 


CoPyright 


178 CLEAR 300.L 
180 END 


158 LOADM"dskuty.v2m".R 
160 し =PEEK(&HEA59 ) *PEEK( &HEA51)x256-1 ‘highest of memory 


110 ' Disk utility for S-DOS80 Version 2.0 
(С) 1985 by S.Kobayashi 


us 


— 
+D +E +F :SUM 


+Ë 
3e 
c9 
92 
c9 
85 
3A 
AD 


+F 
91 


2A : 
D6 : 
FE: 
ЕЗ * 
A7 : 
9E : 


93 : 


:SUM 
: ВЕ 
9E 
D8 
Fe 
37 
34 
6E 


: D4 


00 


:SUM 
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Machin 


PC-8801! に は 強力 な モニ タ が 内 蔵 る され て 
いま す が , それ で も ま が だ 機械 語 を 入力 する 
に は 十分 と は いえ ませ ん 。 1 行 入力 する た 
びに ROLL UP キー を 押 き な けれ ば な ら 
な いし , フル キー ボー ド で 入力 し な けれ ば 
な ら な いと いっ た 点 で す 。 

を そこで, 本 モニ タ の 登場 し な っ た わけ で 
+, MF, モー ニタ の 入力 方 法 , 使用 方 法 に 
つい て 述べ て いき ます 。 


本 モニ タ の 
打ち 込み 方 
Es 


リス ト 1 に BASIC の プロ グラ ム , リス 
ト 2 に マシ ン 語 の ダン プ を 示し まし た 。 打 
ち 込 む の は リス ト 1 だ け で 結構 で す 。 リス 
ト 2 の 利用 法 は 本 モニ タ が 正常 に 働い て い 
る 状態 で 

M] DP8000, ЗЕЕ О 

LUC) н CIE анс o こし 
に は チェ ッ ク サ ム が つい て いま すか ら , 
DATA 文 の 確認 に 利用 し て くだ さい 。 だ だ 
L, 8000Н ~ 8004Н 1457—25.) 7, 8343 
Н=83ЕЕН は 空き エリ ア な の で デー タ が 
異な っ て も か まい ませ ん が , その 場合 チェ 
ッ ク サ ム は あて に な り ま せん の で 注意 し て 
《 だ きい 。 

次 に デバ ッ グ に 関す る 注意 で す が , デバ 
ッ グ は 必ず 210, 230, 240 行 を КЕМ X t iñ 
し て か ら 始 め て くだ さい 。 こ れ は エラ ー が 
生じ た と き ,。 プ ログ ラム が 停止 する よう に 
142 


Ре 


する た ゆめ と STOP += STF 77. 
ム を 途中 で 止め られ る よう に する だ めで す 。 
КЕМ 文 に 直る な いで デバ ッ グ を 行 お うと 


ОСЬ, 正しい 動作 は 保証 きれ ませ ん の で 


ご 注意 を 。 


本 モニ タ の 
使い 方 
т ë 3 


本 モニ タ に は E, “Р, Е, 5, 1; M 
N, Ө (すべ て 小文字 可 ) の 8 コマ ンド が 
あり , HELP キー に よっ て 各々 の 説明 が 表 
示 き れ ま す 。 

MF, 各 コ マン ド の 書式 と 特徴 に つい て 
述べ て いき ます 。 
eE コ マン ド 

書式 E < アド レス > 

この コマ ンド は 8000 有 HH —FFFFH の メモ 
リ を エディ ッ ト す る も の で , 0000H—7 
FFFH に 関し て は BASIC の テキ スト の 破 
壊 を 防ぐ た め , 書き 込み 禁止 に し て あり ま 
す 。 

表示 形式 は , 左側 か ら ア ドレ ス , そし て 
デー タ が 2 格 ず つ 16 バ イト , チェ ッ ク サ ム , 
最後 に ASCII ダン プ で す 。00Hー 1 ЕН の 
コン トロ ー ル コー ド は すべ で て 空白 GOB) 
で 表示 し て あり ます 。 い ちば ん 下 の 行 は 縦 
サム が 16 と 表示 きれ て いる デー タ 256 バ イ 
ト の 総和 で す 。 縦横 の チェ ッ ク サ ム は それ 
ぞ れ 16 個 の デー タ を 単純 加算 し て , その 下 
2 桁 を 表示 し た もの で す 。 ま た だ, チェッ ク 


) Monitor 


1983 年 9 月 掲載 


サム と ASCI ダ ンプ は メモ リ 内 容 を 変化 
きせ る と 同時 に 変化 し ます 。 

次 に キー の 使い 方 で す が , エディ イット モ 
ー ド で は 図 1 の よう に テン キー が 16 進 キー 
に 対応 し て キー 入力 の 高速 化 を 図り ます 。 
も ちろ ん フル キー ボー ド を 使う こと も 可能 
КБ 

カー ソ ツル キー は 上 下 左右 に カー ソル を 移 
動き せま す 。 ス ペー スキ ー と DEL キー は 
それ ぞ れ 1 バイ ト 単 位 で . カー ツル を 後ろ 
と 前 に 移動 きせ ます 。 HOME・CLR キー は 
カー ソル を ホー ム ポ ジ シ ョ ン に 戻し ます 。 
そし て , ROLL UP/DOWN キー で は それ 
ぞ れ 256 バ イト 後 , 256 バ イト 前 の 内 容 を 表 
示し 。 カー ツル を ホー ム ポ ボ ポジション に 戻 
ます 。 さらに, カー ソル 移動 な ぼ に より 表 
示 ぉ る れ て いる 範囲 を 越え た た と きも 自動 的 に 
ROOL UP/DOWN が 行わ れ ま す 。 

エディ ッ ト モ ー ド か ら 抜 け 出 す と き は 
Bo SM eMe GV onde D x 
ESC キー を 押し た と き は コマ ンド レベ ル 
c 

ME OQ 
と 入力 すれ ば 元 に 戻り ます 。 
@D コ マン ド 
書式 : D < スタ ー ト >, < エン ド > 
ОРКА Z— F>, <= F> 

メモ リ ダ ン プ コマ ンド で , 表示 形式 は エ 
ディ ッ ト モ ー ド と 同じ で す 。 書式 が 2 通り 
あり ます が , 前 者 は テキ スト 画面 に , 後者 
は プリ ンタ に 出力 する コマ ンド で す 。 

エン ドア ドレ ス は 省略 可能 で その 際 は 
スタ ー ト アド レス か ら 256 バ イト を 出力 し 
ЕО Е ctp pot AIV 


位 は 00 に モット され ます 。 
@F コ マン ド (ディ スク ) 

書式 : F < ドラ イブ ナン バー> 

この コマ ンド は BASIC の FILES t fH 
MOL ЫА 

ドラ イブ ナン バー を 省略 し た 場合 は ドラ 
イブ 1 が 選択 され ます 。 
eS コマ ンド < ディ スク > 

書式 : S 

この コマ ンド は BASIC の BSAVE に 相 
当 し ます が , “長き "を 計算 し な く て すむ の 
が 便利 な 点 で す 。 

まち が っ て この コマ ンド を 入力 し た と き 
は 

file name ? 
ОАЕ 

©) 
の み を 入力 し て くだ きい 。 コ マン ドレ ベル 
に 戻り ます 。 
@| コマ ンド (ディ スク ) 

書式 : L 

この コマ ンド は BASIC の BLOAD に 相 
Е 3536 

この コマ ンド を 入力 後 , ファ イル ネー ム 
を 入力 する と その ファ イル の スタ ー ト アド 
レス と エン ドア ドレ ス を 表示 し ます の で , 
セー ブ す る と き に 便利 だ と 思い ます 。 
eM コマ ンド 

書式 : M 

この コマ ンド は BASIC の MON に 相当 
し ます か ら , 使用 方 法 に つい て は マニ ュ ア 
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N 
š 
N 
Ñ 
КЕ 
SN 


1 пи (НТО T —) 
ル を 参照 し て くだ きい 。 コ マン ドレ ベル に 
戻る と き は 

(ЕЛ5 В 
за 

Ji, この コマ ンド は 本 モニ タ の 不足 部 
分 も ぢ ぎ な うだ た め の も の で す 。 
@Q コ マン ド 

書式 : Q 

この コマ ンド は 本 モニ タ か ら 抜 け 出 す た 
め の も の で す 。 STOP キー を 押し た と きも 
同様 に 動作 し ます 。 

再 ス ター ト の 際 は 


RUN Q 
で 行っ て くだ さい 。 メ モリ の 内 容 は 破壊 き 
れ ま せん 。 だ だし, 最初 の スタ ー ト に お い 
て は E000H~E 3 FFH の メモ リ が 破壊 
され ます 。 2 度目 か ら は 破壊 を 防ぐ 工夫 が 
し て あり ます の で ご 心配 な く 。 な お 

ICLEAR, ххх 

と し て , マシ ン 語 エリ ア を 確保 し ます 。 
本 モニ タ の エディ イッ ト と ダン プ の ブロ グ 
ラム は テキ スト ウイ ンド ー に あたる た だ め 不 
思 議 に 思わ れ た 方 も いる で し ょ う が , これ 
は ポー ト 70H を コン トロ ー ル する こと に よ 
b 可能 に な り ま す 。 詳し て は 本 誌 5 月 号 を 
参照 し て くだ さい 。 

僕 は PC-8001 で 育っ た の で , どう も PC- 
8801 は 苦手 で す 。 今 回 も 

DEFUSR = &HE350 

と 書い て し まい , ШЖ 

A=USR( 0 ) 
で リー ガル ・ フ ァ ン クシ ョ ンコ ー ル に 悩ま 
る れ だ た こと か …。 原因 は DEF と USR の 
間 に ス ペー ス を 入れ 忘れ た だ た ため な ん で す よ 
ね 。 こう いう ミス は 今 ま で あま り し だ た こと 
が な く , ほとんど が Syntax error だ っ だ の 
に …。 

それ は と も か く ,USR の 飛び 先 は CLEAR 
文 な ど を 使っ て も , イニ シャ ライ ズ (初期 
化 ) され な いや っ か いな も の で す 。 万 一 の 
と き は いき な り 聞 走 す る こと も 考え られ ま 
Зот, みな る ん は ぐれ ぐれ も ご 注意 を 。 
それ で は また 。 


FOR 1=1 TO LEN(A$) 
CLEAR ,&HDFFF : 


DEF USR=&HE359 
WIDTH 80,25 : 
ON STOP GOSUB 930 
ON HELP GOSUB 719 
ON ERROR GOTO 240 
RESUME 310 


DEFINT A-Z : 
DEF USR9=&HF329 


Machine Language Monitor 
Copyright (C) 1983 by S.Kobayashi 


A$-'10run 200" +CHR$(13)+ "run" +CHR$( 13) 
POKE &HEFCD,LEN(CA$)-1 


: A-USR(OD : 
CONSOLE 0,25,0,1 


: DEF USR1=&HF33A : 


Н - 
mlmon 


: ,POKE.&HEFCE;31 : 


RESTORE 1000 
FOR N-&HE000 TO &HE365 : 


READ D$ : 
END 

: COLOR 7 
: STOP ON 

: HELP ON 

: GOTO 250 


PRINT "Machine Language Monitor ` 
RESTORE 
FOR N=&HF320 TO &HF35C 


POKE N,VAL( "&H"+D$) : 


: READ D$ : POKE N,VALC'&H'*D$) 
DEF USR2-&HF34F 


: POKE &HE6CD, &HFF 
: POKE &HEFD8-*I,ASC(MID$CAS,I,1)) : 
POKE &HE6CD,0 


NEXT 


NEXT 


: NEXT 
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29@ 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


LPT=&HE64C 
PRINT 

LINE INPUT 'm2';XX$ 

IF XX$2'' THEN 310 

C$-LEFT$(XX$,1) : XX$=MID$(XX$,2) 

ON INSTR('EeDdSsLIFfMmQa"' ,C$)/2 GOSUB 360,400,520,610,680,910,920 
GOTO 300 

^ EDIT 

IF XX$2'' THEN A-USR2(0) : LOCATE 0,19 : RETURN 
AD-VAL(C'&H'*XX$) : A-USRO(AD) : LOCATE 0,19 : RETURN 
^ DUMP 

IF XX$="" THEN ХХФ= "0" 

IF INSTRC'Pp',LEFTS$(OXX$,1)) THEN PFLG-&HFF : XX$-MID$(XX$,2) 
VV-2INSTRCXXS$, ", `) | 

IF VV-0 THEN SA=VAL( &H'+XX$) : EA=SA : GOTO 460 
SA-VAL(C'&H' «LEFTS$CXX$,VV-1)) 
EA-VAL(C'&H'*MIDSCXX$,UV*1)) 

SA=INT(SA/256 ) x256 

FOR AD=SA TO EA STEP 256 

IF PFLG THEN LPRINT : POKE LPT,PFLG ELSE PRINT 
A-USR1(AD) : IF PFLG THEN POKE LPT,9 : LPRINT ELSE PRINT 
NEXT : PFLG-0 : RETURN 

^ BSAVE 

INPUT "File name ';F$ : IF F$="" THEN RETURN 

INPUT "Start Address ';SA$ : IF SA$-'' THEN 530 
SA-VAL C'&H'*SA$) 

INPUT "End Address ';EA$ : IF EA$-'' THEN 550 
EA-VAL(C'&H'«EAS$) : IF EA<SA THEN 530 

PRINT "Sure (y/n) ? `; : A$-INPUTS(1) : PRINT A$ 

IF NOT(A$2'y' OR A$-'Y') THEN RETURN 

BSAVE F$,SA,EA-SA*1 : PRINT "Ok"; : RETURN 

^ BLOAD ; 

INPUT "File name ';F$ : OPEN F$ FOR INPUT AS #1 
SA-CVICINPUT$(2,81)) : EA-CVICINPUT$(2,812)-1 : CLOSE 
PRINT "Address : ';HEX$(SA);' - "';HEXS$(EA) 

PRINT "Sure (y/n) ? "; : AS$-INPUT$(1) : PRINT A$ 

IF NOT(A$="Y" OR АФ= "у" ) THEN RETURN 

BLOAD F$ : PRINT 'Ok'; : RETURN 

° FILES 

DN=VAL(XX$) : IF DN=0 THEN DN=1 

FILES DN : RETURN 


^ HELP 
CLS : PRINT 
PRINT 'E«address? Change contents of memory by screen editor" 
PRINT ` with check sum. " 
PRINT ` ten key' 
PRINT °" pp roll up: next page' 
PRINT — Ге ОЗАТ roll doun: prev раде" 
PRINT ' I4 5-6 ВІ space bar: next byte' 
BEINT —* 14 2-3 CI del: prev byte" 
PRINT ' 160 F E DI cursor key: move cursor“ 
PRINT ° —  çə>— P esc: exit' 
PRINT 
PRINT "D<start>[ , く end>] Dump contents of memory. ` 
PRINT "F<drive number» Files." 
PRINT 'S Save contents of memory to disk." 
PRINT 'L Load contents of memory from disk." 
PRINT 'M Monitor." 
PRINT 'Q Exit from this tool." 
PRINT 
RETURN 
MON 
MON : RETURN 
ESQUIT. 
IF PFLG THEN POKE LPT,@ : LPRINT 
CLEAR : END 


^ DATA 


960 DATA DB,70,F5,3E,80,D3,70,7E,23,66,6F,22,02,80,2E,00 
970 DATA 22,00,80,CD,05,80,F1,03,70,C9,DB, 70,F5, 3E ,89 ,D3 
980 DATA 70,23,66,2E,00,22,00,90,CD,0B,80,F1,D3,70,C9,DB 
990 DATA 70,F5,3bE,80,D3,70,CD,08,80,F1,03, 70,C9 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1590 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


T 


^ 


00,80,00,80,00,C3,B4,81,C3,B8,81,C3,01,81,41,44 
52,53,20,3A4,20,2B,30,20,2B,31,20,2B, 32, 20,2B, 33 
20,2B,34,20,2B,35,20,2B, 36 。 29 。 2B , 37, 29 , 2B , 38,20 
2B,39,20,2B,41,20,2B,42,20,2B,43,20,2B,44,20,2B 
45,20,2B,46,20,34,53,55,4D,00,53,55,4D,20,20,3A 
20,00,C5,E5,CD,83,35,FE, 7B, 30, 17,FE,61,38,04,D6 
20,18,0F,21,75,80,06,06,BE,23,20,03, 7E, 18,03,23 
10,Ғ6,Е1,С1,С9,2А,41,2В, 42,30, 43,00,44, 2Е,45,2С 
46,15,13,B7,C8,CD,18,00,C3,81,80,F5, 3E, ЗА, СО, 18 
00,3E,20,CD,18,00,F1,C9,F5,3E,0D,CD, 18,00, 3E, 0A 
CD,18,00,F1,C9,F5,3E,20,CD,18,00,F1,C9,C5,F5,06 
4D,3E,2D,CD,18,00,10,F9,F1,C1,C9,CD,C1,80,C3,A5 
80,F5,7C,CD,D2,80, 7D, CD,D2,80,F1,C9,CD,D2,80,C3 
A5,80,F5,0F,0F,0F,0F,CD,E7,80,CD, 18,00,F 1,F5,CD 
E7,80,CD,18,00,F1,C9,E6,0F,C6,30,FE, 3A,D8,C6,07? 
C9,D6,30,D8,FE,04,3F,D0,D6,07,FE,0^,08,FE, 10, 3F 
C9,11,0E,80,CD,81,80,CD,98,80,2^4,00,80,E5,06,10 
CD,BB,80,CD,8B,80,C5,E5,01,00,10, 7E, 23, CD, CC, 80 
81,4F,10,F7,CD,8B,80,79,CD,CC,80,CD,45,80,E1,06 
19,7E,23,FE , 20,30,02, 3E , 29 , CD , 18,00,10,F3,CD, 98 
80,C1,10,CC,CD,^D,80,CD,98,80,11,44,80,CD,81,80 
E1,01,00,10,11,10,00,E5,C5,01,00,10, 7E, 19,81, 4F 
10,FA,79,CD,CC,80,C1,81,4F,E1,23,10,EA, CD, 8B,80 
CD,D2,80,CD,98,80,C9,C5,E6,0F,47,87,80,C6,08,47 
35,04,80,B7,78,C1,28,01,3C,32,87, EF, C9, E6,F0,0F 
0F,0F,0F,3C,3C,32,86,EF,C9,E5,D5,ED, 5B , 99 , 89 , B7 
ED,52,7D,D1,E1,F5,CD,8D,81,F1,CD,77,81,C9,2A,00 
80,22,02,80,AF,32,04,80,3E,0C,CD,18,00,CD,01,81 
2A,02,80,7C,FE,80,D8,CD,99,81,CD,52,80,2A,02,80 
FE,1B,C8,47,CD,F1,80,DA,B1,82,4F, 3A, 94 , 89 , B7, 2F 
32,04,80, 7E , 29 , 17,E6, 9F , 7?, 79, 9F , QF , QF , 9F ,B6, 77? 
TE,0F,0F,0F,0F,CD,E7,80,CD,18,00,18,12,E6,F0, 77 
79,B6,?7,7E,CD,E7,80,CD,18,00,23,22,02,80,2B, 46 
3^,00,80,4F, 7D, 91,4F ,CD, 8D, 81, 79, E6,0F ,C6, 3E , 32 
87,EF ,78,FE , 29 , 39 , 92, 3E , 29 , CD , 18, 99 , 3E , 3A, 32,87? 
EF ,3E ,F9 ,A1 ,C5, 4F , 96, 99 , 2A, 99 , 89 , 99 , 91 , 99,19,7E 
23,81,4F,10,FA,CD,D2,80,C1,C5,79,E6,0F,47,87,80 
C6,08,32,87,EF ,3E,13,32,86,EF, C1, 3E , 9F , A1, 4F , 06 
00,24,00,80,09,11,10,00,01,00,10, 7E, 19,81, 4F , 10 
FA,CD,D2 ,89 , 3E , 3A , 32 , 87 ,EF , 2A , 99 , 89 , 91 , 99 , 99 , 3A 
C1,E6,EE,20,D3,40, 7E ,23,81 , 4F , 19,FA,CD,D2,89, 3A 
C1,E6,D3,40,24,02,80,ED, 5B , 99 , 89 , B7, ED, 52,38,99 
тС,Вӯ,СА,С0,81,ЕВ, 24,18,02,ЕВ, 25, 22, 99 , 89 ,C3,B8 
81,78,FE,F9,20,06,24,00,80,25,18,08,FE,F8,20,0A 
24,00,80, 24 , 22 , 99 , 89 ,C3, AE , 81 ,FE , 29 , 29 , 9E , 24,02 
80,23,22,02,80,A4F,32,04,80,C3,94,82,FE, 1C, 20, 0D 
3A,04,80,2F,32,04,80,B7,C2,C0,81,18,E1,FE, 10,20 
0D,3^4,04,80,2F,32,04,80,B7,CA,C0,81,18,10,FE, ?F 
29 ,16,3A,94 ,89 ,B7,3E , 99 , 32 , 94 , 89 ,C2,C9,81 ,2A,92 
80,2B,22,02,80,C3,94,82,FE, 1E , 29 , 9D, 11,F0,FF, 2A 
02,80,19,22,02,80,C3,94,82,FE, 1F,20,05,11,10,00 
18,ED,FE,0C,C2,C0,81,24,00,80,22,02,80,AF,32,04 
80,C3,C0,81,00,00,00,00,00,00,00,00,00,00,00,00 
21,00,E0,11,00,80,01,44,03,DB, 70,F5,3b,80,D3, 70 
F1,ED,B0,D3,70,C9 


End of List 
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ADRS : 40 +1 +2 +3 +4 +5 +é +7 +8 49 +A +B +C +D +E +F :SUM ü 82 
8000 : 99 80 99 80 OO C3 BA 81 СЗ B8 81 СЗ 01 81 41 44 : BE LSS PIR SALAD 
8010 : 52 53 20 3A 20 2B 30 20 2B 31 20 2B 32 20 2B 33 : F1 RS : +9 +1 *2 +3 
8020 : 20 2B 34 20 2B 35 20 2B 36 20 2B 37 20 2B 38 20 : ^5 +4 +5 +6 +? +8 
8030 : 2B 39 20 2B 41 20 2B 42 20 2B 43 20 2B 44 20 2B : E5 +9 +A +В +С +0 + 
8040 : 45 20 2B 46 20 ЗА 53 55 40 00 53 55 4D 20 20 ЗА : 94 Е +F :SUM SUM : 
8050 : 20 00 C5 Е5 CD 83 35 FE 7B 30 17 FE 61 38 04 Dé : 80 Th^w5 (0 a8 = 
EE 8060 : 20 18 OF 21 75 80 06 06 BE 23 20 03 7E 18 03 23 : 29 1 ロー tH # 
gg 8070 : 10 Fé E1 C1 C9 2A 41 2B 42 3D 43 0D 44 2E 45 2C : B9 今 ノ xATB=C ЮЕ, 
EA 8080 : 46 1А 13 Вт C8 CD 18 00 СЗ 81 80 F5 ЗЕ ЗА CD 18 : ED Е キネ A テー M>:A 
М 8090 : 00 3E 20 CD 18 00 F1 C9 F5 3E 0D CD 18 00 3E ВА : 6А SCASTEAMDO^: > 
2 8040 : CD 18 00 F1 C9 F5 ЗЕ 20 CD 18 00 F1 C9 C5 F5 06 : 51 A РМа» ^ nz" 
үн 89B9 : 40 ЗЕ 2D CD 18 00 10 F9 F1 C1 C9 CD C1 80 СЗ A5 : 97 M>-A 門 チ ノ ハ チー テ ・ 
89C9 : 80 F5 7C CD D2 80 7D CD D2 80 F1 C9 CD D2 80 СЗ : 48 RANDINA 
8000 : A5 80 F5 ВЕ OF OF OF CD E? 80 CD 18 00 F1 F5 CD: 22 ‘Ff ^_^ AM 
89E9 : E? 80 CD 18 00 F1 C9 Ев OF Có 30 FE ЗА 08 C6 0? : CE F-^ R/W-0 :7- 


Cor A) U d c UE Ur 


i 8100 : C? 11 ӨЕ 80 CD 81 80 CD 98 80 2А 00 80 ES 06 10 : C9 г W A x A 

1 8110 : CD BB 80 CO SBE SOUT ESOL 00-40" TE 23 СО СЄЗӨЙ 1 56 C ^92^W SR ^ ^W^AZ- 
8120 : 81 4F 10 F? CD 8B 80 79 CD CC 80 CD А5 80 E1 06 : 1А 20 #8 _ул7_л: _Е 
Bs 813055 10. 7E 23 EEP?OECUPO2- SE 2N ED G go AO F3 CD? O9 SAG HORE UN A^ г 
3 BT409:-—-80 (1-10. CMC DRADER CD: OBS GONI TASSO" CDUSTS SOAS E EE APA EA. 
| 89150 YET 01 00 10747-4307 BO" ESPCS OI BOF TOP E: 19591] МЕ Ж SET IE bf CINE 
8160 : 10 FA 79 COREE SECT SI VF E DOS ӨЗ EA- СОТ SB- GB * 0S yA7—+—D 時 WME 


i 8170 : СО 02 80 CD-.98 80-C9 CEG OES a7 87” 80 C6 08 дт EN CA rE G 
y 8180 : ЗА 04 80 B? 78 C1 28 01 3C 32 87? EF C9 EC F0 OF : 69 : - キ x チ ( «2Wh/ ч 
t 81907: BF ӨР ВЕ 307 90-92" BS BEA COEDS BOSSE BB. 00:90 BT FUE くく 2 画 \ ソ 1OL _+ 
15 ВТАӨ : ED 52 7D Di*E1*E5*ED" SDE SEET 81" C9- 2A- 00. ET ORO A HPABTFIAG ж 
B 81В0 : 80 22 02 80845E632:04580C SEJOEC CD: 18. 00- CD201 81 B> 52 D APTA LZ 
81C0 : 2A 02 89 7GC.EE380.D8? СЫ: 9% 845 CD^ 524 80- 2A*02 80^ s" Ва 1 LI DUASZARLX — 
8100 : FE 1B C8 47 CD F1 80 DA B1 82 4F За 04 80 B? 2F : 66 ネ GA 円 - レ アァ =0: —t/ 
81E0 : 32 04 80 ?Es 20814722E6 ӨР: 77 79 OF) OFF OF- OF BOTT « B9^"72- ^^ Ww uy カ ぃ 
81F0 : ТЕ OF OF ВЕ ВЕ CD E? 89 CD 18 00 18 12 EG F9 77 : 4A ^ AMEN Xo 


8200 : 79 Bé тт 7E CD E? 80 CD 18 00 23 22 02 80 2B 46 : 75 yBDw^^W ^ *«' HF 
8210 : ЗА 00 80 AF? 708916 4F: CD: 8D 81^ 79" EG IOF- COC SE: 82^ s^ ES -t* 200 30^BZy W ニ >2 
8220 : 87 EF 78 FE 20 30 02 ЗЕ 20 CD 18 00 ЗЕ ЗА 32 87 : B2. Nx 9 > ^ ›:28 
8230 : EF ЗЕ FO A1 C5 4F 06 00 2A 00 80 09 01 00 10 ТЕ : 1A へ >X。 ナ 70 ж 53 
8240 : 23 81 АР 10 FA CD 02 80 C1 C5 79 E6 OF 47 87 80 : SE #0 AX_ チ ナッ СШ. 
8250 : Cé 08 32 87 EF ЗЕ 13 32 86 EF C1 3E OF A1 ДР 06 : 72 - 28% 2 画 チ > 。0 

8260 : 00 2А 00 80 09 11 10 00 01 00 10 ТЕ 19 81 AF 10 : 5C К». “sg, 

8270 : FA CD D2 80 ЗЕ ЗА 32 8? EF 2А 00 80 01 00 00 3A : 1E AX2 2N _ : 
8280 ;\С1 Eé ЕЕ 205D8Tt48310E3281819 45218? FAJ3CD2 929 905 SA» ICE yz Тат PA x: 
8290 : C1 Eé ОЗ 40 2А 02 80 ED 5B 00 80 B? ED 52 38 09 : 65 #*%t@x _ОС - キ CR8 

8260 : 7C B? СА CO 81 EB 24 18 902 EB 25 22 00 80 СЗ B8 : 94 FAILS 4° テク 
82B9 : 81 78 FE F9 20 06 2A 00 80 25 18 08 FE F8 20 ВА : 25 2х . * < 


82bE0 : ЗА 04 80 2F 32 04 80 B? C2 C0 81 18 E1 FE 1D 20 : He うー ンー E 


8300 20 16 ЗА 04 80 B? ЗЕ 00 32 04 80 С2 С@ 81 2А 02 СЕ OA ツー 
8310 5028-22 02.8003. 94 82 FE 1E 20 DD И EQ EE 2A JB p Dy a x x 
8320 OZ SOLS 22902488 СЗ 91:82 FEE 20 OS LL то 88 7B = 7 = 

8330 18 ED FE 0С C2 СВ 81 2А 00 80 22 02 80 AF 32 04 = (UE ニニ リン 
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PC-8801 や PC-8001MKII の 本 体 に , 漢 
КОМ を 取り 付け る と, 画面 に 表示 きれ 
る 文章 が か た 仮名 ど だ け の も の より 非常 に 見 
җебе 

€ IT, BASIC プロ グラ ム 中 に 漢字 出力 
ルー チン を 入れ な たり し て 結構 満足 し て いる 
の だ が , や は り , プリ ンタ に も 漢字 を 出力 
ЕАН, vv bo —Z: 
ジリ ンタ を 持つ で いる の で ,。 これ で な ん と 
か 漢字 出力 が で どき な いも の か あれ これ と 
えて いる うち に , 秋葉 原 の パ ソコン ショ ッ 
ЖОП IENE IIT 」( シ ステ ムツ 
フト 社 製 ) な る ぁ ツ フト を 発見 し た 。 

これ は , PC-8801 や PC-8001MK II 本 体 
の 漢字 ROM の フォ ント デー タ (漢字 の デ 
SA AMO iU tz k 4 2— ・ プ リ 
ンタ へ その デー タ を 送り , 漢字 を プリ ント 
する も の 。 値段 は テー プ 版 4.500 円 , ディ ス 
ク 版 7.000 円 と 手頃 だ 。 ま る に 私 の ニー ズ に 
E407 7-5, 

ССОО EZ, いち エー ザー の 
7 場 で 紹介 し な が ら コ メン ト し て みた い 。 


в а 
к а 


「 ス ーー 漢字 プリ ント 」 は , 1 本 の テー 
デ プ ま た は ディ イス ケッ ト に PC-8001 用 , PC- 
8001MKII 用 と が 入っ て お り , NEC と エ プ ソ 
ン の 各 グ ブリ ンタ に 合わ せ た 機 械 語 ル ー チ ン 


が 入っ て いる 。 決 の ハー ド 構 成 で 作動 する 。 
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RFI DE 


e PC-8801 十 漢 字 ROM また は 

PC-8001MK II + 漢字 ROM 
@ ビ ッ ト イ メー ジ プ リ ンタ 

NEC ---: =° PC-8023 

PC-8023-C 
PC-8821 
MP-80 (TYPEII) 
MP-82 (ТҮРЕШ) 
MP-100 
MP-80III F/T 
RP-80 
FP-80 
FP-100 

スー パー 漢字 プリ ント は す で て 機械 語 で 
書か れ て ぉ り , 整数 配列 , 文字 列 あ る い は 
ファ イル バッ ファ な ど に 格納 され た 漢字 コ 
ー ド の 列 を USR 関数 1 つ で プリ ンタ に 漢 
字 出力 する 。 また , USR 関数 で 送る パラ メ 
ー タ に より 字数 , 文字 の 高 る (3 mm/6 
mm), 縦 書き , 横書き , 漢字 間 の ドッ トス ペ 
ー ス ( 0 一 15 ド ッ ト ) な ど が 自由 に 設定 で き 
る た め , 数 多く の 種類 の 漢字 が 出力 で きる 。 

さらに , 本 体内 の 漢字 ROM 内 の すべ て 
の 文字 が 使え , 全角 文字 はじめ, 半角 , 
必須 炎 当 が だ も ウリ ンク トド アデ ウド で きる 。 с 
れ は , 漢字 プリ ンタ を は る か に し の で 機能 
で ある 。 

これ に より , よく 使う 文章 や 住所 録 な ど 
qes c T Sq i45 
市 販 の 漢字 ワー プロ で 使わ れ た デー タ を 読 
ん で 出力 する こと も で きる が , この 場合 は 
を その プロ グラ ム を 作る 必要 が ある 。 詳細 は 
fuk る こと に CGNW ま お | ステ バー 漢字 ンジ 
リン ト 」 の 印字 例 を 見 て いた だ こ う 。( 表 1 ) 


EPSON 


SEDED ERIE 


1983 年 10 月 掲載 


実際 の 使い 方 
E а 


それ で は , 実際 の 使い 方 を 説明 し よう 。 
こ で は , PC-8801 の ディ スク 版 と PC- 
8023 を 例 に と る 。 
まず ,「 ス ー フ パー 漢字 ゲ プリント 」 の 機械 語 
ルー チン を デイ スク か ら ロ ー ド する が , € 
の エリ ア は E300HーE5FFH と な っ て いる 
の で , 次 の よう に する 。 
CLEAR, &HE300-1 
BLOAD `Kprt8#8.F#C' —РС-8801 
用 の ファ イル 名 
DEF USR = & HE300 
これ で 基礎 準備 は OK。 あ と は , 出力 する 
漢字 デー タ を 用 意 し て , 漢字 タイ プ , 文字 
間隔 , 印字 字数 な ど を 設定 し , USR 関数 で 
機械 語 ル ー チ ン を 実行 すれ ば よい 。 と ころ 
3, これ が ちょ っ と や や こし い の で ある 。 
以下 , 順 を 追っ て 説明 し よう 。 


「 ス ーッ パ ーー 漢字 プリ ント 」 は 漢字 ワー プロ 
で は な い の で , BASIC の プロ グラ ム 中 に プ 
リン タ 出 力 す る 漢字 デー タ を 入れ る 必要 が 


表 1 プリ ンタ 印字 例 


(D PC-8023 に よる 印字 例 


кок олура 


プロ ポー ショ ナル | WemwNSAzresk 


ESC +"P” M20878JUF043; 
N^03*97U0»Ft9 EEI 
az ITS 
コン デン スズ WYORHANINL Fen 
ESC+"0" 0 好 # ブ リット で きす 
LELT EPOP ETES] 
Ey GIFS DAL P s 
Tef me єнєк Ту D A H a mem 
ESC +"E” ÉROSTOJUPSLP で きき す 
M^AOoUWr»-zo»rcexv 
жу GEIER T D Ён», 
バイ カ же л> O REHET TS D — 2 wu wa +=, 


ESC+"N" 種々 の 渓 字 が プリ ント でき ます 

38 ою 2 ' 5 i C e £ p 
ブロ ポー ショ ナル | шу G BEDS TN D AL Лб} 
拡大 тес G ME Ра # wv эч dm 


ESC+"0" 種々 の 漢字 が ブリ ント で きま す 
+CHRS(14) | wm ою 7 оьсе 


RET GIRIK Л 2 YU BS n 


E EE し に € miis ーーー $t aru зе m 
+CHRS(14)| É^ORTSZULECERES 
Ma СА L7 Z poc $9 ww 
нд? MES г> G GB IH - ТУ — — Y 90 336 Jo. 
ESC +"E” зт = € deti dri in T™ = N — үч, ro эзе うー、 
icHRsq4)| 種々 の 漂 字 が プリ ント で きま きす 


Яй ^ <> МЕЕ E DN ニテ トナ フー ント -тт ow x ya 


MEM r>- € PIC {F4 Ту У СУ — ます) ao PE оу 
Mg <> “> Ури Ф4- 14и po SN ヘー {ө муч) o = 
生々 の 漢字 が プリ ント で きま 


> SD“ トー 


バイ カ 拡 大 


ESC+"N" 
+CHRS(14) 


(©) RP-80,FP-80 に よる 印字 例 


жий co Bi [e €. Ts Z. NU 36 ds 
урен Co € ве 4-6 ToS ху Су — Ye! ro BO rs 
1@” mop m Uu RNC 
XN 27 (7> УВА RON — +) co d. "Z" = че з 
ож Тлар 
Nic GENSAT T NZ tr б} 
Вто 07КА ЯЗ 
得々 の 漢字 が プリ ント で きま すず 
Bur ЕБ АКЕЛ АНТТЫН 
тт ЄК Sl TUS FH не 
ТОТА 7 ルト て で きす 


WOW TRA 


к олур 
Fe OMENNNL Posh 
ШЕШ АДИ 


Me215277 t$ 


倍速 ・ 倍 密度 


4 倍 密 度 


к С e Ts К yu ht. 
и" гу €> IK {HE ТУ —. MU 6 1 
J юш рта т 
ТИ 039072 — ') =, стуу 


CRT グ ラフ ィ ッ クス 


5 жагу CQ UB [rpg 6 4o. 
プロッタ グラ フィ ックス эйе сз єс UMS (ra TS ニュ ニュ ーー Y no зе ya 
種々 の 漢字 が プリ ント て きき ます 


(Кд: | 


印字 され ませ ん НШ 27 < の 2 栗本 る ドニ テリ ワー ント — w ます 


Br GST Zi E mb. 
WEC © Wa: ri ТУ mS — fo wu о $=, 
種々 の 渓 字 か プリ ーッ ト で きま す 


種々 の 頃 字 が プリ ント で きま すず す 


CRT グラ フィ ックス 


T] ぁ る 4。 を その 方 法 は 大 
きく 分 ける と 2 つが 
Е љо, Что)” 


KENT 


—. =, 
E の 


Isa з= — 1) رہ‎ 


と いう 文字 を 印字 する こと と し て , ブロ グ 
ラム 例 を 紹介 する 。 
① 整数 配列 に 格納 する 方 法 


100; = 
110 
120 


130 READ A$ と し て READ す る 。 

140 AXCIO)ZVALC'&H'*A$)—— 文字 変数 に &H を 足し て , 
150 NEXT I VAL を と る と 数 値 に 変わ る 。 
160 DATA pal. PETAR 2557; 2568, 2573, 2548 JIS コ ー ド 


E これ で , A96( ) 


Dimension -> JIS code 
DIM AX(5) 
FOR 1=0 TO 5 


字数 が 6 文字 な の で A%( ) に 
0-5 の 6 個 の 配列 を と る 
デー タ が |6 進 な の て 文字 変数 


اا ا ا 


283} 
ж 字 EA E ト (6€) 


漢字 JIS コー ド を キャ ラク タ に 変換 し て 


x“ 


の 整数 配列 の 中 に パ 漢 文字 列 ほ する 。 た と えば 「 漢 」 の コー ド は 16 
ЕУ T kt Q JIS= 進 で 3441。 こ れ を 上 位 (34) と 下位 (41) に 分 


ー ド が 入る こと に な 


の 


② 文字 列 と し て 格 


納 す る 方 法 


け , それ ぞ れ に 対応 する キャ ラク タ と する 。 
34 は 「4」, 41 は 「A」 な の で \4A7 と 
な る が , Z80 で は メモ リ に 格納 する と き に 
上 位 と 下位 を 入れ 替え る 必要 が ある の で , 
AA と な る 。 


漢 一 834 41(JIS コ ー ド ) 
ед" 


し た が っ て “R と いう 文字 は 
WA, と いう 文字 に 対応 する 。 


pp RD 
漢字 JIS コ ー ド 下位 


この よう に し て , 
2003x972 


1 つの 漢字 を 表現 する 。 こ れ を A$ と いう 
文字 列 に 格納 する L, 次 の よう に な る 。 


100 A$-" А42; x J%e%HX ` 
IEEE) 
= 字 pA E ir 


漢字 1 文字 ずつ キ 
ャ ラク タ に 変換 する 


字 JIS コ ユー ド か ら キ ャ ラク タ の 文字 列 に 変換 
する ルー チン を 紹介 する 。 


の は 大 変 な の で , W 


200 * 


JIS code => String 


210 A$-'" 
220 FOR I-0 TO 5 


230 
240 
250 
260 


270 
280 
290 
300 
310 NEXT 

320 PRINT A$ 

330 DATA 3441,3B74,2557,2565,2573,2548 


READ K$ 
K-VALC'&H'*K$)—16:£ox*7— 5 を 数 値 に する 
KL=K MOD 256 一 一 その 下位 を と る 

KH=K \ 256 
CL$-CHR$CKL)———T&* «2251-35 
CH$=CHR$ (KH) 
C$=CL$+CH$ 
A$=A$+C$ 


その 上 位 を と る 


上 位 キ ャ ラク タ に する 
キャ ラク タ を 下位 ・ 上 位 と する 
キャ ラク タ を 足す 
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これ で は よく 使う 2 ルー チン と し て は 長 す 
ぎる の で 変換 の 方 法 が 分 か っ た 6, KD 


A$-'' : FOR I-0 


短縮 ルー チン を 使う と よい 。 


^ J1S code > String ver2 
0 5 


READ K$ : K=VAL("&H"+K$) 


A$=A$+CHR$(K MOD 256)+CHR$(K ¥ 256) 


NEXT I : PRINT A$ 


DATA 3441,3B7A,2557,256A,2573,2548 


C, 次 に 漢字 プリ ント 出力 に 必要 な パ 
ラメ ー タ を 整数 配列 に 代入 し な けれ ば な ら 
な い 。 

ここ で は , P% ( ) と いう 整数 配列 を 

用 いる こと に し よう 。 
2 パラ メー タ は 3 つ あ る の で , DIM P% 
ЭЗЕ 。 

P96(0) 三 漢字 デー タ 先 頭 ア ドレ ス 
漢字 コー ド が 格納 され て いる 先頭 アド 
レス を 入れ る 。 こ れ に は , VARPTR と 
いう 関数 を 用 いる 。 

P%( 1 ) 三 印字 する 漢字 字数 


P %(2) = 漢字 モー ド 
上 位 パ イト 


P%(2)=&H 


e" 
(O—F) C0 —15F > F) 


漢字 タイ プ (0 一 3) 

〔 横 ・ 縦 3m/6mm の 指定 ) 
ビッ トイ メー ジ モ ー ド 
(0—6) 

【 エ プッ ン ・ プ リン タ 用 , 
PC で は 0 と する ]〕 


P%( 2 ) は 実は 下図 の よう に 設定 され て 


いる だ ため , ビッ トイ メー ジ モ ー ド を BIMD, 


漢字 タイ プ を TYPE, 漢字 間 ス ペー ス を 
SPACE と する と, 次 の 式 の よう に な る 。 


下位 バイ ト 


КАРК) 


y Re otc SERES 


(жо) 


漢字 タイ プ 漢 
(0 


Р%(2) 2BIMD * 256-- TYPE Ж 16--SPACE 


具体 例 を あげ る と, PC 用 で 漢字 コード 
が 整数 配列 A% ( ) に 入っ て お ぢ おり , 印字 


数 が 6 文字, 横書き 6m, 間隔 2 ドッ ト と 
する に は , 次 の よう に する 。 
P%( 0 )= ニ VARPTR (A%(0 )) 


Р%(1)= 6 
P% ( 2 ) =&Н22 
漢字 プリ ント の 実行 は , USR 関数 に よ 
5 行う 。 
U=USR (VARPTR (P%( 0 ) ) ) 


パラ メー タ を 格納 し た 配列 の 先 
頭 ア ドレ ス を 入れ る 。 
ここ で 注意 する こと は, P%( 0 ) ФР 
(1) に VARPTR を 使っ て アド レス を 代 
入 す る の は , USR 関数 実行 の 直前 に 行う 必 
150 


要 が ある と いう こと 。 また , USR 関数 の 左 
辺 の ダミ ー 変 数 は , P%( 0 ) Ф P%( 1 ) へ 
の 代入 以前 に , U=0 な ど と 指定 し て ぉ く 
必要 が ある 。 

これ は メモ リ 上 で , 変数 の 格納 アド レス 
が 常に 変動 し て いる か ら で あ る 。 単 純 変数 
は 配列 変数 の 前 に 格納 され る よう に な っ て 
いる ただ ため, プロ グラ ム 中 で , 配列 変数 の 後 
に 単純 変数 が 現れ る と, その 位置 が 自動 的 
に ズレ て , 入れ 替わる こと に な る 。 


サン プル ブ プログラム 


それ で は , サン プル プロジ ラダ を い ( つ 
か 紹介 し よう 。 ま ず は , 16 進 の 漢字 デー タ 
を 整列 配列 に 入れ て プリ ント する も の て 
漢字 タイ プ は 3 (横書き 3 m), ЖУА 
ー ス は 2 ドッ ト , 出力 文字 数 は 10 文 字 で あ 
る 。 (リス ト b) 

ここ で , “漢字 プリ ント ? だ け を 印字 する 
こと も で きる 。 リ スト 1 の 字数 と デー タ ア 
ドレ ス を 変更 する だ け で よい 。 

ру Ай 6 文字 

P%( 0 )=VARPTR(A%( 4 ) ) 

…5 字 目 か ら 印 字 

U=USR(VARPTR(P%(0)),… プ リン ト 。 


t 漢字 プリ ント 


次 は , 漢 字 デ ー タ が 文字 列 A $ に 入っ て い 
る 例 を 考え て みよ う 。 そ の 全部 を プリ ント す 
る に は , 漢 字 字数 は 次 の いずれ か で 求め られ る 。 

P%( 1 ) =LEN (A$)/2 2 まだ は 
P% (1) =PEEK (VARPTR (AS) ) 
ほ た , 漢字 デー タ 格 納 ア ドレ ス は , 次 の よう に な る 。 
P% (0) =РЕЕК (УАКРТЕ(А$) +1) 
+РЕЕК (VARPTR (А $) + 
2) *256-65536 / 

それ で は , リス ト 1 の プログ ラム を 書き 
替え て , 文字 列 デ ー タ の 出力 を 試し て みよ 
Jo スト 2 が それ 。 

リス ト 2 で , 漢字 デー タ を わざ わざ 文字 
列 に 直し た も の は , 実は を の デー タ を ディ 
スク ファ イル に 書き 込ん で むこ うと いう 理 
由 で ある 。 KU, その プロ グラ ム (リス ト 
3) を 示 を そう 。 こ の 例 で は , Kdata と いう 
ファ イル の 第 1 レ ュ ー ド に “スー パー 漢字 
プリ ント ” の デー タ を 書き 込ん で い ぃ る 。 で 
は , この デー タ を 読み 込ん で 印字 する プロ 
グラ ム は どう な る の で あろ うか 。 

GET IU ST HO Aem rA. up d 
ル か ら 読 み 込む と , 207—7 F 
ス は 次 の よう に な る 。 

Р% (0) =УАКРТЕ(# 1) + 9 

ここ で , VARPTR (#1) に 9 を プラ ス し 
て いる の は , VARPTR(#1) の 示す アド レン 
ス か ら 59 バ イト (0 一 8) は ラン ダム ファ 
イル の 各種 情報 (先頭 クラ スタ , ドラ イブ 
番号 ,. フ ァイル の 属性 な ど ) が 入っ て お ぉ り , 実 


際 の デー タ は 10 バ イト 目 か ら 入 る た めで ある 。 
ЖЕ, ラン ダム ファ イル か ら 漢 字 デー タ 
を 読ん で , 印字 する プロ グラ ム を 示す 。 (U 


リス ト 5 は, 漢字 ワー プロ ・ マ イレ ター 
88 で 作ら れ た デー タ を 読ん で 印字 する プロ 
グラ ム 。 リ スト 6 は , 邦文 で 作ら れ た デー 


スト 4) 

これ まで の サン プル プロ グラ ム は , スー 
パー 漢字 プリ ント の 説明 が 多かっ た 。 そこ 
C, も っ と 実用 的 な ゲロ グラ ム を 示す こと 


タ を 印字 する も の で ある 。 


お わり に 
= с m 


ELEC, スー パー 漢字 プリ ント の 使い 方 
と サン プル プロ グラ ム の 紹介 を 終わ る 。 漢 
字 デ ー タ の 準備 や 印字 指定 な ど 少 し 手続 き 
が 面倒 な と ころ も ある が , 慣れ る と いろ い 
ろ 使 を る ソフ ト で ある 。 多 名 印刷 や あい る 
つう 状 な と よく 使う.6 の ダブ データ LL 
き , いつ で も 印字 る きせ る な ど ア イデ ア は つ 


SN の き な い と 思う 。 
100 “ 
110 “° Sample 1 
12055 
130 CLEAR ,&HE2FF : "PC-880 1 / マ シンコ " 7?02"5h リョ ウイ キ / DIÑ 
140 BLOAD'Kprt88.PC" : "PC-880 1 / マ ラン コ " 7° ロク" ラム / ロー ト * 
150 DEF USR=&HE300 :U=0 : "PC-880 1 / マ ミタ ンコ" / カイ シア ト " レ ルス 
160 “ 
را‎ 170 FOR I=0 TO 9:READ AX(I):NEXT: DIS" 7"-9 リー ト " 
A 180 DATA &H2539 , &Н213С, &Н2551 , &H213C , &H3441 
ト 190 DATA &H3B7A,&H2557,&H2564,&H2573, &H2548 
1 200 ' 
210 BIMD=0 : Bit Image Mode...Not use for PC 
220 TYPE=3 : "カン シラ" タイ フ ? 。。 。 タ テカ " キ / ヨ コカ " キ /3mm/6mm 
230 SPACE=2 : カン シラ" モ シ "カン Dot Space 
240 P%(2)=BIMDX256+TYPEX16+SPACE 
250 PX(1 )=6 15°29 
260 GOSUB 290 
270 END 
280 ^ 
290 P%(0 )=VARPTR( A%( 4 ) ) 3 “ テ "ー タ アト "レス 
300 U=USR(VARPTR(P%( 0 ) ) ) 1/925 JN 
310 RETURN 
100 * 
110 / Sample 2 
1:206 
130 CLEAR ,&HE2FF : PC-880 1 / マ シン コ " 7°07“3h リョ ウイ キ / DIÑ 
140 BLOAD'Kprt88.PC" +: PESOS «7*2 5427 Dos 
1) 150 DEF USR-&HE300:U-0 : "PC-880 1 / マ シン コ " / カイ アト" レス 
ス 160 ^ 
ト 170 A$-'':FOR I=0 TO 9:READ КФ : о>“ 7"-9 Y-A“ 
2 180 K-VAL(C'&H'*K$) 
I 190 A$-AS«CHR$CK MOD 256)+CHR$(K ¥ 256) 
200 NEXT I 
ZI0$2DAIA:2939,219€,2551,213C€,3441 
220 DATA ЗВТА, 2557, 256А, 2573, 2548 
f 230 7 
240 BIMD=0 : Bit Image Mode...Not use for PC 
250 TYPE=3 : DYS“ 97°... 97)“ +/3130° £/3mm/ómm 
260 SPACE=2 : カン ジ " モミ "カン Dot Space 
tu 270 Р<(2) =ВІМ0ж256+ТҮРЕЖ16+5РАСЕ 
He 280 P%(1)=LEN(A$)/2 19" 25 
vos: 
ү 


290 GOSUB 320 

300 END 

310” 

320 P%(0)=PEEK(VARPTR(A$)+1)+ 
PEEK(VARPTR(A$)+2)%256-65536! :/7*-9 アト "レス 

330 U-USR(VARPTRCPXCO))) DS DPI S 

340 RETURN 


100 * 

110 “° Sample 3 

1205 

130 A$-'':FOR I=0 TO 9:READ K$ 0 カウ シ 2 チー ター リド 5 
140 K=VAL( `&H'+K$) 

150 A$=A$+CHR$(K MOD 256)+CHR ま (K ¥ 256) 

160 NEXT I 

TC0SDATA-29539,213C,2551,213C,3441 

180 DATA ЗВ?А, 2557, 256А, 2573, 2548 

2902 wo: 

200 OPEN 'Kdata' AS #1 1/2959" ム ぬ フ ァイル カキ コミ 
210 FIELD 81,128 AS A1$,128 AS B1$ 

220 LSET A1$-A$ : LSET.B1$-'' 

230SPUTS SL, 1 

240 CLOSE #1 

250 END 


100 ^ 

110 “° Sample 4 

120" 

130 CLEAR ,&HE2FF : "PC-880 1 / マ シンコ" 7° ロク "ラム リョ ウイ キ / DIR 
140 BLOAD'Kprt88.PC" : "PC-880 1 / マ ミン コ " ファ ログ "ラム / D-h" 

150 DEF USR=&HE300 :U=0 : "PC-880 1 / マ タン コ " / カイ アト" レス 

160 * 

C Era D 

180 OPEN 'Kdata' AS #1 : ランタ" ムフフ ァイル ヨミ コミ 

190 FIELD #1,128 AS А1%, 128 AS B1$ 
200 СЕТ #1,1 

210 

220 BIMD=0 

230 TYPE=3 : 
240 SPACE-2 r 

250 P%(2)=BIMDx256+TYPEx16+SPACE 

260 P%(1)=10 FAROE 

270 GOSUB 310 

280 CLOSE #1 

290 END 

300 “ 

310 P%(0)=VARPTR(#1)+9 : "ファ イル А977 37-9 アト "レス 
320 U=USR(VARPTR(P%( 0 ) ) ) カジ ワッ リッ ト 

330 RETURN 
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7 DEDE DE DE E DE E DE HE IE E DE FE JE FE IE FE PE JE E IE HE JE RE FE JE FE JE E JE E JE FE PE JE FE JE FE FE FE 
и LETTER.88"' x 
,* Kanji Print for MYLETTER File V1.0 x 
40 E Copyright (C) by Shinji Omuta x 
x x 
 XXOOOCOCOOOOOCOCOOCOCOOOOCOCOCOCOCOOOOOOCOCOCOCOCOCOOCOCX X 


100 CLEAR ,&HE2FF:DEF USR-&HE300 

110 INPUT'Priter Туре (PC/MP/MPA/RP/KXO * ; КҮФ:РРІМТ 
120 BLOAD Kprt88. `+KY$ · 

130 DEFINT A-Z:U=0:CR$=CHR$(&H27)+CHR$(&H1A) 

140 IF KY$-'PC' THEN LPRINT CHR ま (27Z)"Q"CHR ま (27) "С"; 
150 IF KY$z'MPA' OR KY$="MP" THEN BIMD=1 

160 IF KY$="RP" THEN BIMD=4 

170 IF KY$-'KX' THEN BIMD-1 

180 P%(2)=BTIMDX256+3※16+2 

190 PRINT'2"»23a ファ イル ヲ ト " ラ イフ "2 = セッ リト シテ [RET] キー 7 オシ テク タ “ サ イ 。" 
200 КҮФ=ІМКЕҮФ; IF КҮФ< >СНе%Ф( 13) THEN 200 

210 FILES 2:PRINT 

220 INPUT file name “$F$ 

230 F$-'2:'-4F$ 

240 OPEN F$ FOR INPUT AS *1:CLOSE:0PEN F$ AS #1 : РМАХ=1 ОЕ (1) 
250 FIELD *1,82 AS A ま (0),82 AS A ま (1 ),82 AS A$(2) 
260 BF=VAPPTR(#1)+9 

Zn s 

280 FOR R=1 TO RMAX 

29D0:—85E:3-3F T, f 

300 FOR J=0 TO 2:C-2INSTR(A$C.D ,CR$) 

310 IF C20 THEN PX(12-40:GOTO 330 

320 P% を ( 1 )=(C-1 )/2-1: IF P%(1)=0 THEN LPRINT:GOTO 340 
330 GOSUB xKPRINT 

340 NEXT J 

350 NEXT R 

360 GO10 220 

sse 

380 

390 xKPRINT 

400 P%(0 )=BF+J※82+2 

410 U=USR(VARPTR(P%(0 ) ) ) 

420 RETURN 


= 


10 ^. эе эе ЭЄ ЭЕ © ЭЄ ЭЕ ЭЄ E ЭЄ ЭЕ KE E E ЭЕ E ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ EK E E ЭЕ E XW E E E X E E ЭЄ 4 ЭЕ ЭЕ 


20 ж "HOUBUN ` x 
30 “x Kanji Print for HOUBUN Data File x 
40 “ж Copyright (C) by Shinji Omuta x 


р 
50 “x x 
60 Y жжэжэжэж ж ж ж жж ж ж ж ж Ж Є ЭЄ ЖЄ ЭЄ ЭЄ ЖЄ ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ Є ЭЄ Є ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ Ж Є ЭЄ Э ЭЄ 
eU , 


100 CLEAR ,&HE2FF:DEF USR-&HE300 

110 INPU[ `Priter Type (PC/MP/MPA/RP/KXO ';KYS$:PRINT 

120 BLOAD'Kprt88. '+КҮФ 

130 DEFINI A-Z:Uz0:CMAX-40:PX( 2) =&Н132 

140 IF KY$-2'PC' THEN LPRINT CHR$(27)'Q'CHR$C27)'LOOS'CHR$(C27)'E" 
150 PRINT'7*7239 ファ イル 9 ト " ラ イフ "2 = セッ トシ ラテ CRET] キー ヲ オラ テ クタ "サイ 。" 
160 КҮФ=ІМКЕҮФ:ІҒ КҮФ< >СНРФ( 13) THEN 160 

170 PTEES:2 

180 INPUT "file name ';F$ 

190 F$-'2:'4F$ 

200 OPEN F$ AS *1:RMAX-LOF (1) 

210 BF=VARPTR(#1)+9? 

220 

230 J-128:4$-'" 

240 GET #1,1:6050В xDATA.READ 

250 IF KH=&H1A THEN 320 
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J=0 
FOR R=2 TO RMAX 
GET *1,R:G0SUB xDATA.READ 
IF KH=&H1A 1HEN 320 
NEXT 
CLOSE #1:6010 170 


XDATA.READ 
FOR I=j TO 2353 STEP 2 
KH=PEEK(BF+I):KL=PEEK(BF+I+1) 
IF KH>&H4F THEN KH=&H21 : KL=&H21 
IF KH=&H1A THEN RETURN 
IF KH<>&HD THEN 410 
IF LEN(A$)-0 THEN LPRINT:GOTO 430 ELSE GOSUB *KPRINT:A$="":GOTO 430 
A$=A$+CHR$ (KL )+CHR$(KH) 
IF LEN(A$)>=CMAX*2 THEN GOSUB xKPRINT:A$-'" 
NEXT I 
RETURN 
XKPRINT 
FD=VARPTR(A ま ):P%( 1 )=PEEK(FD )/2:"N=LEN( A$)/2 
P%( 0 )=PEEK(FD+1 )+PEEK(FD+2 )*256-65536 ! 
U=USR( VARPTR(P%(0 ) ) ) 
RETURN 


を 楽し く / 


1984 年 7 月 掲載 


デモ ンス トレ ーション 
о WW O 


N-BASIC は 1979 年 PC-8001 に 搭載 され 
て 以来 , 8801, 8001MKII へ と 引き 継が れ ほ 
か の BASIC の 仕様 に も 多大 な 影響 を 与え 
て いる 。 この 言語 で BASIC を 学ん だ エー 
ザー も 多く , 著 積 され た ソフ トウ ェ ア が 現 
在 も 活用 きれ て いる こと は PC-9801 用 N- 
BASIC ROM の 製品 化 か ら も 明 ら 5 か で ある 。 

漢字 処理 が で き な い , グラ フィ ックス 機 
能 が 十分 で な いこ と な ど 利 用 分 野 に よっ て 
は 多く の 制約 が ある が , 基本 的 な ステ ー ト 
メン ト や テク ニッ ク を 膨大 な プロ グラ ム の 
中 か ら 盗 み と っ て ほし い , と いう の が ね 
らい で ある 。 こ こ に 紹介 する プロ グラ ム も , 
そん な N-BASIC に こだわ る マニ ア の カ 
作 だ 。 


作者 より 
Eon o 


LOCATE x, PRINT x, COLOR 文 な 
と を 使っ て デモ ブログ ラム を 作っ て みた が , 
意外 と 目立た ず , も し ろく な い …。 そん 
な 経験 は あり ませ ん か ? それ は 私 達 の 目 
が コン ピュ ー タ の 表示 に 慣れ きっ て いる せ 
いか も し れ ま せん 。 

この デモ ・ ボ ー イ は デモ キャ ラク タ が 画 
面 を と ころ 狭し と 飛び 回 っ た り , 立ち 止ま 
っ て 考え こん だ そ ぶ り を 見 せ た り と あな だ 
の 作っ た デモ プロ グラ ム を ウィ ッ ト に 富ん 
だ も の に 変え る ユー ティ リティ で す 。 学園 
祭 や 店 頭 デ モ な ど に 利用 し て く 《 く だ さい 。 


機 В 
p A LL 


画面 に “O の キャ ラク タ が 表示 され ま 
す 。 こ の キャ ラク タ を 移動 る させ た 位置 を 
LOCATE 文 の 座標 し とし て 取り 込み , 
РАТА ЕЕН ООО ELT, 
この DATA 文 を あな だ の 作っ た デモ プロ 
グラ ム に マー ジ す る わけ で す 。 て くわ しい 使 
用 法 を 次 に 述べ ます 。 


使用 方 法 
к л 


リス ト 1 の プロ グラ ム を 正確 に 入力 し て 
くだ きい 。1330 行 と 1340 行 の 引用 名 中 の 


DOOD 
回 回 回 回 _ 


カー ソル の 動き 


図 1 


GOTO 文 に 行 番号 指定 が あり ます の て 
RENUM 文 で 行 番号 を 変 た た りす る と き 
に は 注意 が 必要 で す 。 入 力 し た ら , まず セ 
ك‎ E 

何 も 起 こり ませ ん 。 テ ン キ ー の 回 を 押し 
て み ま し ょ う 。 左上 の スミ に デモ ・ ポ ボー イ 
%@” が 現れ まし た 。 そこで, 図 1 の よう 
に キー 操作 し て 動か し て くだ さい 。 動 か し 
終え だら, バ *? を 押し て み ま し ょ 5. B 
が 消え て DATA 文 を 作り 始め ます 。 
DATA 文 に する 作業 が 終わ る と ふた だ び 
画面 が 消え て , 先ほど 自分 が 動か し た と お 
b の 動き で , デモ ・ ボ ー イ が 走り 回 り ま す 。 

PISTA 
と 入力 し て みる と , DATA 文 が 作ら れ て い 
る は ず で す 。 確 かめ て くだ さい 。 

этїї, デモ ・ ボ ー イ に 人 間 (《 る る を 
出す タイ マコ ント ロー ル を 試し て み ま し ょ 
5, 音楽 で いた ば, メロ ディ に リズ ム を 加 
える わけ で す 。 

5 の キー に 続い て , `+” キー を 押し ま 
す 。 す る と , 右上 の 方 に ? マー ク が 出 き 
ます 。 こ こ で 次 の 動作 に 移る まで の 時 間 を 
1 255 の 範囲 で 入力 し ます 。 とりあえず, 

50 Q 
EULESS У ООД 
押す と , デモ ・ ボ ー イ が 下 に 動き ます 。 < 
の 2 歩 は 時 間 50 で 動く わけ で す 。 ま た だ ~※*” 
を 押し , 

40 Q 
と 入力 後 , テ ン キ ー 2 を 2 回 押す 。 ま だ ^ 十 ? 
キー を 押し , 

30 Q 
2 を 2 回 。 同 様 の 手順 で 20, 10 と 減ら し な 
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が ら 6 入力 , 10 か ら は 8, 6, 4, 2 と 2 き 
ざ み で 減ら し ます 。 

2-9 
の あと 2 を 2 回 押し た ら , `*? を 押し て み 
まし ょ う 。 加速 の イメ ー ジ が つか め だ と 思 
us dr 

参考 プア ログ ラム と し て , 私 の 試作 し た \30 
秒 シ デア ター” の デモ を リス ト 2 に 示し ます 。 
1430 行 か の ら の デー タ は , も ちろ ん デモ ・ ボ 
ー イ の 出力 し た DATA 文 を マー ジ し た も 
の で す 。 

®’ の キャ ラク タ が 助走 を っ つけ て 穴 を 
飛び 越し た り , 階段 を 転げ 落ち た り , BEC 
ぶつ か っ だ り と , アニ メー ショ ン み た だ いら ぞ 


デモ ・ ポ ボー イ の ~30 秒 シア ター? 初期 画面 。 降 
り た ボー ル が 穴 か ら 落 ち , は ずん で いる と こ | ろ 


すね 。 自分 で 工夫 し て , デモ ・ ボ ー イ に 「 文 
fa を 描か せる な ど 芸 達者 に 育て て や っ て 
《 だ さい 。 


プロ グラ ム の 説明 
L 


まず , DATA 文 作成 の と ころ で 本 誌 1983 
年 4 月 号 の 「 フ ァ ン クシ ョ ン キ ー の 応用 」 
を 利用 し まし た 。1210 行 か ら の ルー チン で 
す 。1400 行 か ら は DATA 文化 され た デー 


階段 を | ステ ッ プ ずつ 降り る デモ ・ ボ ー イ 。 ま 
る で 生き て いる よう に 動い て いる 


タ を 使っ て , 動き を 再現 で きる よう に し て 
r a 

LY KZ—Z&HFFELTO TE 
標 の デー タ で &HB000 か ら 使 用 し ます の 
T, 1030 行 の CLEAR 文 で メモ リ を 区 切り 
“sdm e 

プロ グラ ム 中 の 変数 W は 

入力 され た 座標 の 組 の 数 2 

AD は 座標 を 一 時 スト ア し て お く 《 メ モリ 
の スタ ー ト 番地 で す 。 し た が っ て 。 マー ジ 
する プロ グラ ム が 長い 場合 に は 1030 行 と 
AD の 値 を 変え て くだ きい 。 


ボー ル が 


オリ ン ピ ッ ク の ハー ドル 飛び ? 
軽々 と 障害 物 を 飛び 越す ぞ / 


[ 


1149 
1159 
1169 
1179 
1189 
119@ 
1200 
1210 


را 
A‏ 
ト‏ 
1 
Е‏ 
t‏ 
T‏ 
T‏ 


1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1220 < 
1230 ' 


1000 * 

1010 / Key in 

1020 * 

1030 CLEAR 300,&HAFFF 

1040 U-0:AD-&HB000 :L-5000 

1050 A$-INKEY$:1IF A$-'' THEN 1050 

1060 IF A$-'*x' THEN POKE AD-*U,&HFF:GOTO 1220 

1070 IF A$-'«' THEN POKE AD-*U,&HEE:U-U-1:ELSE 1090 
1080 LOCATE 70,0:1NPUT A:POKE AD-*U,A:U-U-1:GOTO 1050 
1090 DX=(INSTR( "231564897" ,A$) MOD 32-1 

1100 DY=(INSTR( "417528639" ,A$) MOD 3)-1 

1110 XX=X:YY=Y:X=X+DX:Y=Y+DY 

1120 IF X=89 THEN X=79 

1130 IF Ү=25 THEN Y-24 


IF X=-1 THEN X=9 

IF Ү=-1 THEN Ү=@ 

LOCATE XX,YY:PRINT ` `; 
LOCATE X, Y:PRINT "®"; 
POKE AD*U,X:U-U-*1 

POKE AD*U,Y:U-U-*1 

GOTO 1050 


DATA making 


I-0 

PRINT CHR ま (12):LOCATE 98,1 

FOR J=9 TO 19 
PRINT L*Jx10; ` 
FOR K=0 TO 4 
PRINT PEEK(AD*Ix100* Jx10*KX2) ;  , ;РЕЕК(АО+1ж100+.)ж10+Кж2+1);","; 
NEXT 
PRINT CHR$(C&H1D);" 

NEXT 

IF Ix100*Jx10*Kx2»5U THEN PRINT "GOTO 1410 `:GOTO 1350 

PRINT `L=";L+100;  :I-2* 5; 1415;  :Uz' 5U; ° :AD=&H" ;HEXSCAD) ; ° :GOTO 1250" 

AS-STRING$C21,13)*CHR$(C0) 


DATA'; 


156 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


A-VARPTR(CA$) 
POKE_&HEDC9 ,PEEK( A+1 ) :POKE &HEDC1,PEEK(A*2):POKE &HEA68,1 
LOCATE 9,9 

END 


^ Qutput 


PRINT CHR$(C12); 

RESTORE 5000 

READ X,Y 

IF X=&HFF THEN 1540 

IF X-&HEE THEN T-Y:GOTO 1510 
LOCATE XX,YY:PRINT ' '; 
LOCATE X, Y:PRINT 'e'; 
XX-X:YYzY 

FOR 1=9 TO T 

NEXT 

GOTO 1450 

END 


WIDTH 40,25:CONSOLE 0,25,0,0:COLOR 9 

DEFINT A-Z 

PRINT CHR$(12); 

RESTORE 1210 

READ A$:1F A$-'end' THEN 1070 

PRINT A$ 

GOTO 1040 

RESTORE 1430 

READ X,Y 

IF X=&HFF THEN 1160 

IF X=&HEE THEN TzY:GOTO 1140 

LOCATE XX,YY:PRINT £ '; 

LOCATE X, Y:PRINT e"; 

XX=X: YY=Y 

FOR I=0 TO Тж2:МЕХТ 

GOTO 1989 

FOR X=9 TO 39 

LOCATE 9,18:PRINT RIGHT$(" 

FOR 1=1 TO 10:NEXT 

NEXT 

GOTO 1200 

DATA" 

DATA'N 

DATA" N 

ОАТА М 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA" 

DATA end 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


30%572--5":IXK"@';,X+2); 
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SAD DATA 14 220828855. 1515 FD te SE 3 
1550 DATA 19:389 IS: SOF OST IAT 409: 4: 22; 532 
1556 DATA 2381. 1001 723". Т^, 2982 922005. 229, 0 23» 
1570 BATA 22 , 04, 23-, 1 238 0500722587, 20 ‚22; 
1589 БАТА За , 1050921 ,- 3 U 23809 0200. 3 5092997; 
IS9 DATA 19 49984238 , 3,185 49002389502. 6 ВЫ З 
9 


BN 


ООА DATA Заа O. 3». 3556895, 145,3. 439... 2 

E DATA 42 ç 195912 TOS 239.5 OT INO, IAS 

1б205 DATA 13-,@ 12 09.11. 01512 , 0. , 13 y 9 

1630 DATA 12 , 0 , 238 , 200 , 238 , 200 , 238 , 50 , 12 , 1 
1640 DATA 238 , 40 , 12 , 2 , 288 , 30 , 12 , 3. , 238. , 20 
1250 DATA 12 , 4 , 238 , 10 , 12 , 5812891015 E 20816 

deco. DATA 42 329.5 12. , 0 . 12 39298 И Петти 

1670 ` DATA 2383 , 20 , 238 , 10 , 12 , 3 , 289^, SIDA $34 


ТАБИ DATA 12 , 522 238 , 3 y 1274 6.» 238. , 20. , 12 409 
EB DATA 122: TN оо 9125,57. 12 0,8 
ООО DATA 12 55812-1561. 12 ES lo, O, 125,072 
IBLE DATA 12 , 6 S7 297, 11-565 10 7 6 , © 
1720 DATA 8 , 6 288 , 100, 087 6 O 6 , 8 ,.5 

RO parta S 62 1825. B, & y 288 728 2 ¿é 

ТА: DATA 102,265, 238 , 10, 115%, 6 . 12 OT 13 +. 6 
1750 DAIA IA SE CIE 407, 151761, ЛО 6 y 258 80 
О ДАТА WEE ss АТ ы S LIT E Y ЫЗ, 105 56 
О DATA 16 СЕ, Бу 6 , 238159499; 6 1355-6 


1789 DATA 238 , 
1799 DATA? , 6 
1899 DATA 8 , © 
1810 DATA 11 , 6 
1820 DATA 15 , 6 
1830 DATA 16 , 5 
, 6 
, 6 


12-, 6 911030697010 05.6 HOBIE 


* » Ul 


9817. 20, 298651 / 9,56 , l02:«6 
Ug, CAS. O IA 526. ог 299* , 11 

‚ 238 , 20 , 16 26: 0t183915 "pa ló ntas 

# МЄ.» б^, 29B 209158, 6-023919 
, 


1840 DATA 14 2387. 2 1З 65512 1. 298 ә 
1850 DATA 11 10-, 6, 238981582 ES (72389. 771 
TSE DATAS 216 S Cor D 516 s 205) 9 599^ Д, 6 

loro DATA. 3 2769) 3 ти 3o» 860 09.185 S; RB 

1880 DATAS , 7 S 6 > 4, 6 .-3.-986150205 € 

1890 DATA 2 8 $5:1*, 8 “Q y 8215.0. T0 1X9. ; 6 

1900 DATA 1 。 é s 2 » 6535» е АВ ;f9 9 

1910. (DATA 6 19 5008, y 298 2750 В Эи 22, 9 

1920. DATA 238. 7 , 10,79? , 11 5 9 238) , 10хт/і28+ 9 
19309 DATA 238°; 202 13 , 9 , 149. 9, 2980120 5713 5^3 
1940 ЧАТА 16 99,9147 , 915. 18 49 5, 10 O sS LO 
19505*BATA 171," 9:,v41889r9 。 17 , 9 , 1639180151645 88 
1960 . DATA 16, 9. , 16 , 8 , 16 ; 9,16 5 2 x 8909 
1970 DATA 1922498, 20 V 91,5215. 91," 28822 1007225,9 
198058DATA 2389,51 X. 215, 9, 20099 na の 9.94 183 7 
19990 DATA Те ЭО , 9 у. 19-0 987109479 313 2 
2000 DATA 312 095,014 4 9-7, 10, 96.2 5 9. 8 9 

2010. DATA 238., 10, 7 , 9 , 6., 91M 2385, 20 55529 
2020 DATA 238 , 100 ‚ 8 
2030 DATA 4 , 9 , 23 E 


, 
8 
2040 DATA 238 , 5 , 7 › 8,9994 «905 10-9 9 
2050 DATA 11 2 


2060 DATA 15 


4 の d SERBIEN. э A 


, 1 a E O 495 83 5,897,510. 7, 29 

, 288. 。 2, 169599 5 1025797732895, dM 

2070 DATA 18 , 19.5 957, 209,095. 21.402 $4522 989 

209B DATA 23-, 8-, 24 , 8 , 2514 2 , 26. 49 5:298. , -10 
2090 DATA 27 , 10-, 28-; 10 , 27 10777267, 109: 2900,28 
2109 DATA 26 , 9 , 26 , 10 , 299989 , 26 , 10 , 25 , 10 
2110 DATA 24 , 10 , 24 , 11 , RE1 , 25 , 10 , 26 , Ие 
2120 DATA 27 , 10 , 26 , 10 , RSMO, 24 , 10 , 24 , 1 
2130 DATA 238 , 10 , 23 , 11 O12, 238 , 20 , 235 11 
2140 DATA 24 , 11 23 , 11 ,] 9808402, 23 , 11 , 24 , M1 
2150 DATA 23 , 11 28 , 12 , ROSEO , 22 , 12 22 13 
2160 DATA 21 , 13 21 , 14 , BBO , 21 , 130, 21 14 


2170 DATA 21 , , 14 , ОМ , 238; , 2 $21 , ИА 
2189 DATA 21 , 13 22 , 13 , "2A, 235, 12 3423 ,M1 
2190 DATA 24 , 11 24 , 10; 29590510 5-26 , 10 5723895 * 10 
2200 DATA 27? , 10 28 ,.10 , 2385, 100, 28 , 9^, 285 xd 
2210 DATA 28 , 9 4285, 10 , 238 5s 10% 20 „ 10 OS a 
2220 DATA 26 , %@ , 12386, 15, 29 4 195 29. „ % 2 ¿3 
2230 DATA.24 , 105 2^ , Wi , AES 10175529. МӨ 4 235 11 
2240 -DATA 236 421, 2% „ 11 ,:224., SE x 22 + £42... 192. ДӨ 
2250 DATA 22-, 12 , £22 p 116, ARL BR 21,482 BAS 14 
2260. DATA-21 AA 90 215, 13 , 20 ., 125 2L , Ut 81. 2 
2270 DATA 21 513 £ 210» 14:833521 £ 13b 25 REC ALS 1% 
2280 DATA 21 F 12%, 25:5, .139t5 2180114. 020,14 г 238. , 20 
2290 DATA 20 £ 15 BE238 €; 10 , 20,916 , 238 55 4120 nd? 
2300 DATA 238 , 320 18 „ 288 £ 2 я 20 5 19а 206, 18 
2310 DATA 238%, 3952920 „ 17и 238 a Ser 2911, 1610, 238 |, 0 
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29320 SDATABASS ; 35,526, 17445238-, 2,, 20. ; 18^, 238 ., 3 
2330 DATA 20 5,519 4, 238.4 99, 208 , 18 , 720 , 1179, 2085518 
2340 JDATA.20 OS; 2380, 20... 19, 19,238 , 10 , 18.5. 19 
, 
, 


2350 DATA 17 , 19 16, 195 946-5, 18 , 4165, 19-, 2ЗВ „10 
2360 DATA 238 , 2 Е ТОЖЕ 418", 19 . 195, 19 , 20. , 17 
2370; DAS 238. , 9.10.5 238 ., 574.19 „эз, 18 „19 , 238059 
23880 DARA 17 , 19985 le 19089 37 , ТИ 105 85, 17°, 19 
2390 DATA 17 , 16 y МО 155, 16590200 , 165; 493 , 47 
2400 DATA 12 , 115—192, 107, 18-, 10 ИОВ. 8 
2410 DATA 10 , 19 O DES ils 2997212. 5 995. 19 5,909 

, 

, 


, 
, 
2420 DATA 14 1:295 7820 9146, 5195, ИДЕ 19, 014 518 
2430 DATA 14 SEDO IO 13.5 19/5. 22809. 4-122, 19 
2440. DATA. 238 , ЗЕЕ ШО 238, 2 010.390 95,10, 18 
2450- DATA-10 217 519210 5516 4,1238. 20:5 p 10, 2388510 
2460 DATA IOS, 1980, 52885, 2010. , 195, 10115; 0192,12 5-12 
Жул улу лал ш түй O28 15: 2015» 238 wS ^, 375 19 
ZAGOE DATAS2SS: Ol II, 238 2, * LAE 193.0125, 192 
2490 DATA I2 5,5189, 914^ 10 ,311—^ 16-;^20- ; 1959-49 


2500scc DAS: И oci за Dau 512-4230 9: 20«4:238-.,10 
2510 -JDATASOS 2 1305 29H изе 4 ,5239-, 3-7, 9,129 
2520. DATAS8-, 159.3855 Ие В 17 , 238982 48. , 18 
сез DAVOS AE a AE TON Т, 11977. тоте у 9-, 29 
2500 DATS AS I9 2238 OTS 19 , 4 , 191 W 18 
2950 BRT A o 1 5 S 5 492 299-, 10 
2560  DATA-6 , 195. 7 , 19 , SON IMPLI CTOOIS , 19 
2570 E DATOS 19: 7, 70. edo En 17 (2 9I go 19 
BRS DAT 19:5, 9559192, 098*, 20 SS 19 $96 , 19 
ESOS DATA 238°, 10... S , 19 , 298 Ww: Ои ATTAN 4 , 18 
Ња C10 20 16-4575 16,2692 КОВОГО 18 
2610 DATA 8 , 19 , 238 5$ OH ISIN BIBH 3,483, 18 
2600 DATA Sn ОЕ GG IM LI - i6 L 8 oua 18 1 Be 19 
SSA DATA S. 18, "8b 189 2258: 20 T P19.-,2299. , 10 
SEA АТОН , 19 ,-238 5,4 5-313599, 319 x, 524: эл, 19, 18 
2650 ЗВАЛЕ 17 , 4 。 16 , 4, 15 , 4 , 14 , 4 , 13 
SCOOT MA 542 ,65712-S.*1-4 13. 2 ,14:,:83,715 

Y eO ШАЛКЫ 16 CE 0115.39 プッ 6 18 

dicm 2SBAPURTAES: s" 17:55, 4495 16-579 3719. 916-9500 5 "0814 
2699 DATA Š 15: 4,538 3,9165: BT 17,8 409 s 360119 
22805 DATA 2 SS ОСВЕН 9s 5 1B 4-9. 9 407,8. «19 
2TÁBPRUBETACON,; 49 , 8 , 18 , B , 17 ‚81, 18 , 99,51? 
ОЙК DADA PST 19 «89549,2898 , 10 , (4.5 RE 238. , 3 
SS BOTA 19 , 298 , 2, 5 , 19 , 288. ,;^ 15-4 , 18 
2740:  DATAeA SLC 54155169341, 19- 523829155 4 14 
2790 -DATA:238-, 3:574 $1135, 238 , 10 , 4, 12 9.238 22080 


2760 GUATA31238 , 20 , 238 , 10., 5 , 12 $463 NEI i? , MZ 
2770- DAÀTAL298 - 20 5298 20, , 298. IO 6.5 12 , 23945. 5 
2780- DATAEDS 2,779885 qu Iq ФОНО ЗЫ DO SS 11 


QpO OARS 12 , 3°, 11 , 3 , 12, 3, d1 g10 
{ 2800 OARS. 11.5.3, 42 , 2., 12 ,-238 , 204, 2,14 
б 2810 —DATAE298 , 16., 2 ,-14 た 238 7310 90214 15 , 238 8 
& SSDNA TS 46 y 288. SO 2 . 10 O 1,2, 18 


b SEG DATA 2— 19 , 2, 18 ,2 , 17 , 238" 9, 2, 16 

ee 28405 DATA:1298 $4 5 , 2 , 19. , 298 , 10 214.238 , 20 

ЗЕБО DATA 23. 19.. 2 , 15, 298, 5. 2 16 2 » 17 

ya 2860 DATA 238 , 3 , 2 , 18 , 288 1 2 , 19 , 238 , 2 
2070 BANAT 49 , 0-301959 B 4 18 .. 255. 255 
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83 年 11 月 号 特集 で 「 構 造 化 ア ログ ラミ ン 
グ 」 の 必要 性 が 述べ られ て いた が, PC-8001 
の 場合 , 容量 不足 か ら メ モリ オー バー に な 
る 可能 性 が ある 。 こ こ に 紹介 する 「 メ モリ 
レス キュ ー」 は PC-8001 で 構造 化 プ ログ ラ 
ミン グ を 実現 し た い 人 , また メモ リ を 有効 
に 使っ て プロ グラ ミン グ し た い 人 の た め の 
プロ グラ ム 圧 縮 ツ ー ル で ある 。 は まだ た, 合わ 
+ 2= )E#iO 72 = > 2 RMN 2. 

(編集 部 ) 


「 メ モリ レス キュ ー」 で は 

① テ キス ト 文 中 の 不用 な スペ ー ス 削除 
マルチ ステ ー ト メン ト 化 

③ 不 用 な REM ХОН 
を 行い し スモリ に 占め る プロ グラ ム の 容量 
を 減ら し て や る わけ で す 。 

あと で 述べ る 理由 で , この プロ グラ ム を 
ロー ド し て も メモ リオ ォ オーバー し た BASIC 
プロ グラ ム に は 影響 あり ませ ん の で 安心 し 
て 利用 し て くだ きい 。 


使用 方 法 
E v v 
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@ プロ グラ ム の 打ち 込み 方 法 
CONSOLE 19, 6, 0, 1 О 
WIDTH 80, 25 Q 
と し て , 画面 を CLR キー で 消し ます 。 
この 作業 は 必ず 実行 し て くだ きい 。 プ ブロ 
グラ ム の 駐在 する エリ ア を 確保 おす る た め に 
必要 な の で す 。 ま た , プロ グラ ム 打 ち 込 み 
中 , つ まり 上 記 の 前 処理 で CLR キー を 押 
し た あと に は CLR キー に 触れ な いで くだ 
きい 。 
MON © 
で モニ タ に 移り , S コマ ンド を 使っ て リス 
ト 1 を 打ち 込み ます 。 
チェ ッ ク サ ム を 確認 し た ら , ふた だ び モ 
ニタ に も どり , 
ж WF300, FBE7 の 
で セー ブ し ます 。 
@ ロ ー ド の 方 法 
圧縮 し た い プ ログ ラム は 先 に ロー ド し て 
お いて も , あと か ら で も か まい ませ ん 。 
打ち 込み の と き と 同 様 に 
CONSOLE 19, 6, 0, 1 О 
WIDTH 80, 25 © 
の あと , CLR キー を 押し て 画面 消去 を 必ず 
実行 し て くだ きい 。 
* MON Q 
xp 
ロー ド し お わる と プロ ンプ ト が 出 ま すか ら , 
ж GF300 Q 
で 起動 。 プ ゲロ ンプ トマ ー ク が 出 て 完了 で す 。 


1984 年 7 月 掲載 


メニ ュー 画面 の 各 コ マン ド を 説明 し まし 
gan 

Ss : スペ ー ス カッ ト 

不用 な スペ ー ス を 切り 詰め ます 。 だ ただし, 
ダブ プル クォーテーション で は る まれ だ スペ 
ー ス な ど , 詰め て は いけ な い 部 分 に は 触れ 
A 

| : マル チ ス テー トメ ント 

マル チ ス テー トメ ント 化 を 行い ます が , 
IF 文 の 後ろ な ど , 続け て は いけ な いと ころ 
や 別 の 行か 5 СОТО, GOSUB 文 な ど で 
行 番号 を 参照 され て 省略 し て は いけ な いと 
ころ は 残し て いま す 。 
r : REM 文 カ ッ ト 

REM 文 を 削除 し ます 。 た だ し , 別 の 部 分 
か ら 参 照 き れ て いる サブ ルー チン の 頭 な ど 
の REM 文 , た と えば 
400 GOTO 720 
720 REM …… TEST… 

な ど で は , 400 行 の 720 を 730 に 変え て か ら 
720 行 を 削除 し ます 。730 行 も REM XÇ L 
だ ら , も ちろ ん 740 行 に СОТО 文 の 飛び 先 
E 

また だ , REM 文 の 中 に は 消し た く な いも 
の も ある の で , モー ド の 選択 で 1 行 ず つっ 表 
示し て 尋ね る 方 法 と , 一 発 で 消去 する 方 法 
の 2 つが あり ます 。 た だ ただし, どちら 65 も テキ 


スト の いち ば ん 最後 に REM 文 が ある 場合 , 
それ だ け 残 っ て し まい ます 。 手 作業 で カッ 
ト し て くだ さい 。 

*※ : モ ニタ モー ド へ 

BASIC か ら モ ニタ へ 移り ます 。 
= : BASIC E— F^ 

モニ タ か ら 6 BASIC へ も どり ます 。 

な お , “ж”, パニ? を 何 回 使っ て も , ふた 
た び モ ニタ か ら 

* GF300 

で 本 プロ グラ ム の 起動 が びき ます 。 だ と を 
ば =? で BASIC モー ド に も どり リス ト を 
出力 後 、 ふたたび 作業 する こと も で きま す 。 


コマ ンド の 
使用 方 法 
E ЦЬ. 


s г, 1 の コマ ンド を 入力 する と 
FROM- TO- 
と 尋ね て きま す の で , 範囲 を 限定 し た いと 
き に は 対象 と する 範囲 の 先頭 と 末尾 の 行 
号 を 入力 し て くだ さい 。 全 体 の 場合 は 
RETURN キー を 押す だ け で けっ こう で す 。 
iX, r コマ ンド の モー ド 選 択 は 
0 : すべ て の REM 文 カ ッ ト 
1 : 1 行 ず つ 表 示 。 カ ッ ト す る と き は 
スペ ー ス バー 以外 の 任意 の キー, 
カッ ト し だ た く な いと き は スペ ー ス 
キー を 押し ます 。 
STEPS 7S 105 51 
と 尋ね られ だ た ら , 0 か 1 の どちら か を 入力 
し て くだ きい 。 


メモ リマ ジッ ク 


ST, この プロ グラ ム 本 体 は 2 K バ イト 
ほど あり ます 。 メ モリ オー バー し た 状態 で , 
どこ に プ ブログ ラム を 納め る の か 疑問 を 持つ 
人 も 多い で し ょ う 。 

実は , V-RAM の エリ ア を 使用 し た の で 
+, F300—FEB7 の 3 K バ イト ほど の エリ 
. ア で す 。 プ ログ ラム を 打ち 込む 前 に 
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CONSOLE 19; 0, 0 
と し た わけ は , この エリ ア を 使用 し た か ら 
な の で す 。( 図 1) 

と ころ で , F350—F377, F3C8—F3EF, 
өөн の いわ ゆる アト リ ビ ュ ー ト エリ ア で は 
勝手 な コー ド を 入れ た と き に 桑 走 する 危険 
DD stat. ot こ て ja この ジロ 2 Z ЖО 
CQ гд ЛЛ ДА, ЛЗ» AS 
ブリ ンク な どの ュ コード を 形成 し , 本 プロ グ 
ラム を テー プ ブ か ら ロ ー ド する と き に CRT 
上 に 出る マシ ン 語 コー ド の 影 (7) を 消す 
よう に し まし た 。 合 わせ て , ロー ド 状 態 の 
目 当 に ' が な る よう に し まし た (FRIES 

念 の た め に 繰り 返し ます 。 こ の プロ グラ 
ム は CLR キー を 押す と 一 発 で 昇天 し ます 
DT, 作業 中 は くれ ぐれ も CLR キー に は 
触れ な いよ うに し て くだ さい 。 


メモ リ ジ ャ ッ ク 流 
ノウ ハウ 紹介 


@ ワ ー ク エリ ア に つい て 

ライ ンカ ッ ト ( マ ル チ ス テー トメ ント 化 ) 
する 前 に , 次 の 2 つの バッ チ 処 理 を し て い 
ES 
① 現 在 の プロ グラ ム の 各行 の 長き を 測り , 

記憶 する 
ほか の 行か 6 GOTO 文 な ど で 呼 ば れ て 

いる 行 を すべ て チェ ッ ク す る 

この 2 つの 作業 で 使う ワー クエ リア は , 
FEF40 一 49H の 10 バ イト だ け で す 。 と いう の 
は , テキ スト 内 部 に ワー クエ リア を 分 散 し 
だ た から で す 。 例 を あげ まし ょ う 。 

図 2 が テキ スト , 図 3 が RAM 上 で の テ 
キス ト の 表現 形式 で す 。 を そし て , ダン プリ 
スト が 図 4 の A で す 。 

図 4 の B が 加工 後 の ダ ンプ リス ト で す 。 
A と 比較 する と , まず ほか の 行か ら 6 呼 ば れ 
て いる 行 の Link Pointer の 最上 位 ビ ッ ト 
が 0 に な っ て いま すね 。 

8021H 29 80 (8029H を 示す ) 
が 

8029H 29 00 (0029H) 
どなり は すす 。 Ee CRT に 表示 et ШО 

1 行 の 文字 数 を エン ド マ ー ク 00 の 代わ り に 
書き 込み まし た 。 


= 


ADRS : 
FB00 : 
ЕВ10 : 
FB20 : 
ЕВ О : 
FB49 : 
FBS9 : 
FB69 : 
FEO : 
FBRO % 
FB°0 : 
ЕВАВ ; 6E 65 2F 58 72 SUSA 
ЕВРО : 2A 5D ЗА 40 АЕ ДЕ 2F 
FBC : 60 04 01 06 11 04 15 
FBDO : 50 AO 50 өв 50 99 5A 
FBEO ; 58 00 50 99 50 99 5e 


52 45 4D 20 43 55 54 2F 58 : EQ 
5B 3D 5D ЗА 42 41 53 49 43 : 6B 
96 1F 04 50 00 50 00 SQ 66 : 4E 
00 50 Qe 50 ве 50 Qo 50 00 : ва 
00 00 2A 53 46 38 41 34 00 : BO 


E 
ЕЕ ЕСЕ F300 
C000 
BFFF 
8000 
TP SE 
6000 
SERE 
C000 
(8000) 
0000 
図 1 
この よう に , テキ スト 自体 を ワー クエ リ 
ア 化 し て いま す が , この 加工 は 最後 に 元 ど 


i0, つま り A の 形 に も ど し ま す 。 プ ログ 
ラム が B の まま で は 走ら な いた めで す 。 
e 表示 文字 数 の 数 え 方 

1 コマ ンド を 実行 し て テキ スト を マル チ 
ステ ー ト メン ト 化 する 場合 , つなぐ ライン 
の 長き に 制限 は あり ませ ん 。 単純 な ブログ 
ラム な ら 1 ラ イン に し て も 動作 し ます 。 

1000 PRINT A:PRINT "ABC" 

: GOTO 1000 

Ey» у ЕКА ы エット で 
きる 限界 は 255 文 字 ま で で す 。 を そこで この プ 
ログ ラム で も , マル チ ス テー トメ ント 化 で 
きる 最大 文字 数 を 行 番号 も 含め て 255 以 内 
dad» zx 2 E EE 

ST, 文字 数 を カウ ント する に は メモ リ 
上 の 生 の コー ド を カウ ント する の が いち ば 
ん 速い に の で す が , メモ リ 上 で は 1 一 2 バイ 
ト の 中 間 コ ー ド が , 表示 する と 2 一 7 バイ 
ト に ふく れ 上 が る の で 正確 に は カウ ント で 


1999 PRINT A 
1010 PRINT "ABC" 
1020 GOTO 1000 


図 2 


きま せん 。 ま た , 行 番号 を は じ め と し て , 
各種 の 数 値 ど メモ リ 上 の 表現 と 実際 の 表示 
の 違い の 大 きい も の が 多い の で す 。 
詳細 は 各種 の PC-8001 解 析 ブ プッ ク に ゆ 
ずる と し て , この プロ グラ ム で は 表示 サイ 
ズ の 計算 お よび 換算 テー ブル な ど , 文字 数 
カウ ント ルー チン が か な り の 部 分 を 占め て 
いま す 。 

@ テ キス ト を 1 行 表示 する 方 法 

REM 文 カ ッ ト を 行う ルー チン で は , H 
除 の 対象 と な る ルー チン を 1 行 ず つ プ ログ 
ラム の 中 か ら リ スト アッ プ し て いま す 。 
ここ が 人 知れ ず 苦 労 し た 点 で , 無制限 に 
メモ リ が 使え る な 6 何だ どっ て で きる の で す 
が , 限ら ちら れ た メモリ で 処理 する た め に N- 
BASIC の イン タプ リタ を 使え る か ぎり 借 
HEFL 

本 プロ グラ ム の FEA8C-FABB の 部 分 
で す 。 な お , 6 月 号 255 ペ ー ジ 掲載 の チェ ッ 
クサ ム を 使用 する と き に は 130 行 を 削除 し 
' 飼 だ Mel ほほ か の チェ ッ ク サ ム で 
も CONSOLE 文 は 使わ な いで 《 だ きい 。 


写真 1 
80 ¿link pointer 
03 : 1000 
sprint 
172N7 
ta 
80 ¿link pointer 
ёз :1010 
‘sprint 
1222 
42 43 А В Є 
80 tlink pointer 
93 11020 
:60 TO 
179N2 


E8 03 :?4» 1000 


図 3 


A 


xD8021,803F 

8021 29 80 E8 
8028 00 35 80 
8030 41 42 43 
8038 03 89 20 


B 

xD8021,803F 
8021 29 00 ЕВ 
8028 9C 35 80 
8030 41 42 43 
8038 03 89 20 


図 4 
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間 易 住所 録 つき 


1984 年 7 月 掲載 


ディ スク が 普及 し た と は いえ , カセ ッ ト 
テー プ の シス テム は 最も オー ソ ド ッ クス な 
スタ イル だ 。 個 人 ベー ス で の デー タ 整 理 に 
利用 る され て いる 方 も 多い だ ろう 。 こ こ で 紹 
介する ユー ティ リティ は デー タ の セー ブ 
ロー ド を 高速 化す 4 プログ ラム で , その 強 
力 な 効果 に つい て は ベン チマ ー ク テス ト の 
結果 を 参照 し て いた だ きた い 。 

ユー ティ リティ の ほか に も , サン プル と 
し て 練習 用 プロ グラ ム と 簡易 住所 録 も 掲載 
し た の で , デー タベース を と りあ え ぇ ず 使 い 
だ た だい 初心 者 に も 便利 だ ろう 。 も ちろ ん 自作 
の デー タ セ ー ブ , ロー ドル ー チ ン に 本 プロ 
グラ ム を マー ジ す る こと も 可能 だ 。( 編 集 部 ) 


N-BASIC で カモ ッ ト テ ー プ に デー タ を 
EZ ロー ド す る 命令 た し て PRINT# — 
1,INPUT せ 一 1 が あり ます が ,1 回 に セー ブ 
で きる デー タ の 長き は わずか 240 バ イト で す 。 
通常 , 多量 の デー タ を 扱う に は あら か じ 
め デ ー タ の 個数 D を 設定 し , デー タ を セー 
プ す る な ら 6 次 の よう な プロ グラ ム を 作成 し 
ыз 
100 ЕОЕ1=1 TO D 
110 PRINT £ -1, A$(D 
120 NEXTI 
し か し , PRINT#ー1 文 が 実行 され る ご と 
に デー タ の 前 後に 長い 無 信号 の 部 分 が 続き 
ます 。 たとえば, 1 件 50 バ イト の デー タ 100 
件 セーブ する の に , デー タ 部 は 1 分 40 秒 
で あと は 無 信号 部 が 6 分 40 秒 ほど あり ます 。 
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②1 度 に セー プ , ロー ド で きる デー タ 量 は 
EKIA RE ахак D T—A429 5K^* 
イト を 越え て いる 場合 , 終了 まで 繰り 返 
し 実行 する 機能 が あり ます 。 

(QU ЕЕ n prsi: МЕ 
BASIC の SAVE”, “LOAD” コマ ンド 
を 使い ます か ら 簡 単 で す 。 
この ユー ティ リティ を 用 いた と き の ベ ン 


カセ ッ ト を 使っ た デー タベース は 手軽 な 
反面 , シー ケン シャ ルフ ァイル し か 扱え ま 
せん 。 ZO E, セー ブ , ロー ド に 時 間 が か 
か り , だ まり ませ ん 。 を そこで, この ユー テ 
ィ リ ティ で は 
(D N-BASIC で 定義 きれ た 配列 の デー タ 

(文字 で も 数 値 配列 で も か まい ませ ん ) 

を モニ タ の W,L コマ ンド と 同じ フォ ー 


マッ ト で , 連続 セー プ , ロー ド し ます 。 チマ ー ク テス ト の 結果 を 表 1 に 示し ます 。 
ЕЕ て まめ УА | デー タ ・ セ ー バ ローダ | N-BASIC | УТ 
50 字 X 10 行 = 5005 の и» ® 50 秒 3.57 倍 
т X 20 =1000 24 ] 101 4.21 
n X 30 =1500 33 151 | 4.58 
и x 40 =2000 | 4 202 4.81 
m X 50 =2500 52 252 4.85 
n х 60 =3000 61 303 4.97 
п X 70 =3500 72 353 4.90 
m х 80 =4000 80 | 404 [216% 
п X 90 =4500 90 454 5.04 
m x100 =5000 Ё 99 505 5.10 
この 表 は 交 字 型 デ ー タ の キープ 時 間 を 比較 し た も の 平均 4.71 f& 


RI ベン チマ ー ク テス ト の 結果 


リス ト の 打ち 込み 
と 起動 


マシ ン 語 プロ グラ ム , リスト 1 を モニ タ 

か ら 打 ち 込 み , 終わ っ た だ たら 

ж WD000, D5B8 
で セー プ し て くだ さる い 。 起 動 の 方法 は , ま 
ず 打 ち 込 ん だ マシ ン 語 ルー チン を ロー ド し , 
イニ シャ ライ ズ の だめ 

CLEAR 300, &НСЕЕЕ: 

DEF USR- &HD000 : U-USR( 0) 


を 実行 し て くだ さい 。 な お , CLEAR XOW 
は 使用 する 文字 領域 の 大 きる で , 必要 な ら 
増減 し て くだ さい 。 


コマ ンド の 説明 
к а 


SAVE < 配列 名 > 

定義 ぞ み の 配列 に 設定 され た デー タ を , 
カセ ッ ト テ ー プ に セー ブ し ます 。 配列 の 次 
元 数 は 3 次 元 ま で で , 3 次 元 を 超え る 配列 
Qtes7 0535 が る と ジン タマ ンク スモ 
ラー に な り ま す 。 本 来 N-BASIC で は 255 次 
元 まで 配列 が 許 き れ ま す が , ワー クエ リア 


の 関係 で この プロ グラ ム で は 3 次 元 以 内 に 
と 太め まじ た 。 し か じ 実 用 上 Ho ER 
いま す 。 ま た だ , 未定 義 の 配列 を セー ブ し ょ 
ELI un 
Out of Data 
の エラ ー に な り ま す 。 
配列 名 に は 型 宣言 文字 も 含み ます 。 型 宣 
言 文字 を 省略 する と , 単 精度 型 数 値 配列 と 
みな さる され ます 。 
ST; SAVE コマ ンド を 実行 する と ディ 
スプ レイ に 
[SAVE] file name ? 
と 表示 され ま す 。 6 文字 以内 の ファ イル 名 
を 入力 し て くだ さい 。 省略 も 可能 で す 。 
RETURN キー を 押す と , た だ ち に デー タ 
の セー プ が 開始 され ます 。 
LOAD < 配列 名 > 
Ву ЕМЕ д 
グラ ム て 配列 を 定義 する と き に , 次 元 数 は 
セー ブ プ 時 と 違っ て いて も か まい ませ ん が , 
配列 の 型 (文字 型 , 整数 型 な ど ) は 同じ で 
な けれ ば いけ ませ ん し , 配列 の 大 きる は セ 
ー プ 時 と 同等 , ある い は それ 以上 と っ て 〈 く 
だ さい 。 
エラ ー メ ッ セ ー ジ は SAVE 命 令 と 同じ 
も の が 出 ま す 。 さ る ら 6 に 配列 の 型 が 違う と 
Type mismatch 
の エラ ー が 出 ま す 。 ま た 定義 され た 配列 の 
大 きる が 小さ か っ た と き は 
Over flow 
の エラ ー が 出 ま す 。 
ステ ー ト メン ト を 実行 する と, 
[LOAD] file name ? 
と 表示 る きれ ます の で , セー ブ し た と き と 同 
じ フ ァイル 名 を 入れ , RETURN キー を 押 
し て くだ きい 。 ロード が 開始 され ます 。 
テー プ の 読み 取り は 頭 出し を チェ ッ ク し 
て いま すか ら , デ ー タ の 途中 か ら 再 生 し て も 
Tape read error 
に は な り ま せん 。 ま た だ , 入力 し た ファ イル 
名 が テー プ の ファ イル 名 と 一 致し な けれ ば 
Skip 一 
一 致す れ ば 
Found 一 
と ディ スプ レイ に 表示 る れ ま す 。 
LOAD(< 配 列 名 >) 
配列 名 を か っ こ で 囲み , 使用 し ます 。 カ 
X eme AJL—2AL 
ХЕ) BOBUMT—AZOBNG, Oš り ベ リ 
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АПКЕ i t2 I3 rA £5 
D499 : EF 22 4F D5 2A 4F 
йаа 53558505; BV 28,29 
D4202:221B2532-D5-.AF -ED-42 
D439 : 46 09 23 22 4F 05 
D449 : 04 CD F9 3B 2A 4F 
0450 : 63.05 2B ТЕ FE 04 
HAG :2455232-57-D5-47..21 
D479 : 56 EB 18 08 CS CD 
04860 :-5E 223156. 23 22.63 
0498 :.D5.2^4 63 D5 5E 23 
D4A9 : DS 3C 32 60 DS FE 
D4B0 2 ラ EE 21876505 -С0 
ПАСИ SE CUD F3-D4 21 96 
DADO. TEDE 223. 18-F5. CD. 69 
D4E0 SESCD 2E OCLC? 28 
D4F0 61 D5 C9 CD 49. 0C 
SUM BB 9D B5 63 EC 56 
ADRS Ф08+12522231%42 +5 
0500 ЗА 60 05 3C 32 60 
D510 : 05 CD ЗА SF DA 60D 
0520 : FE AA 28 02 18 F5 
0530 : 63 05 ED 4B б? 05 
0540 : 20 03 23 18 F8 С9 
D550 : 00 00 00 00 00 00 
D560 ве ве BO ве 00 00 
D570 : 00 00 00 99 99 00 
D580 : 41 44 00 ЗЕ 5D 00 
D590 : 69 66 79 20 4F 4B 
D5A9 : 61 6D 65 00 F9 FF 
0586 : F1 DB 1А 28 11 29 
SUM: *::58C. A1 3F.87.39- 73 


+7 +8 *9 +А +В +С +0 +E FE :SUM 
ТЕ 325еБ51:235ӘЕ5723 564EU : 46 
6? 05 BE 20 0C 2А 58 05 ED : 13 
1CS2A-arP2DS 231230234 AE E23 +. BE 
4B A4 EF AF ED 42 38 C5 1E 76 
01 05 00 09 22 4F D5 23 22 ED 
05 1E 05 CD F9 3B 2A 4F D5 : 92 
D5222424E2D572A.632B9"SEC23 + ЭА 
28.C1 24 А8 FO E5 2A 63 DS : E2 
ZA QF AONE ANAS 222069 ¢ ЗЕ 
E1 10 DA 22 69 D5 C9 ЗА 60 9с 
28 05 CD F3 DA 18 29 AF 32 : SA 
52221. 99-D5SDBSBUSS2 POE» «s. 70 
06 06 7E B? 20 01 2B CD 2F FE 
21 00 06 ED 5B 61 05 CD 09 : EA 
05 36 FF C9 2А 61 05 2B 22 : 39 
9A ЗЕ AA CD 2F SF 10 FB C9 : 48 
DA DA ЕЗ ©З 75 2D 20 09 3A : 96 
+7 +8 +9 «A +В +С +D +E +F :SUM 
FE 01 28 06 CD F3 0B CD 1B : F2 
CD 2E 9C C9 06 ВА CD 88 0C : éF 
B5tC9^245651D5:322361:D5^2A : 93 
00 09 22 63 D5 C9 7E FE 20 : 7A 
29 20 04 23 CD 3D 05 C9 00 : 35 
00 вө ве өе ве өе өв өв өө : вө 
00 00 00 99 ве 99 99 99 99 : 99 
53 41 56 45 5D 99 5B 4C 4F : DD 
00 54 61 70 65 20 76 65 72 : 75 
0A 00 20 66 69 6C 65 20 6E 67 
DB 1A F1 9C QD DO ЗА 5А 5A YF: 
ве ве 99 00 99 99 00 99 00 48 
21 00 4C E1 82 81 FC 1C FA : 23 


ファ イ を 実行 し ます 。 本当は 

LOAD? 
БЛ ОЛКО ӘУ) d И, oh 
を ステ ー ト メン ト と し て 使う と , N-BASIC 
で は BRINE に な が っ で し まう の で この よ 
う な 形 に し まし た 。 

この コマ ンド を 実行 する と 

[LOAD? ] file пате? 
と 表示 る され ます 。 も ちろ ん セー ブ 時 の ファ 
イル 名 を 入力 し て くだ さい 。 

NEG rx L xe) の デー ダ 
2'—20L7g0 L 

Tape read Error 
が , 一 致し た 場合 に は 

Tape verify OK 
が 表示 され ます 。 


コマ ンド 使用 上 の 
注意 
к з 


まず , 3 つの コマ ンド を 含ん だ ど マ ル チ ス 
pu E E e 57 つ まり で 区 
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図 1 
切っ た 文 で は 使え を な いわ け で す 。 た だ し , 
例外 と し て 文 の 最後 に ある 場合 は 許さ れ ま 
е7 ЕДД» 

100 PRINT : SAVE A$: A=1 
は エラ ー に な り ま す が 


100 PRINT: A=1 : SAVE А$ 
HES SER b dot. 

これ は 本 プロ グラ ム の 構文 解釈 で : 

пи) を チェ ッ ク し て いな いた だ めで す 。 


評価 用 プロ グラ ム 
L. li 


初心 者 用 と し て リス ト 2, リス ト 3 に サ 
シン シッ レジ ロジ ツラ PV ЕЛ 

リス ト 2 は 本 プロ グラ ム の オペ レー ショ 
ン に 慣れ る ため の 練習 用 プロ グラ ム で す 。 
まだ, リスト 3 の 住所 録 は PC-8001 の ユー 
ザー ズ マ ニュ アル の 46 ペ ー ジ に 掲載 され た 
リス ト を 参考 に し て 作成 し た も の で す 。 マ 
ニュ アル 46 ペ ー ジ の プロ グラ ム は デー タ で ベ 
ー ス 作成 の 基本 テク ニッ ク の 見 本 と し て は 
初心 者 の 参考 に な り ま す が , 速 さ の 点 で 実 
用 的 で は あり ませ ん の で , 一 応 利 用 で きる 
も の と し て 本 シス テム を 作っ た わけ で す 。 

どちら も 使用 法 は 簡単 で す 。 打 ち 込 ん で 
J Zx F LO asp = e R a K 
あと 実行 し て くだ きい 。 2 一 3 回 デー タ の 出 
し 入れ を すれ ば 要領 は つか め る と 思い ます 。 


プロ グラ ム の 説明 
EI od 


リス ト 1 の ルー チン の 説明 を し て お きま 
し ょ эор YII OH PEREST 
2° u #77 L Hik D000~ D5B8 0146577 
イト に 入っ て いま す が , この ほか に バッ フ 
アァ 領域 と し て D600-E9FFO 5 K バ イト 
t, D5B9 番 以降 を サブ プ バ ッ フ ァ と し て 使 
用 し ます 。 

サブ バッ ファ と し て 必要 な 領域 は 最小 37 
バイ ト , 最大 302 バ イト で す 。 メ イン バッ フ 
アカ と サフ パッ ジア ァ が ボー バー ジッ タブ も し 
バッ フ ア 領 域 の ダー タ を サブ バッ ファ に 移 
し て いる の て 心配 あり ませ ん 。 

この バッ ファ ア 領 域 に デー タ を TEBAT, 
カセ ッ ト テ ー プ に セー ブ , ロー ド し て いる 
DG e 


プログ ラム の ポイ ント 
E SÉ 


(a 


デー タ の セー プ , ロー ド を 行う と き , 数 や り と り が で きま す が , 文字 型 デ ゲー タ で は ンタ プリ タ を 利用 し まし た 。 参 考 ま で に , 
値 型 デー タ な ら 直 接 バ ッ フ ァ と 配列 領域 の 間接 移動 に な り ま す 。 こ こ で , N-BASIC イ その 方 法 を 紹介 し て お きま し ょ う 。 


LOAD 


SEARCH SEARCH 


TYPE. レ コー ド 数 
*BUFF 


Y SKIP 表 示 
FOUND 
表示 


ベリ ファ イ か 


(配列 ) デ ー タ 
‘BUFF 


Y 


配列 デー タ 
BUFF 


verify OK 
表 示 


テキ スト ポイ ンタ 
回 復 


BASIC 


栄 空 ス テー トメ ント 
編集 , 実行 


図 2 
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まず , サブ プ バ ッ フ ァ 上 に 中 間 言 語 に 変換 
し た 架空 の BASIC ステ ー ト メン ト を 編集 
ta po XE 
65528 А$(0)= 'ABCDE" 
65529 DEFUSR9=&HD00D : 
ZZ=USR9(0) 
と し ます 。 こ の うち 65528 行 は デー タ の 内 容 
で 変化 し ます が , 65529 行 は 変わ り ま せん 。 
を そこ で 次 に 二 サ バッ シア の ヘッ ドア ドレ 
ス を テキ スト ポイ ンタ と し て , N-BASIC 
に も どり ます 。N-BASIC で は , 65528 行 を 
実行 し た と き に 配列 デー タ を 取り 込ん だ こ 
と に な り , 続い て 65529 行 を 実行 後 , D00D 
番地 に も どっ て きま す 。DOOD 番地 は この 
マシ ン 語 ルー チン の リタ ー ン ポイ ンタ で す 。 
つま り , 指定 され た バッ ファ 領域 が な 〈 
な る まで この N-BASIC を 利用 し た ルー プ 


が 回 り 続 け , 繰り 返し 配列 デー タ を 処理 す 
る わけ で す 。 

1 つ 注 意 し て お 〈 t, 65529 行 で , 

USR 9 
を 使っ て いま す が , この 関数 の ユー ル に は 
わざ と ZZ と いう 変数 名 を 使い まし た 。 
ほか の プロ グラ ム に 応用 な どす る 場合 こ 
の USR 関数 の 定義 と 変数 ZZ DEH E 
け て くだ さい 。 

ほか に も , ブロ グラ ム を 短く する だ め に 
PC-8001 の ROM 内 ルー チン を 多く 利用 し 
て いま す が , 説明 は 省略 し ます 。 一応 , Ë 
の よう な アル ゴリ ズム の プロ グラ ム か を 図 
2 の ロー チャ ー ド に 示し で おおき まほ た 』 
iJe НЗС ЖЕУ [Е 
際 の フォ ー マ ッ ト を 掲載 し まし た の で 参考 
EL CIS Y, 


ファ イル ネー ム RESEND 


タ 
イ 
プ 


(1) デ ー タ の 長 さ が 5 K バ イト を 越え た と き , 2 番目 
以降 の テー プ に は ヘッ ダ は つき ませ ん 。 
(2) タ イプ は , 整数 型 数 値 の と き 02 
文字 型 の と き 03 
単 精度 型 数 値 の と き 04 
倍 精度 型 数 値 の と き 08 が 記録 され ます 
(3) レ コー ド 数 は 配 例 の 大 き さ ( デ ー タ の 個数 ) で す 
(4) デ ー タ は , 数 値 型 の と き は 2, 4 また は 8 バイ ト 
で 1 個 の 数 値 表 し, レコー ド 数 だ け 記 録 さ れ ま す 。 
£f, 文字 型 の と き は 文字 列 と 次 の 文字 列 と の 間 
に 区 切り 符号 00 が . 最終 レ コー ド の 後ろ に は 00FF 
L が 記録 され ます 。 


図 3 


*2PRINT ‘4. END 


210 GOSUB1000 


240 
250 
260 


310 PRINT 


120 PRINT:INPUT'Select No., 
130 IF N<1 OR N»4 THENBEEP:GOTO110 
140 ON N GOTO0299 , 499 ,599 , 699 

200 REM xxx DATA input Xxx 


220 FORI-0TOD:I$-2'':PRINT'Input No." 
230 ІҒТ=1ТНЕМАФ (І ) =1Ф: МЕХТ :РРІМТ : ЅАЧЕАФ 

ІЕТ=2ТНЕМАх (1) =УА| (1%) : МЕХТ:РКІМТ : SAVEA% 
IFT=3THENA( І) =МА (1% ) : МЕХТ :PRINT : ЅАЧЕА 
IFT=4THENA#( 1)=VAL (1$) : МЕХТ : РРІМТ : SAVEA# 

270 PRINT:INPUT'DATA & ТАРЕ J verify シマ スカ (y/n)';V$ 
280 IFV$='`y"THEN300ELSEIFV$='n "THEN1 19ELSEBEEP : 6070276 
300 REM xxx DATA verify xxx 


10 REM XXX※XXXXXX※XXXXX※※X※X※※※ メ XXXXXXXX※XXXXX デ XXX※※ デ ※ デ メメ デデデ ※※ 


20 КЕМ * * 
30 REM ※ DATA SAVER/LOADER evaluation program x 
40 REM * ++++ for PC-8001 ++++ x 
50 REM ※ Programmed by K.Nakahira x 
60 REM ※ 1983.8.21 x 
70 REM xw x 
80 REM XxxxXxxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx 


90 CLEAR10000,&HCFFF : DEEUSR-&HD000 :U=USR( 9 ) 
100 UIDTH80,20:CONSOLE0,25,0,0:DIMA$(O),AX(0) ,ACO) , A#(0) 
110 PRINTCHR$( 12) :PRINT "1 . DATA input':PRINT'2. DATA load':PRINT'3. DATA display 


please';N 


: I5 : INPUT'please';I$ 


320 IFT-1THENLOAD(CA$) 

330 IFT-2THENLOAD(AZ) 

340 IFT-3THENLOAD(CA) 

350 IFT=4THENLOAD(A#) 

360 PRINT:PRINT'Push space key':1FINPUT$(1)-" 
370 GOTO110 

400 REM xxx DATA load ※※※ 

410 PRINT 

420 GOSUB1000 

430 IFT-1THENLOADAS$ 

440 IFT=2THENLOADA% 

450 IFT-3THENLOADA 

460 IFT-ATHENLOADA& 

470 GOTO110 

500 REM xxx DATA display ※※※ 

510 PRINT 

520 FORI-0TOD:PRINT'DATA No. ';I; 

530 ІҒТ=1ТНЕМРРІМТАФ( І) : МЕХТ 

540 IFT=2THENPRINTA%( 1 ) : МЕХТ 

550 IFT=3THENPRINTA( 1 ) : МЕХТ 

560 ІҒТ=4ТНЕМРРІМТА# (І ) : МЕХТ 

570 PRINT:PRINT'Push space key : ІЕІМРОТФ (1) =" 
600 REM xxx END xxx 


"THEN1 19ELSE369 


"THEN119ELSES ru 


168 


610 PRINTCHR$(12):END 
I REM xxx SUBROUTINE xxx 
m 10 PRINTCHR$C120:PRINT'1. £2"2"52':PRINT'2. セイ スウ カド 7E ` 2 EM 
[e 225':PRINT'4. / ド イセ イト カタ доя" OE a ао 
1020 PRINT:INPUT'Select type of data, please';T 
1030 IF T<1 OR T>4 THENBEEP :GOTO1010 
1040 PRINT:INPUT'DATA / 52"';D:D-D-1 
1050 IF D<1 THENBEEP :GOTO1040 
1060 IFT-1THENERASEA$:DIMA$(CD) 
1070 IFT=2THENERASEA%:DIMA%(D ) 
1080 IFT=3THENERASEA :DIMA(D ) 
i 1090 IFT=4THENERASEA#:DIMA#(D) 
1100 PRINTCHR$(12):RETURN 


1^ xxx Mailing list prog. XXX oringinal by NEC: improved by K.Nakahira Xxx 
2 CLEARS000 , &HCFFF : DEFUSR=&HD999 :U=USR( 9 ) 
5 PMAX-100 
6 LPT=9 
7 P=0 
DIM A ま (4,PMAX+1 ) 
PRINT "mailing list program" 
PRINT:PRINT:PRINT TAB(S50;'xxxxx X210 xxxxx' 
PRINT '1--h2n2';TÀB(20);'2--ta5»"" 
PRINT '3--9-*$';TAB(20);'4--^»39" 
PRINT '5--9522"3';TAB(20);'6--ü-Mh"" 
PRINT '7--t47"'TAB(20);'8--219J3a2tt ^39" 
PRINT "9-- オ 3 マイ " 
PRINT:PRINT 
INPUT: SIR 7 A*72*9 2 ニ ゥ ウリ ョ ク 57 クタ “サイ "ラム 
190 IF А<1 THEN 30 ELSE IF A>? THEN 30 
110 ON А GOTO 1999,2999 , 3999 , 4999 , 5999 , 6999 , 7999 , 8999 , 9999 
1000 REM №07 
1010 IF P>=PMAX THEN PRINT "Е? 177 49"N?47"A2s.':GOTO30 
1020 LINEINPUT "ナマ エ ?";A$(0,P) 
1030 IF A$(0,P)-'' THEN 20000 
1040 LINEINPUT "シラ" ュ 9 シ ョ ?'$A$C1,P) 
1050 LINEINPUT'7"79 ?'$A$C2,P) 
1060 LINEINPUT'23a2t"39 2??';A$(3,P) 
1070 INPUT "ネン レイ "sA$(4,P) 
1080 PU=P:L9=LPT:LPT=0 
1090 GOSUB 10000 
1100 LPT=L9 
1110 INPUT'ok(y/n)';A$:IF A$4»'y' THEN 1020 
1120 Р=Р+1 
1130 GOTO30 
2000 REM ヒョウ >" 
2010 IF P-0 THEN GOTO30 
2020 FOR I-0 TO P-1 
2030 PU-I:GOSUB 10000 
2040 IF LPT=9 THEN FOR U=1 TO 599:NEXT 
2050 NEXT I 
2060 GOTO30 
3000 REM サー チ 
3010 IF P-0 THEN GOT039 
3020 LINEINPUT't-2-h" 2 ニュ ウリ ョ ク 57 29"94';K$ 
3030 IF K$-'' THEN 20000 
3040 FOUND=0 
3050 PRINT "サー チ スル コウ モク ヲ エラ ン テ " クタ "サイ " 
3060 PRINT '1--7I';TAB(150;'2--»"1i95»3" 
3070 PRINT '3--7"722';TAB(15);'4--»37t"35" 
3080 PRINT '5--x»V4"' 
3090 INPUT ITEM 
3100 IF 1ТЕМ<1 THEN 3050 ELSE IF ITEM>5THEN 3050 
3110 FOR 1=9TOP-1 
3120 ON ITEM GOSUB 3500,3600,3700,3800,3900 
3130 IF R THEN РШ=І :6050В 10000 :FOUND=1 
3140 NEXT I 
3150 IF FOUND=9 THEN PRINT " カ " イ トウ スル ファ イル M アリ マセ ン " ELSE PRINT "サー チ カン リョ ウ " 
3160 PRINT:PRINT : GOT039 
3500 R=INSTR( 1 , A ま (9, 1 ) ,K ま ) : RETURN 
3600 R=INSTR( 1 ,A ま ( 1 , 1 ) ,K ま も ) :RETURN 
3700 R=INSTR( 1 , A ま ( 2, 1 ) ,K ま ) : RETURN 
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3800 
3900 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
6000 
6010 
6020 
6030 
6090 
7000 
7010 
7020 
7030 
7040 
7100 
8000 
IF A 
8010 
9000 
9010 
9020 
10000 
18010 
10020 
10030 
10040 
10050 
10055 
10060 
10070 
10080 
10090 
10100 
10110 
10115 
10120 
20000 
20010 


R=INSTR( 1 , A ま (3, 1 ) ,K ま ) : RETURN 
R=INSTR( 1 , A*( 4, I) ,K$) : RETURN 
REM ヘン コウ 

IF P=9 THEN GOTO39 
LINE INPUT "ペン コウ シタ イ ヒト / FIL 2 ニュ ウリ ョ ク シテ 29"941':K$ 
IF K$-'' THEN 20000 
FOR I-0 TO P-1 

IF INSTR(1,4$(0,I),K$) THEN 4080 
NEXT I 
GOTO 5070 
PRINT *'^739 スル ファ イル M VE / t) Z マチ カ " イ アリ マセ ヤッ ネ " 
PUZI:L9-LPT:LPT-0:GOSUB 10000 

INPUT'y/n';A$:1F A$4»'y' THEN LPT=L9:GOTO 4060 
LINEINPUT'2"i9»a ?";A$:IF A$«»'' THEN A$(1,I)=A$ 
LINEINPUT'7"792 ?'3T$:IF TCS THEN A$(2,1)0-T$ 
LINEINPUT'232t"39 ?';S$:1F S$4»'' THEN A ま (3, 1 )=S$ 
LINE INPUT "ネン レイ ?`;N$:IF N$4»'' THEN A$(4,I)=N$ 
PR INT :PR INT "カク ニン 57 クタ サイ“ 
L9-LPT:LPTz0:PU-I:GOSUB 10000 
INPUT'ok(y/n)';A$:1F A$4»'y' THEN 4110 
GOT039 
REM #75“ з 

IF P=9 THEN бОТОЗ@ 
LINEINPUT'922"3 590 th / ナマ T 2 4V729"94:" КФ 
IF K$-2'' THEN 20000 
FOR I-0 TO P-1 

IF INSTR(1,A$(0,I1),K$) THEN 5090 
NEXT I 
PRINT K$;' サン / ファ イル M アリ マセ ン " 
GOT039 
PM= 1 :L9=LPT :LPT=9 
РВІМТ "サク ラ " ョ スル ファ イル N ILZ マチ カ " イ アリ セン ネ " 
GOSUB 10000 

INPUT'y/n';A$ 

IF A$4»'y' THEN 5060 

IF IzP-1 THEN Р=Р-1 :GOT039 
FOR K-I TO P-2 
人 A ま (9 ,K )=A$(9,K+1 ) 
A$(1,K)=A$(1,K+1) 
A$(2,K)=A$(2,K+1) 
A$(3,K)=A$(3,K+1) 
A$(4,K)=A$(4,K+1) 
NEXT K 
P=P-1 
GOTO30 
REM ロー ト * 
LOADA$ 
P=VAL(A$(0,PMAX+1)) 
PRINT 
GOTO30 
REM t47" 

IF Р=@ THEN RETURN 
A ま (9 ,PMAX+1 )=STR$(P ) 
SAVEA$ 
PRINT 
GOT039 

INPUT "СВТ ナラ c,PRINTER ナラ p Э 21937 57 29"94':A$:1F A$-'c' THEN LPT=0:ELSE 
$-'p' THEN LPT-1:ELSE 8000 
GOTO30 
REM eoj 
PRINT'3"2095 サマ 7"59" 
END 

IF LPT THEN 19979 

PRINT '7*4I';TAB(10);A$(0,PU) 

PRINT '2"i923';TAB(10);A$(1,PU) 

PRINT '7"72';TAB(10);A$(2,PU) 

PRINT "537+" з?" ; TABC10);A$C3,PU) 

PRINT "ネン レイ " 』TAB( 19 ) ASCA,PUD 

PRINT 

RETURN 

LPRINT "ナマ エ " :TAB( 19 ) :A ま (9 ,PU ) 

LPRINT '2"i923';TAB(10);A$(1,PU) 


LPRINT '7"72';TAB( 10); A$(2,PU) 
LPRINT '232t"32';TAB(10); A$(3,PU) 
LPRINT "ネン レイ " ; ТАВС10) ; ASCA, PU) 
LPRINT 

RETURN 

PRINT ` HHHHH トリ ヤメ HHHHH " 
RETURN 
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中 島 康彦 


1984 年 7 月 掲載 


Nss-BASIC を 拡張 し よう 


強力 な Nss- BASIC? 搭載 し た PC-8801。 


拡張 性 を 追求 すれ ば , きら に 強力 な マシ 
ン に 変身 する 。 こ こ で は 8801 の 弱点 で ある 
グラ フィ ックス の 高速 化 , を し て MKII C 
拡張 る され た CMD SING を 従来 の 8801 に 付 
加 す る 。 

PC-8801MKII に は 拡張 命令 パッ ケー ジ 
が 加わ っ た 。 CMD TURTLE, CMD SING, 
CMD CLS な ど が 使え る 。 その 代わ り メ イ 
7 ВАМ の DC00-E600 の エリ ア が 拡張 
命令 の た め に 使用 きれ , フリ ー エ リア が 減 
少 す る 。 本 プロ グラ ム は PC-8801 に MKII 
の CMD CLS と CMD TEXT ON/OFF に 
似 た 機能 。 お よび 独自 の 高速 グラ フィ ッ ク 
命令 POLL 文 を 加え だ た も の で , 83 年 12 月 号 
に 投稿 きれ た 「 ハ イス ピー ド ・ グ ラフ ィ ッ 
クル ー チ ン 」 の アッ プ バ バー ジョ ン で ある 。 
メモ リ の フリ ー エ リア が 減ら な い 点 が ポイ 
ント な の で PC-8801MKI ユ ー ザ ー に も 便 
利 か も し れ な い 。 (編集 部 ) 


# BË 
E 


本 来 が だら ば 変更 点 が こう こう で て で *…』」、 と 
解説 し て いく と ころ で す が , 以前 の も の と 
は まっ た だ く 違 う “Ver.1.17 に な っ て し まい 
UE 
POLL X 

さて , Ver.1.0 で は POLLCLS, LINE, 
PAINT の 3 つの 高速 ゲラ フィ ッ ク コ マン 


ド を 追加 し まし た 。 
速 化 を 行い まし た が , 追加 コマ ンド は あり 
ませ ん 。 た だ だ OFF/ON の スイ ッ チ を つけ 
まし た 。 以 下 に 説明 し ます 。 

POLL 文 の 書式 は 次 の と お ぉ り で す 。 
① POLL CLS 
② POLL LINE(A, B)-(C, р), Е 
@POLLD PAINT(A, В. C, D 
@ POLL OFF 
@ POLL ON 

① は CLS 2 と ほぼ 同じ 働き を し ます 。 ス 


今回 は PAINT 文 の 高 


ピー ド は Ver.1.0 と 変わ り ま せん 。 ビ ュー 
ポー ト も 無視 し て , すべ て クリ ア し ます 。 
② は BASIC の LINE 文 と ほぼ 同じ 働き 


を し ます が , 座標 制限 が あり ます 。 左 上 角 
が (0, 0), 右 下 角 が (639,199) で す 。 
前 回 と 異な り , 負 の 座標 は 0 に , 入力 値 が 


オー バー し た も の は 639 ま た は 199 に 制限 き 
150 CEO D RII DY x tA. В, BF, 
ライ ンス タイ ル の オプ ショ ン は つけ ませ ん 
€ UB 

(9 & BASIC の PAINT 文 と 同じ 使い 方 


モニ タ よ り 
GC000 C 


RAM コ ー ル 
PET? 


図 1 メイ ン RAM メモ リマ ッ プ 
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を し ます 。 座標 は ④ と 同じ 範囲 で す 。 た が だ , 
画面 の 右端 と 左端 が つなが っ て いる も の と 
みな し ます の で , 境界 を 必ず 設定 し て くだ 
きい 。 境界 が な いと , 右端 か ら 左 へ ペイ ン 

ト る され ます 。 

また , 30K バ イト を 越え る BASIC プロ 
グラ ム , ある い は 非常 に 複雑 な 図形 を ペイ 
ント きせ た 場合 に スタ ッ ク 不 足 と な り , R 
イン ト が 完了 し な いま ま 復 帰す る こと が あ 
UTE о S EC u MIL 
いう の は , FM-11 で も 外部 スタ ッ ク に 頼 
b, FM-7, 8 で は ペイ ント を あき ら め る ほ 
どの 精度 の も の で すか ら , 実用 上 の 心配 は 
あり ませ ん 。 

《④ と ⑤ は テキ スト VRAM の デー タ を 
CRT に 転送 する DMA コ ント ロー ラ 
PD3301 を OFF/ON する スイ ッ チ の 役 
目 あ し ます (DMA 転送 に つい て は 5 月 号 
161 ペ ー ジ に 説明 が あり ます )。 

(DO X 5 iz DMA 転送 を OFF に する と, 
全体 と し て 3 割 ほど 画面 の 速度 が 速く な り 
ます 。 し か し , テ キス ト VRAM デー タ が 転 
送る きれ な い の で すか ら , テキ スト 画面 は 表 
示さ れ ま せん 。 

OTON を 指定 する と 通常 の 状態 に も 
どり , テキ スト 画面 が 表示 され ます 。 スピ 
ー ド も 元 に も どり ます 。 


使用 方 法 
E unl S 


まず , 図 1 の メモ リマ ッ プ を 見 て くだ さき 
vs 前 回 の Ver.1.0 で は BA00—BFFF を 
使用 し まし た ね 。 今 回 は アデ ド レス 7A00 
~ー7FD8 の テキ スト エリ ア の 未 使用 部 分 に 
AA TEENS лот, Xd 
リア が まっ だ 〈 減り ま せん 。 ワ ー ク エリ ア 
が 7FE0—7FFF C3. 前 に 述べ た よう に , 
BASIC プロ グラ ム が 30K バ イト を 越す よ 
うな 長大 な プロ グラ ム は 7A00~7FFF の 
エリ ア と 重なる た め , この ルー チン は 使用 
TUI y. 

ST, リ スト 1 の 方 は C000—C6DF に な 
っ て いま すね 。 図 1 の ょ うに 最初 は С000 
~C6DF に プロ グラ ム を 置き , あと で 転送 
する の で す 。 以 下 に 手順 を 示し ます 。 
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① リ セッ ト す る 
Q)C000—C6DF の ルー チン を ロー ド す る 

か 打ち 込む 

打ち 込ん だ 人 は チェ ッ ク サ ム を 確認 する 
モニ タモ ー ド で 

h] GC000 

すぐ で プロ ンプ トマ ー ク が 点滅 する 
à CTLR-B 

で BASIC モー ド に も どる 

以上 で POLL 文 が コマ ンド と し て 追加 
きれ ます 。 メ イン プロ グラ ム は 7A00 
ー7FD8 に 転送 きれ ます 。 ま た だ , F21E 
ーF2E1 は RAM コー ルル ー チ ン と し て 使 
われ ます の で , この 部 分 を ほか の プロ グラ 
ム で 使用 し そう な 場合 、 CLEAR 文 で 保護 


っ … 富 NN- で NANANN7-T ひ A と ・ ュ ユナ に 


し て 《 だ きい 。 ほ か の 場合 , CLEAR ХЕЙ 
う 必 要 は あり ませ ん 。 


説明 アラ カル ト 


Ver.1.1 の ルー チン に つい て 説明 を し ま 
し ょ う 。 図 1 の メモ リマ ッ プ を また ご らん 
(HS. 

i3 POLL'Lo5a7F*ROUS 
L, ジャ ンプ テー ブル に よっ て F21E の ア 
ドレ ス に 飛び ます 。 を そし て きら 6 に , “ON? 


ADRS 1 +9 41 42 43 t4 4*5 *6 w «8 +9 tA *B +C +D +E FE 3SUM 
C300 : EA 7F CD CF 7E 2F Еб 07 47 09 01 BO FF 11 AB 00 : 20 
C318 : 09 78 07 07 97 07 ДЕ 06 00 DD 21 29 7C DD 99 СО: 18 
C320 : D4 70 21 99 00 16 01 DD E? 15 CB 47 28 BB CB 7A : EE 
C330 : CA 27 70 CD 29 7E СЗ C4 7C 15 CB 4F 28 8B CB 7A t 8C 
C340 : CA 27 70 CD 11 7E СЗ 18 70 15 CB 57 28 ӨВ СВ ТА : 01 
C350 : СА 27 70 CD 11 ?E СЗ 8C 70 15 CB SF 28 ӨВ CB 7A : CD 
C360 : CA 27 7D CD 11 7E СЗ 99 7D 15 CB 67 28 0B CB 7A : C9 
C370 : СА 27 70 CD 11 ?E СЗ F4 7С 15 CB 6F 28 0B CB 7A : Cá 
C380 : CA 27 70 CD 11 ?E СЗ ЕВ 7С 15 CB 77 28 0B CB 7A + CO 
C390 : СА 27 70 CD 11 ТЕ СЗ DC 7C 15 CB 7F 28 ӨВ CB 7A : BC 
C340 : CA 27 7D CD 11 7E СЗ 00 7С 09 2B ?C 09 FE СӨ 38 : 28 
C380 : BA CD D4 70 28 ЕЗ 16 @@ СЗ 29 7C 09 23 D? CD 11 : 74 
C3C9 : 7Е CD 04 70 CB ТЕ 20 SF CD BZ 7F 06 0? CD 33 7E : F3 
C3D9 : CB 77 20 53 CD Aé 7F 06 06 CD ЭЗ 7E CB éF 20 47 : 02 
C3E9 : CD 95 7F 06 85 CD ЭЗ 7E CB é? 20 ЗВ CD 84 7F 06 : CO 
C3F9 : 04 CD 33 7E CB SF 20 2F CD 73 7F 96 03 CD 33 7E : 41 


SUM : 0B iF 57 OF B5 80 56 6C 41 BE 72 0B 59 AA 93 2F : C8 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 *9 +А +В +С +D +Е +F :SUM 
C400 : CB 57 20 23 CD 62 ТЕ 06 02 CD 33 ТЕ СВ АҒ 20 17 : EA 
C410 : CD 51 7F 96 01 CD 33 7E СВ 47 20 ӨВ CD 40 TF 06 : Fi 
C420 : 00 CD 33 ТЕ СЗ 53 70 ED 73 `Е2 ТР ED 7B E4 7F ЗВ : 08 
C439 : C1 09 Е1 09 ED 73 EA 7F ED 7B Е2 7F 21 00 7A ED : 68 
C449 : 5B EA 7F B? ED 52 38 03 СЗ 11 7С ED 78 ЕВ 7F C1 + C? 
C450 : 01 E1 C9 09 23 7С D9 FE FE 38 07 09 70 09 FE 80 : B4 
C460 : 30 C5 CD ЕВ 7D 28 06 CD 11 7E СЗ Са ?C CD СВ 7F : 08 
сате : 09 09 09 CD DF 70 FE FF 28 25 08 CD F8 7D SF 08 : DF 
C480 : ВЗ 20 QE CB 44 20 18 54 86 07? CD 58 7E 62 СЗ °F : FO 
C490 : 70 54 06 07 4F CD 58 7E 79 05 CB 78 28 Fó 62 09 : EA 
С4А@ : 19 09 CD DF ?D FE FF 28 25 08 CD РӘ 7D SF 68 B3 : C? 
CABO : 20 ӨЕ CB 45 20 18 55 06 07 CD 58 7E бА СЗ CE 7D : ҒЗ 
Сасе : 55 06 07 AF CD 58 7E 79 05 CB 78 28 Fé бА 09 09 : 7F 
Саре : 09 СЗ 53 70 CD DF 7D 08 CD F8 7D SF 08 B3 C? D3 : 95 
CAEQ : 5С 09 ?E 09 2F SF 03 50 09 7E D9 2F АЗ SF D3 SE : DC 
C4F9 : 09 7E 09 2F АЗ D3 SF C9 03 5С 09 7E 09 2F SF D3 : BD 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +В +9 +А +В +С +0 +E +F :SUM 
C508 : 50 09 7E 09 2F АЗ SF 03 SE 09 7E 09 2F АЗ 03 SF : 23 
C510 : C9 4F 09 09 09 CD 04 70 32 Fe 7F 09 19 09 СО 04 : 04 
C520 : YD 32 F7 7F 0910909 79:C9409 23509 COA 7D-CDC:-E2 
C530 : 11 7E C9 08 78 07 07 07 Có 47 32 64 7E 09 09 09 : C9 
C540 : 54 ЗА Fé TF CD 63 7E 62 09 19 09 55 ЗА F? 7F CD : BO 
C550. : 63 ТЕ бА 09 09 D? 08 C9 08 78 07 07 07 C6 47 32 : AB 
C560 : 64 7E 08 CB 47 28 03 16 00 C9 CB 42 СӨ 14 09 7C : ЗС 
C570 : 09 FE CQ D8 FE FE 38 86 09 7D 09 FE 80 08 ES 05 : E9 
C588 : 2А Eé ТЕ ED SB ЕД ТЕ B? ED 52 01 E1 D2 4B ZD ED + 69 
C590 : 73 Е2 ТЕ ED ТВ Ea ТЕ 09 ES 09 C5 33 ED 73 Е4 ?F : F1 
CSA9 : ED 7B E2 ?F C? CB 7С 28 04 21 00 00 C9 11 7F 02 : 81 
CSB9 : В? EB ED 52 EB 00 21 7F 02 C? CB ?C 28 04 21 00 : 9B 
С5С@ : 80 C9 11 CZ 00 B? EB ED 52 EB DO 21 C? 00 C9 D? : C? 
CSD : 21 00 CO ED 5B ЕА ?F EB 29 29 29 29 EB 19 EB 29 : 39 
CSE9 : 29 EB 19 ED SB E8 7F 7B E6 97 CB ЗА CB 1B CB 3A : 34 
С5Е@ : CB 1B CB ЭВ 19 09 C9 АЕ 11 11 080 21 44 TF CB 41 : 08 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +B +9 +A +B +С +D +E +F :SUM 
š 21 48 YF CB 49 CD 14 YF 21 4C 7F CB 51 : C4 
: C9 ЗЕ 86 28 02 C6 40 06 08 77 19 C6 08 : 89 
: 4F AF CB 41 28 01 2F 32 CC 7F AF CB 49 : 75 
B 32 D9 7F AF CB 51 28 01 2F 32 04 7F C9 : ДА 
з CB өе D3 50 CB 00 D3 SE CB 99 D3 SF 09 : 05 
: SC CB өө 03 50 CB 99 03 SE CB 00 03 SF : CS 
t D3 SC CB 80 ОЗ 50 CB 00 D3 SE CB 00 D3 : ЗЕ 
: D9 ОЗ SC CB ве 03 5D CB 00 D3 SE CB 00 : CB 
1 C9 D9 D3 5C CB 00 03 50 CB 00 D3 SE CB з 9E 
: D9 C9 D? ОЗ 5C CB 00 D3 5D CB 80 D3 SE : ОЗ 
: SF D9 C9 09 D3 SC CB өө оз 5D CB өе D3 : 48 
B D3 SF 09 C9 09 ОЗ 5C CB 00 D3 50 CB 00 : CB 
{ ee D3 SF 09 C9 09 ОЗ SC 36 90 D3 50 36 : 74 
: 36 өө ОЗ SF 09 C9 99 өө өе өе өе ве OQ : зв 


"OEF", EINE, "PAINT ", “СӘХ 
の コマ ンド に従って, 各 パ ラメ ー タ を ワー 
クエ リア に セッ ト し ます 。 通常 は ROM が 
セレ クト きれ て いる アド レス 0000—7ЕЕЕ 
の 部 分 を RAM 用 に セッ ト し ます 。 あ ょ と は 
F21E—F2E1 番地 の コー ルル ー チ ン へ も ど 
り ま す 。 

LINE, PAINT 文 と も 計算 , ルー ジ 判 
定 , ビッ ト 判 定 や し た わけ で は な く 〈, 
VRAM の ビッ ト 0 一 7 を 専用 ルー チン を 
使っ て 操り 返し て 処理 し て いま す 。 そ の た 
b, プロ グラ ム が コン バ パクト に な り ま し だ た 。 

PAINT ルー チン に お いて は , 高速 化す 
る た だ ため に 右端 を サー チ す る と きだ け 境 界 色 
を 調べ る よう に し て いま す 。 を の た め 図 2 
の よう な 現象 が 生じ ます 。 こ れ が イヤ な 人 
は リス ト 1 の C463 番 地 を F8 か ら 6D4 に 変 
更 す る と , ペイ ント する 色 は すべ で て 境界 色 
と みな す よ うに な り ま す 。 その 代わ り , X 
ピー ド は か な り 遅 く な り ま す 。 

ide; リス ト NM2 の の が の ロリ グラ の で 人 
ンマ ー ジ テス 8 ト S29( ЗЕЛЕ GND 
CLS を 除い て は , PC-8801MKII に 勝る ス 
ピー ド と いう こと が お ち お 分 か り で し ょ う (El 
る 


NH. 


ベイ ント する 色 と 同 じ 色 の 区 切り が ある と き 。, 
@ を 開始 点 と する 。 A で は 塗り 分 けら れる が 
B の よう な 場合 は 通り すぎ て し まう 


図 2 
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“BENCH МАЕК TEST 


CONSOLE,,0,1 :SCREEN @ [UJ :POLL CLS] 
TIME$-'00:00:00" 
GOSUB xPPAINT:IF TIME$-'00:00:00' THEN GOTO 30 ELSE END 
*PPAINT 
PRINT 'xPPAINT" 
CIRCLE (319,99) , 189,3 
[POLL PAINT( 319,99),5,3 
190 БОТО xSYORI 
110 xFLASH 
120 'CLS TEST 
130 LPRINT 'xFLASH:CLS TEST" 
1480 FOR 1=1 TO 50 
158 [POLL CLS 
160 NEXT 
170 GOTO XxSYORI 
180 
190 *LLINE 
200 LPRINT **LLINE" 
210 FOR I=0 TO 639 
220 [POLL LINE I,9)-(639-1,199),I MOD 2 
230 NEXT 
240 FOR I=0 TO 199 
250 [POLL LINEI9, 1)-(639,199-{ ) , 1 MOD 3 
260 NEXT 
270 GOTO xSYORI 
280 xSYORI 
290 PRINT TIMES 
300 BEEP:RETURN 


図 3 ベン チマ ー ク テス ト 使用 機種 PC-8801MKII 


SCREEN 0, 1( 高速) SCREEN 0.0 
PAINT CLS LINE CLS CLS LINE 


00:00:04 00:00:27 00:00:43 00:00:08 00:01:38 00:01:21 


00:00:09 00:02:33 00:02:07 00:00:12 00:05:10 00:02:57 


EXP TET REI. ( 注 2) “aps 
00:00:13 | (09029 | 00:03:01 00:00:17 | (00:19 | 00:04:05 


* GET) ( 注 2 ) と も に 拡張 命令 の CMD CLS 2 を 実行 。 ま た CMD OFF の 状態 で も CLS 2 で 
TABUT 

ж CMD OFF t l CMD TEXT OFF OMT, テキ スト 両面 表示 の 出力 を 止め 。 プ ログ ラム の 実 
行 速度 が 速く な る モー ド 。 
CMD ON は PC-8801MK II の 通常 の グラ フィ ッ ク 命 令状 態 と 考え て よい 。 
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\ー ド ウェ ア の 隠れ た 機能 を 引き 


1984 年 9 月 掲載 


|  _ ハー ドウ ェ ア の 隠れ た 機能 を 引き 出す 
II 人 AA 


本 誌 で も 何 度 か 取り 上 げ , また 投稿 作品 
に も 多い の が ビッ トイ メー ジブ プリ ンタ に よ 
る 漢字 出力 で ある 。 漢 字 ROM を 搭載 し て 
いな い プ リン タ で も 漢字 を プリ ント アウ ト 
で きる と いう も の で , より 安価 な プリ ンタ 
で 日 本 語 が 扱え る 。 ツ フト の 力 で , ハー ド 
の コス ト パ フ ォ ー マ ンス が 上 が る わけ だ 。 
や は り , マシ ン 語 な ら で は の 芸当 だ ろう 。 
「 内 部 解析 」 で お な じみ の 鈴木 輝彦 氏 に テ 
クニ ッ ク を 解説 し て も ら お ぢ お う 。 
PC-8023C, FP-80, RP-80 以外 の ビッ ト 
イメ ー ジ プリ ンタ を お 持ち の 方 は , ソース 
リス ト の 注釈 を 参考 に テ チー ブル の コー ド を 
自分 の プリ ンタ 用 に 書き 替え て ほし い 。 


は じ め に 
E us 


本 誌 に も 「 熱 烈 体験 / BASIC で 漢字 処 
理 」 の 連載 が 始ま り ま し た 。 PC-8801MKII 
に は 漢字 КОМ が 標準 実装 る れ て いま すし , 
漢字 アゲ プリ ンタ が 欲し いな り ま すね 。 し か し , 
まだ 漢字 プリ ンタ は 高価 で す 。 

を そこで, 手持 ちの プリ ンタ に 漢字 を 出力 
する ユー ティ リティ を 紹介 し まし ょ う 。 い 
わ ば 「 熱 烈 体験 ・ マ シン 語 で 漢字 プリ ント 」 
абс RH, S теу әй) OR аш 
ッ ト イ メー ジブ プリ ンタ の こと で ます 。 

プロ グラ ム は USR 関 数 で 呼び 出し , 
СЕТ 上 の 漢字 デー タ 1 行 分 を ブリ ント ア 
ウト する サブ プルー チン と し て 作り まし た 。 


ほか の 処理 は BASIC で 十分 で すか ら 6, Ж 
に あげ た 連載 な ど を 参考 に し て 自作 ワー プ 
ロ に 挑戦 する の も いい で し ょ З, 

対象 プリ ンタ と し て は , 通常 使用 され て 
いる 製品 に で きる か ぎり 対応 で きる よう 2 う 心 
HUFL DETI DLI RRL, 


サブ ルー チン の 
使用 法 
E NI 


リス ト 1 を 打ち 込む 前 , な よび ロー ド の 
前 に は 必ず 
CLEAR, &HDFFF Q 
を 実行 し て くだ さい 。 
この ルー チン を 使う 前 に は さらに, 
DEF USR = &HE000 
の 実行 が 必要 で す 。 忘 れず に / 
$C, 実際 に 漢字 を 出力 する 場合 は 
DUMMY=USR (< 数 式 >) 
で プリ ンタ を 選び ます 。 変更 し な い 場 合 は 
上 の 操作 は 必要 あり ませ ん 。 な お , 


< 数 式 > ニ 1 つつ FP-80, RP-80 
が 対応 し て いま す 。 自 分 で 定義 むす れ ば , も 
ちろ ん ここ に あげ た プリ ンタ 以外 に も 対応 
S E E I E 
KC, 
DUMMYS$ = USR (< 文字 列 >) 
で 1 行 分 の 漢字 の 印字 が 行わ れ ま す 。 漢字 
ュー ド は 上 位 , 下位 の 順 で 文字 列 中 に 連続 
し て 並べ ます 。 た と えば , 「 日 本 」 と 印字 す 
る に は 
DUMMY$=USR (MKI$&H467C) + 
МК1$ (&Н4В5С) 
と し ます 。 漢字 コー ド お よび 印字 る れる 漢 
字 の 大 きる と 位置 を 表 1 に まとめ まし た 。 


プ ブログ ラム の 説明 


図 1 を 見 て も 5 えば 分 か る よう に , RES 
ドッ ト の ビッ トイ メー ジ を 半 ド ッ ト あ る い 
は 3 分 の 1 ドッ ト ず らし て 重ね 打ち する こ 


< 数 式 > ニ 0 っ PC-8023C と に より 18 ピ ン 漢 字 ア リン タ と 同等 の 大 き 
漢字 コー ド (&HXXXX) 印字 され る 漢字 の 大 き さ と 位置 _ 
0000 一 00FF 半角 16X 8 ドッ ト 
0100—01FF Ê 8X8 ド ッ ト 上 半分 に 印字 
スー パー スク リプ トト 文字 と 同等 
0200—02FF 1⁄8 8X8 ド ッ ト 下 半 分 に 印字 
サ プ ス クリ プ ト 文 字 と 同等 
3021— 全角 16X16 ド ッ ト 


表 1 漢字 コー ド と 印字 され る 漢字 
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さき の 漢 字 を 印字 し て いま す 。 し た が っ て , 
1 行 分 の 漢字 デー タ を 1 回 に 印字 する こと 
に な り ま す 。 逆 方 向 紙 送り の で きる プリ ン 
タ で あれ ば 1 文字 ずつ の 印字 が で きま す が , 
プリ ンタ が 限定 され る の で 採用 し ませ ん で 
Uz 

次 に 漢字 を 印字 する 処理 に つい て 説明 し 
(C15 RE dcr 

縦 8 ビ ッ ト の ビッ トイ メー ジ に よる 印字 
を 行い ます か ら , まず 送る デー タ の 数 を 計 


18 ビ ピン プリ ンタ の ビン 配列 (PC-8822 な ど ) 


- 


9 x 2 の 千島 配列 で 
縦 16 ド ッ ト の 印字 を 行う 。 


算 す る 必要 が あり ます 。 た だ し , 漢字 に は 
横 16 ド ッ ト の も の と , 横 8 ド ッ ト の も の が 
あり , その 上 漢字 と 漢字 の 間 の スペ ー ス も 
ある の で 多少 複雑 で す 。 

計算 し お わっ た だ たら 6, プリ ンタ を 片方 向 印 
字 モ ー ド (ビッ トイ メー ジ が 双方 向 の も の 
DA) に し て , 倍 密 ビ ッ ト イ メー ジ (104 
ンチ の プリ ンタ で は 最大 横 960 ド ッ ト ) あ る 
い は CRT ビッ トイ メー ジ ( 同 640 ド ッ ト ) 
の コン トロ ー ル ュ コー ド と 先ほど 計算 し た ド 


9(8) ビ ンプ リン タ の ピン 配列 (PC-8023C) 


Ы тав 2 回 目 は 半 ドッ ト (!% ド ッ ト ) ず らし て 
e UU риге 結果 と し て 、18 ピ ンプ リン タ と ほぼ 同 程度 の 
© = © 9 大 き さ の 漢字 が 印字 で きる 。 た だ し , ピン が 
О О 5 森 い の で すき ま が つ ぶれ て し まう 。 
Q О © 
Q Q Ó 
: ©. 
кы = Cy y УЕ ЛЕДЕ 9. 


図 1 プリ ンタ の 動作 


ッ ト 数 を 送れ ば 準備 OK で す 。 

デー タ を 送る に は 漢字 ユー ド か 6 ら 漢字 パ 
ター ン を 得る 必要 が ある の で , BASIC の 
ROM 内 サブ ルー チン ( 表 2 ) を 利用 し て 漢 
字 パ ター ン を 読み 出し て いま す 。 それ か ら , 
漢字 パタ ー ン を ビッ トイ メー ジ 用 デー タ に 
変換 し て プリ ンタ に 送る わけ で す が , この 
部 分 は 図 2 に くわ し 説明 し て お きま し だ 
の で そちら を 参照 し て くだ さい 。 

1 回 目 の ビ ッ ト イ メー ジ を 1 行 分 送り 終 


Revo de 


FACC( フ ロー ティ ング ・ ア キュ ムレ ー タ ) に 格納 され て いる 数 値 デ ー タ を 整数 型 に 変換 。 АТЕВ. О. ЕГН, 
а 結果 は FACC と HL レジ スタ に 格納 され る 。 
LPTOUT | 3ED4H A の デー タ を プリ ンタ へ 出力 。 すべ て 保存 
REDKNJ 723DH HL で 示さ れる 漢字 ROM の アド レス より ACC で 示さ れる ワー ド 数 だ け , DE で 示さ れる バッ Z r PR 28 د‎ S. h a la | 
ァ に 読み 出す 。 
CALADR 7290H HL に より 示さ れる 漢字 コー ド の 漢字 ROM の アド レス を 求め る 。 結 果 は HL に アド レス , A に A,F,B,C,D,E,H,L 
ワー ド 数 が 格納 され る 。 


#2 使用 し た 内 部 サブ ルー チン 


①JIS コ ー ド &H3021 を 印字 する 場合 


16 ビ ッ ト 
ر سے‎ 


XXXXXXXXXXXXXxxx" 


ооо ооо оуовооо ° 
ر وا‎ „ ч!» 


くく 


16 ビ ッ ト 
—— ا‎ 


* * о ө ө ө ө ө ө ө э ө ө о о 


Ute ws а Ir ME 


'XXXXXXxxxxxxxx'?" axe -ә Vers Ure (o vo Ж дий ды өл. 
"teuer txt S.S ye se 8 
E "бб бб бб бу, | 
М а а, ааа a Rd О Р. „кей РРА ЈА 
* XXXXX%XXXX5X5x ° ° XXXIX. 
QAAE utto gc ttt cs 
re лее tape s ee ve moe. det SN Ga * 
чое кй уз ЫМ: Fee дды 
フォ ント バターン 1 回目 の 印字 
だ た だ し (NUMSPC) で 示さ れる ドッ ト 数 の スペ ー ス が 両側 に 印字 され る 。 ま た , 半角 ある い は М 角 の 場合 は 右側 だ け に スペ ー ス が 印字 きれ る 。 
② 実 際 の 印字 例 


(тв [Ж БҮРЕ ЛЕ, aie re PT t led ФАНТАН (eR ee ау, te 
ema Шү ЖУ} eds ruin PEPERIT CONG hs 


зна iubes trol Eloy ЖОКИ ГЕ eU AUD LL, ke 


16 ビ ッ ト 
— 


QXXXXXXXXXXXXXX, 
ОО 9 


QOXXXXXXXXXXXXX, 


8 ..X...X...X...%x. 
E 
£ 
XXXIX, 


QOXXXXXXXXXXXXX*, 
ООН 


„ € € € € ЭЄ € ЭЄ € ЭЄ ЭЄ ЭЄ ЭЄ XX X 


2 回 目 の 印字 


図 2 漢字 の 印字 方 法 
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わっ た だ ら 半 ドッ ト 紙 送り を 行い , 同様 に し 
て 2 回 目 の ビ ッ ト イ メー ジ を 送り ます 。 を 
LC, 必要 な だ け 紙 送り (初期 設定 は 1 回 
Ht 2 回 目 で 合わ せ て 10 ド ッ ト ) を し て か 
ら プ リン タ を 初期 状態 に も ど し て 復帰 し ま 
d 

以上 で 1 行 分 の 漢字 の 印字 が 終わ り ま し 
た 。 細 か い 作 業 は リス ト 1 に つけ た 注釈 を 
見 て い に だ だけ れ ば 分 か る と 思い ます 。 

コン RaB: ニ ウン コード ーー ジジ レ 7 
タ の コン トロ ー ル コー ド の 情報 で す 。 登録 


ずみ の PC-8023C, RP-80 な ど と ュー ド 体 
系 の 違う プリ ンタ を 使う 場合 は E19B 番 地 
以降 を 注釈 に 従っ て 変え て くだ きい 。 な お 
本 誌 6 月 号 127 ペ ー ジ に , NEC 純正 プリ ン 
Z と RITEMAN, MP-80 プ リン タ の コン 
トロ ー ル ュー ド 表 が 掲載 きれ て いま し た 。 
あの よう な 形式 の 表 に まとめ て みる と , 分 
か りや すい か も し れ ま せん 。 


Output kanji data to printer 


ESC: 
CINT: 


FE93 
C259E1 


E007 
E008 
E009 
E99A 
E99B 
E99C 
E99E 


E99F 
E919 
E913 
E916 
E017 
ЕВ1А 
E91D 
E91E 
E91F 
E929 
E921 
E922 
E922 
E923 
E924 
E925 
E027 
E028 
Е@2А 
E02B 
E02B 
E92C 
E92D 
E92F 
E939 
E939 
E933 
E934 
E937 


110800 


COUNT: 


HALF : 


LOOP1: 
3279E1 
AF 
CDSFE9 
CD29E1 


EQU 
EQU 
LPTOUT : EQU 
REDKNJ : EQU 
CALADR : EQU 


LD 


XOR А 
CALL CTRLPR 
CALL OUTNUM 


1BH 定数 設定 
21A9H 
3ED4H 
23DH 


7290H 
9E999H 


3 
NZ, CHGTYP 


HL (ваг 


А,В 
(KNJNUM ) , A 
(KNJPNT ) ,HL 


DE ,8 
HL , (NUMSPC ) 


SS クア 


A—O 


(LINFLG),A 


女 字 列 の アド レス と 長 さ を 得る 
HL っ アド レス 


長 さ を 2 分 の 1 に する 
( | XCEELF O88 (3 (8008) 


文字 列 情 報 を ワリ ワーク に コピ ー 


お わり に 
B — 1 


^ 内 部 解析 ? を ちょ っ と 応用 し て , ROM 内 
ルー チン の 利用 な ども し て いま す 。 記 事 は 
読 ゆ だ が け で な く こ の よう に 具体 的 な プログ 
ラム を 作っ て みて , 内 部 解析 の 知識 と どん 
と どん 使っ て みる の が いち ば ん で す 。 


内 部 サブ ルー チン の アド レス 設定 


数 式 の 場合 は プリ ンタ 切り 替え へ 


DE 一 半角 の 横 の ドッ ト 数 
(DE は スペ ー ス の 数 を 含む ) 


全角 で ある か な いか の 判断 


全角 で な けれ ば ジャ ンプ する 


ドッ ト 数 の 加算 を 行う 


漢字 の 文字 数 だ け 繰 り 返 す 


1 回目 か 2 回 目 か の フラ グ 


] ビッ トイ メー ジ の ドッ ト 数 設定 
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E93A 3A76E1 
E93D 47 
E93E 2A77E1 
E941 

E041 C5 
E042 ES 
E043 CD8EE9 
E846 CDC?EO 
E049 E1 
E94A 23 
E94B 23 

C1 
10F2 
3A79E1 


CTRLS2: 
CTRLS3: 


A, (KNJNUM) 


B,A 
HL, CKNJPNT ) 


BC 

HL 

REDDAT 
DATOUT 

HL 

HL 

HL 

BC 

LOOP2 
^,CLINFLG) 
A 

CTRLPR 

A, (LINFLG) 
А 


NZ,LOOP1 


CTRLSB 
B,CHL) 
А,В 

А 

Z 


HL 
A, (HL) 


LPTOUT 
CTRLP1 


HL , TABLE 
AF 
A,CLPTTYP) 
А 


Z,CTRLS2 
B,A 


A,3 
CTRLS3 
CTRLS1 


AF 


HL , DE 
А 
NZ,CTRLS4 


A, (HL) 
HL 


H, (HL) 
L,A 


HL 文字 列 の アド レス 
B 一 長 さ /2( 王 漢字 の 文字 数 ) 
4 BC と HL を 退避 
漢字 パタ ー ン を バッ ファ に 読み 込む 


プリ ンタ に デー タ を 出力 する 


HL と BC を 復帰 し , ポイ ンタ を 進め る 


文字 数 だ け 繰 り 返 す 
改行 と 紙 送 り を 行う 
[1 回 目 : A・-」 
l 2 回 目 : A 一 2 


2 回目 が 終了 し て いな けれ ば , 2 回 目 の 印字 を 行う 


コン トロ ー ル コー ド 出 力 ルー チン 
デー タホ イン タ を 求め る 


文字 数 が 0 の 場合 は 何 も せ ず に も と る 


文字 数 だ け デ ー タ を 出力 する 


テー タ ボ イン タ を 求め る 


設定 され て いる フリ ンタ の テー タテ ー ブ ル の トラ フ を 求め る 


頭 2 パ イト は コン トロ ー ル コー ド の テー タ て は な い の て スキ ッ フ 


| A の デー タナ ン バ ー か ら そ の デー タホ イン タ を 求め る 


漢字 コー ド を 得 て , その パタ ー ン を バッ ファ に 設定 
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E092 
E093 
E095 
E09? 
E098 
E098 
E099 
E09B 
E09D 
ЕВАВ 
ЕВА1 
ЕВА2 
ЕВА4 
ЕВА6 
ЕВА? 
ЕВА? 
E9AA 
E9AD 
EQAE 
EQAF 
E9B9 
E9B3 
E9B4 
EQB7 
EQB9 
E9BB 
E9BC 
E9BD 
E9BD 
E9BE 
E9BF 
E9C1 
E9C1 
E9C2 
E9C3 
ЕВС5 
E9C6 


ЕВС? 
ЕВС? 
ЕВСА 
E9CB 
E9CC 
E9CF 
E9D2 
E9D4 
EQD? 
E9D8 
EQD? 
EQDA 
EQDA 
E9DC 
E9DF 
E9E9 
E9E2 
EQES 
E9E6 
E9E ァ 
Е@ЕВ 


EOE8 
E9EA 
E9EA 
E9EC 
E9ED 
E9F9 
E9F 1 
E9F3 


7C 
D692 
2991 
25 


F5 
3EFE 
0371 
CD9072 
C1 

ES 
D69F 
3991 
AF 


327AE 1 
117BE1 
78 

48 

B? 
CCBDE9 
F1 
CD3D72 
ЗЕРЕ 
D371 
9C 

C9 


C5 
AF 
9698 


12 
13 
19FC 
C1 
(9 


3A7AE1 
B? 

ES 
C411E1 
217BE1 
1699 
3A7AE 1 
3c 

87 

SF 


0600 
3A79E1 
B? 
2806 
3A7AE1 
ЗС 


DATOT2: 


DATOT3: 


A,H 

2 
NZ,REDDT1 
H 


NC,REDDT2 
А 


(KNJSIZ),A 
DE,BUFFER 
^,B 

C,B 


A 
Z,CLRBUF 
AF 
REDKNJ 
A,0FFH 
(71H),A 
@ 

М7 


BC 


A, (KNJSIZ) 
А 
АЕ 
NZ,OUTSPC 
HL , BUFFER 


D,9 
A, (KNJSIZ) 


> 


A 
@ 
( 


+ + 


LINFLG) 


DATOT2 
(KNJSIZ) 


` + 


IODpPpHNDPPU MPDP 


Es 
“~ > 


o 
с) 


O 
со 


B,8 

HL 

A, CDIRLR) 
A 

NZ , DATOTS 


4 分 の 1 角 の 下 半 分 (サブ スクリプト ) の 場合 コー ド を 補正 
| 


A と F を 退避 

漢字 ROM ア ドレ ス の 計算 ルー チン と デー タ 読 み 出 し ルー チン は 

」 ROM5 な の で , バン ク 切 り 替 え を 行う 

漢字 ROM の アド レス 計算 

AF を ブッ シュ し て BC で ポッ プ す る と , | B-A 
ESF 


= 


T と な る 


全角 の 場合 は |, そう で な けれ ば 0 を 漢字 サイ ズ に 設定 


_ DF 一 バッ ファ の 先頭 アド レス 


サ プ ス クリ ブフ プ ト の 場合 は バッ ファ の ク リア と ボイン タ の 移動 を 行う 
AF を 復帰 
漢字 ROM の 読み 出し を 行う 


バン ク を 元 に も どす 


4 分 の | 角 の 上 半分 (スー パー スク リプ ト ) で な り い 場合 は 復帰 


バッ ファ の クリ ア と ボイン タ の 移動 を 行う 


プリ ンタ に デー タ を 出力 する 
全角 の 場合 は スペ ー ス 出力 


ы, 


HL 一 バッ ファ の トッ プア ドレ ス 


ре? 
2 (全角 以外 ) 
2 回 目 の 印 字 で 
HL 十 2 (全角 ) 
Ac per (全角 以外 ) 


出力 バイ ト 数 の ルー プ カ ウ ンタ 


ポイ ンタ 退避 


いち ば ん 上 の ドッ ト が MSB か LSB か の 判断 を 行い , 
MSB の 場合 は ジャ ンプ 
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E9F3 CB96 RES CHL) O-- -bit 0(LSB) 
Е@Е5 1F RRA 8 
E9F6 19 ADD HL,DE ビッ トイ メー ジ の デー タ を 得る …… ら 
EOF? 10FA DJNZ DATOTA 9 
EOF9 1806 JR DATOTé Ө ы USE 
E9FB DATOTS: 

EOFB CB96 RLC (HL) 9 bit 7(MSB) 
E9FD 17 RLA | EFC. 9 
EGFE 19 ADD HL,DE abr E 
E@FF 1@ЕА DJNZ DATOT5 $ ixi 
E101 DATOTé: 

E101 CDD43E CALL LPTOUT 7-55 

E104 E1 POP HL ポイ ンタ 復帰 

E105 00 DEC C о РЕСЕ 

E106 20E2 JR NZ,DATOT3 GE 

E108 F1 POP АЕ 

E109 217CE1 LD  HL,BUFFER*1 

E19C 3D DEC A 全角 の 場合 は 残り 右 半 分 を 出力 する 
E19D F5 PUSH AF 

E19E 28CA JR — Z,DATOT1 

E110 F1 POP AF スタ ッ ク 調 整 

E111 OUTSPC: 

E111 3A75E1 LD A,(NUMSPC) 

E114 B? OR A 

E115 C8 RET Z 

E116 C5 PUSH BC 

E117 47 LD  B,A (NUMSPC) の 数 だ け ド ッ ト ス ヘー ス を 出力 する 
E118 OUTSP1 : 

E118 AF XOR A 

E119 CDD43E CALL LPTOUT 

E11C 19FA DJNZ OUTSP1 

E11E C1 POP BC 

E11F C9 RET 1 

E120 OUTNUM: — ビッ トイ メー ジ 数 出力 

E129 3A74E1 LD А,(МИМТҮР) 

E123 B? OR A 出力 タイ フ に よる 分 岐 

E124 291B JR — NZ,OUTNM1 а 

Е126 09 ЕХХ y 

E127 ES PUSH HL 

E128 11E803 LD DE,1999 

E12B CD4BE1 CALL OTNMSB 

E12E 116400 LD DE,199 к, RE 

Е1З1 СО4ВЕ1 CALL OTNMSB un Gas. 

E134 1E9A LD  E,10 Modo ddr s cen 
E136 CD4BE1 CALL OTNMSB 5 

E139 1E01 [хе E, 1 

E13B CD4BE1 CALL OTNMSB 

E13E El POP HL 

E13F D9 EXX 

E140 C9 RET "n 

E141 OUTNM1 : 

E141 D9 EXX a 

E142 7D EB SALL А 

Е143 CDD43E CALL LPTOUT jp. E M aia o 
E146 7C LD AH (dudes E 
E147 D9 EXX 

E148 C3D43E JP LPTOUT 2) 

E14B OTNMSB : 

E14B AF XOR A | 

E14C OTNMS1 : QNSE 

E14C EDS2 SBC HL,DE | os» 

E14E 3803 JR C,OTNMS2 apyu. А 

E150 3C INC | 


A 
EIS IBE JR OTNMS1 


E193 
E133 
E154 
E156 


E159 
E159 
E15C 
33 E15D 
E15E 


E15F 
E160 
E163 
E164 
E167 
E168 
E169 
E16C 
E16D 
E16E 


19 
C630 
C3DASE 


CDA021 


ЕТТТ C 


E172 
E172 
E173 
E173 
E174 
E174 
2 E175 
x E175 
E176 
E176 
E177 
E177 
E179 
E179 
i E17A 
ES E17A 


E17B 
E17B 


E19B 


E19B 
E19D 
Е1А1 
Е1А2 
E1A6 
E149 
E1AD 
E1B1 


Е1В4 
e E1Bé 
et E1B9 
£ Q E1BD 
E1BF 
E1C3 


Е1С7 


99 
99 
99 
99 
99 
9999 
99 
99 


9999 
941BSB1B 
53 
061B5430 
319A9D 
9A1B5431 
39040D1B 
5D1B41 


0101 
921B4C 
951B3391 
BAOD 
07183323 
9A9D1B32 


OTNMS2: 
ADD 
ADD 
JP 


O se se >° 


HL , DE 
^,'0* 
LPTOUT 


Change printer type 


いち ば ん 上 は LSB 
ーー Ev 出力 方 式 は NEC 弄 


| 


- 


5 


| 


á ESP CESC, S^ 
үс: 665-5 


6,ESC,T01/,10,13 
px. 


— 


整数 型 に 変換 し て 0 一 255 で な けれ ば も どる 


プリ ンタ の タイ プ を 設定 


ビッ ト 数 出力 方 法 (NUMTYP) と デー タ の 上 下 (DIRLR ) の 設定 


プリ ンタ の 種類 


geo ФЕ. 


ドッ トス ペー ス の 数 (全角 は 2 倍 ) 


文字 列 情報 ( 長 さ と ポイ ンタ ) 


i 
\ 
[$58 I 
全角 以外 o 


漢字 パタ ー ン 格納 用 バッ ファ 


片方 向 。 ビット イメージ 設 定 


半 ドッ ト 紙 送り 


10,ESC, T19 ,10;139,ESC, J ;ESO, A 


いち ば ん 上 は MSB 


9.5 ド ッ ト 紙 送り し , 初期 状態 に も どす 


ノン ーー ピッ ト 出 力 方 式 は エプソン 型 


SESE 3 ,1,10,13 


HGTYP: 
CALL CINT 
LD A,H 
OR A 
RET NZ 
LD A,L 
LD (LPTTYP),A 
XOR A 
CALL CTRLSB 
DEC HL 
LD A, (HL) 
LD (NUMTYP),A 
DEC SHE 
LD A, (HL) 
LD (DIRLR),A 
RET 
; Work area 
LPTTYP: 
DEFB @ 
DIRLR: 
B 0 
NUMT YP : 
B 0 
NUMSPC : 
B 9 
KNJNUM : 
B 9 
KNJPNT : 
ие 
LINFLG: 
B 9 
KNJSIZ: 
DEFB 0 
BUFFER: 
DEFS 32 
, 
TABLE: 
+ PC-8023C 
DEFB @,@ 
DEFB 
DEFB 
文字 数 
DEFB 
文字 数 
; FP-88,RP-89 ン ンー 
ЮЕЕВ 12 
DEFB 2,Е5С, 1.“ 
DEFB 
uo re 
DEFB 


END 


TES GE 35540,13,ESC. 227 
ее ыр 


文字 数 


倍 密 ビッ トイ メー ジ 設 定 ( 2 は 文字 数 ) 
3 分 の 1 ドッ ト 紙 送り 


3 分 の 2 ドッ ト 紙 送り し , 初期 状態 に も どす 


— PC-8801/MIK Il , 


EN 


1985 年 4 月 掲載 


INes- 日 本 語 巳 人 A SIC/88 漢 字 BASIC 
И 


は じ め に 
P а 


この プロ グラ ム は PC-8801 HO N。。- H 
本 語 BASIC で 作成 され た ラン ダム 形式 の 
漢字 デー タフ ァイル を , 「88 漢 字 BASIC」 

(シス アバ が ツ フ ト ) の デー タフ ァイル に 変 


換 す る コン バー タ で す 。 私 個人 と し て は , 
メモ リ の 大 きき や 高速 性 , 操作 性 な どの 点 
で 88 漢 字 BASIC が 気に入っ て いま す の て , 
この コン バー タ を 作っ ただ わけ で す 。 


使用 方 法 
E з 


Q1. FROM DRIVE = ? 


7.7981 


02. 


も と の DATA FILE の 入っ て いる ドラ イブ No. を 、 入 力 し て くだ さい 。 

TO DRIVE (テス トモ ー ド ・・・RET ) =? 

変換 され た DATA を 入れ る ドラ イブ No. を 、 入 力 し て くだ さい 。 こ こ で 、RET キー を 、 
押す と 、 テ スト モー ド に な り ま す 。 フ ロッ ピー に DATA は 、 入 り ま せん 。 こ れ は 、 変 換 
され た DATA の 長 さ が 、 も と の 長 さ と 異な り 、 不 都合 を 生じ る 場合 (長く な っ て 、 指 定 
ОРИ) が あり 、 を の 本 生ま らち 太 で を る あみ ば し た も の る 


. FILE NAME (FROM) =? 


も と の DATA FILE の ファ イル 名 を 、 入 力 し て くだ さい 。 


. FILE NAME ( T0) =? 


変換 後 の DATA FILE の ファ イル 名 を 、 入 力 し て くだ さい 。 E 24201481, A 
じ フ ァイル 名 は 、 使 用 し な いで くだ さい 。 


変換 する FIELD は 、 何 Byte 目 か ら ? 


FIELD 文 の 中 で 、 漢 字 DATA の 入っ て いる 場所 が 、 は じ め か ら 数 えて 何 Byte 目 に あたる 


か を 、 入 力 し て くだ さい 。 
EX. FIELD #1,4 AS A$,30 AS KANS (А$ … 数 値 , KAN$… 漢 字 ) の と き は 、5 を 入力 


し ます 。 


. 何 Byte 分 =? 


FIELD 文 で 指定 され て いる 漢字 DATA 分 の 長 さ を 、 入 力 し て くだ さい 。05. の 例 で は 、 
30 を 、 入 力 し ます 。 


. 変換 結 果 は 画面 に 表示 され ます が 、 印 字 も し ます か 。YES …1 / NO…0 ? 


変換 され た DATA (漢字 分 ) を 、 プ リン ター に 印字 し た いと き は 、1 を 入力 し ます 。 


・ アス キー 形式 文字 は 、 ど ちら の タイ プ に 変換 し ます か 。 


ヒー = С 1 f アス キー タイ プ eoo co 2 ? 
半角 ひら が な を 除く その 他 の 半角 文字 (アル ファ ベッ ト , カタ カナ , 記号 ) を 、 半 角 
文字 (2Byte 系 ) に する か 、 ア スキ ー タ イプ (1Byte 系 ) に する か の 選択 で す 。 文 字 の 感 
じ と 、DATA の 長 さ が 遅い ます 。 
MAX RECORD = n 
変換 開始 RECORD NO. (はじめ か ら …… RET ) ? 
ZU QE ОО ЕС ADU CSREES ERIS АЕН 


変換 終了 RECORD NO.( お わり まで ……RET ) ? 


変換 を 終了 する RECORD NO0. を 、 入 力 し て くだ さい 。RET キー を 押す と 、MAX RECORDO 
n が 入力 され ます 。 
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REIS 


リス ト 1 が デー タコ ン バ ー タ で す 。88 漢 
字 BASIC 上 で 動作 し ます 。 88 漢 字 BASIC 
を 立ち 上 げ て 打ち 込み 、 セー ブ し て くだ さる 
Us 

プロ グラ ム を 実行 する と 画面 に 図 1 の 操 
作手 順 が 表示 され ます の で , この 注意 に 従 
っ て 順に 指定 を し て 《 だ さい 。 

Q10. の 「 変 換 終了 」 ま で 入力 が 終わ る 
と , 変換 作業 で す 。 画 面 に 図 2 の よう な 確 
認 表示 が あり ます 。 第 1 列 が レコ ー ド 番号 
C, 第 2 列 が 変換 後 の 漢 字 デ ー タ の 長 る で 
Fe 
аш 

LEN (W$) 
の こと で , 変換 後に デー タ の 長き が 変わ っ 
て 指定 し た FIELD 文 の 値 よ り 長 く な る よ 
う で し た ら 6@( ア ッ ト マ ー ク ) を 表示 し ます 。 
第 3 列 は 変換 後 の デ ゲー タ で す 。 
変換 が 終わ る と 「 変 換 終 了 」 の メッ セー 
ジ が 表示 る れ ま す 。 


プロ グラ ム の 考え 方 
E я 


基本 的 に この プロ グラ ム は Nss- 日 本 語 
BASIC の 漢字 デー タ の 文字 列 の 中 を 左 か 
6 1 文字 ずつ 読ん で いき , Nss- 日 本 語 


1 (18)  : 数 値 表 現 あ れこ れ 
2 @(38) : ゲ ー ム 作り に 役立つ サブルーチン 集 
図 2 


BASIC に よる コー ド お よび デー タ の 確認 , 
これ に 対応 する 88 漢 字 BASIC の コー ド お ゎぉ 
よび デー タ へ 変換 し て いる の で す 。 
コー ド に つい て は , 次 の よう な 相違 が あ 
gie Cpe 
N。s- 日 本 語 BASIC 
FA コー ド … 次 に 続く の は 2 バイ ト の 
漢字 デー タ 
FE コー ド … 次 に 続く の は 1 バイ ト 系 
の 半角 ひら 仮名 デー タ 
FD コー ド … 次 に 続く の は 1 バイ ト 系 


の ASCII デー タ 
コー ド な し … 次 に 続く の は 1 バイ ト の 
ASCII デー タ 
Nss- 日 本 語 BASIC 


7F ユー ド …2 バ イト 系 の 漢字 , 半角 
文字 すべ て 。 は じ め の 7 
F コ ユー ド で 2 バイト 系 の 
文字 へ IN, 次 の 7F コ ュー 
ド で OUT 

コード な し … 1 バイト 系 の ASCII タ 


[gt 
>, ブロ グラ ム を 組ん で 気づい た 点 
を いく つか 述べ て お きま す 。 

i, 88 日 本 語 BASIC の 1 バイ ト 系 
ASCII デー タ を 88 漢 字 BASIC C 2 バイ ト 
系 の 半角 文字 に 変換 する と , デー タ の 長き 
が 元 よ り 長 ぐ な り , メモ リ の 中 で 変換 きれ 
Gb nervis Au Р. ГЕ BR 
ー し た 分 が 入り きら な い 場 合 が あり ます 。 
これ を 防ぐ た め , 見 か け の 字体 は 変わ り ま 
す が , 1 バイ ト の ASCII タイ プ に 変え られ 
る よう に 配慮 し まし た 。 実 際 に ディ スク に 
デー タ を 書き 込む 前 に , 図 1 の 「 テ スト モ 
ー ド 」 て で 試し, 変換 後 の 文 字 の 長 る を 確認 
dose b. 

また , 100 FIELD 文 の 中 に 漢字 デー 
タ の 部 分 が いく つも ある 場合 に は , 図 1 の 
一 連 の 操作 を 繰り 返す 必要 が あり ます 。 

vcn ОУ? テイ ウレ を ポート iC 
いま せん が , プログ ラム の 一 部 修正 で 変換 
で きる と 思わ れ ま す 。 


> > 
ーー 


外字 に つい て は サポ ー ト し て いま せん 。 
変換 後 , 新規 登録 し て くだ さい 。 

な お , 変換 の 途中 で STOP キー を 押し た 
り エ ラー が 発生 し て スト ッ プ し た り し て も , 
自動 的 に ファ イル を クロ ー ズ する よう 配慮 
さ SMC まだ た 2882 て コン ロッ 
ィ ス ク が 壊れ る こと は な いと 思い ます が , 
大 切な デー タ の バッ クア ッ プ は で きる だ け 
取っ て お いて くだ きい 。 


お わり に 
к + 


変換 え ピ ー ド が 遅い 点 は ご 了承 くだ きい 。 
せっ か くく 打ち込ん だ 漢字 デー タ を いち い 
ち 打 ち 込 み 直 す の は めん どう だ と いう 方 に , 
是非 利用 し て いた だ きだ た いと 思っ て いま す 。 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


(n 
7 


^ N88 漢字 BASIC(RF) 一 ーーー 一 > 880 1 漢字 BASIC(RF) 
DEFINT A-Z:0N STOP GOSUB xSTOP.ON:STOP ON 
ON ERROR GOTO xERROR.STOP:CLS 
INPUT "01. FROM DRIVE = ';FROM.DRIVES$ 
INPUT "0Q2. TO DRIVE (AFt-F --RET) = "; TO. DRIVES 
INPUT "Q3. FILE NAME (FROM) = ';FROM.NAMES 
INPUT '04. FILE NAME ( TO ) = "$ TO. NAMES 
INPUT "05. 変換 する FIELD iX, fo Byte 目 か ら ';Е1 
INPUT "06. fj Byte 分 E2 
PRINT "07. 変換 結果 は 画面 に 表示 され ます が 、 印 字 し ます か 。" 
INPUT ` YES…1 / NO…0 — ';PR 
PRINT '08. アス キー 形式 文字 は 、 ど ちら の タイ プ に 変換 し ます か 。" 
INPUT ` 半角 文字 …・1 / アス キー タイ プ …:?2 "НА 
IF HA=1 THEN HA ま ="HAN" ELSE IF HA=2 THEN HA$-'ASC' ELSE HA$= "KON" 
FIELD #1,F1-1 AS DUMY11$,F2 AS DD1$,257-F1-F2 AS DUMY12$ 
FIELD 42,F1-1 AS DUMY21$,F2 AS DD2$,257-F1-F2 AS DUMY22$ 
OPEN FROM.DRIVES$-*':'«FROM.NAMES$ AS #1 
IF TO.DRIVE$«»'' THEN OPEN TO.DRIVES$-':'«TO.NAMES$ AS #2 
MAXR=LOF( 1 ) ' 
PRINT:PRINT * MAX.RECORD = ` ;MAXR 
INPUT "09. 変換 開始 RECORD NO. (UL w95---RET) `;START.REC 
INPUT "010. 変 換 終了 RECORD NO. (5094€ ---RET) " jEND . REC 
IF START.REC-0 THEN STARTR=1 ELSE STARTR=START . REC 
IF END.REC=9 THEN ENDR=MAXR ELSE ENDR=END . REC 
FOR TIMER=1 ТО 1999:NEXT:CLS 
FOR REC=STARTR TO ENDR 
GET #1,REC 


380 FOR L=F2 TO 1 STEP -1 

390 IF MID も (DD1 ま も ,L,1) く >" ' THEN LE-L:GOTO 420 
499 NEXT 

410 LE-0 

420 K$-'FD':U$z'*':H$z'"':J-1 

430 “ 

440 * 

450 WHILE J«-LE 

460 0%=МІ0%(001%, J,1) 

470 IF D$-CHR$(C&HFA) AND K$-'FD' THEN xFA1 
480 IF D$-CHR$(C&HFA) THEN ※FA3 

490 IF D$-CHR$C&HFE) AND K$-'FD' THEN xFE1 
500 IF D$-CHR$C&HFE) THEN ※FE3 

510 IF D$-CHR$C&HFD) OR J=1 THEN xFD1 


520 


IF K$-'FA' THEN ※FA2 


530 IF K$-'FE' THEN xFE2 

540 IF K$="FD" THEN xFD2 

550 

560 XURITE. 

570 W$=W$+H$ 

580 WEND 

590 

600 IF LEN(W$)>F2 THEN MARK$="@" ELSE MARK$-' " 

610 PRINT USING’ #### (8) "* ; РЕС, MARKS,LEN(CUS) ; :PRINT U$ 
620 IF PR<>1 THEN 640 

630 LPRINT USING #### 1 (R88) — ';REC,MARKS,LEN(CUS) ; :LPRINT U$ 
640 IF TO.DRIVE$-'' THEN 670 

650 LSET DUMY21$=DUMY11$:LSET DD2$=W$:LSET DUMY22$=DUMY12$ 
660 PUT #2,REC 

pi^ MO-REC MOD 15:1F MO-0 THEN FOR TIMER=1 TO 1000:NEXT:CLS 
6 ン 

690 NEXT REC 

700 PRINT:PRINT "変換 終了 " :CLOSE :END 

(19.7 

720 “ 

730 xSTOP.ON 

740 CLOSE:PRINT:PRINT 'CLOSE 終了":END 

750 “ 

760 ※ERROR .STOP 

779 CLOSE:PRINT:PRINT "CLOSE #7" 

780 ON ERROR GOTO 9:END 

(20:7 

800 “ 

1000 xFA1 

1010 КФ= "ҒА" 

1020 IF J-1 THEN 1040 

1030 IF HA$-'HAN' THEN H$-'':GOTO 1050 

1040 H$-CHR$(&HTF) 

1050 J-J*1:60TO XxURITE. 

1060 “ 

1070 xFA2 

1080 ND1-&H80 OR ASC(MID$(DD1$,J*1,1)) 

1090 ND2=&H89 OR ASC(D$) 

1100 H$-CHR$(ND1)-*CHR$(ND2) 

1110 J=J+2:GOTO ※URITE . 

1120 ." 

1130 xFA3 

1140 K$-'FA':H$-2'':J-J)41:GO0TO XURITE. 

1150-7 

1160 xFE1 

1170 Ks$-'FE' 

1180 IF J-1 THEN 1200 

1190 IF HA$-'HAN' THEN H$-'':GOTO 1210 

1200 H$-CHR$(CRHT7F) 

1210 J=J+1:GOTO XxURITE. 

1220 “ 

1230 xFE2 

1240 IF CHR ま (&HA9 )=<0% AND D$<CHR$(&HC0) THEN ND1-&H82 ELSE ND1-&H83 
1250 ND2-ASC(D$)-32 

1260 H$-CHR$(ND1)-*CHR$(ND2) 

1270 J=J+1:GOTO xURITE. 

1280 “ 

1290 xFE3 

1300 K$-'FE':H$-'':J-2J)«1:GO0TO xURITE. 

1910 ^ 

1320 xFD1 

-1330 Ks-'FD' 

1340 IF J-1 AND HA$-'ASC' THEN xFD2 

1350 IF J-1 THEN U$-U$-CHR$(C&H7TF):GOTO xFD2 

1360 IF J<LE AND HA$-'HAN' THEN H$-'':GOTO 1380 

1370 H$-CHR$(&HT7F) 

1380 J=J+1:GOTO xURITE. 

1990. 

1400 xFD2 

1410 IF HA$-'ASC' THEN H$-D$:GOTO 1480 

1420 IF D ま < く CHR ま (&H49 ) THEN ND1=&H89 : МО2=А5С (0%) +&Н80 : GOTO 1460 
1430 IF CHR$(&H40)=<D$ AND D$4CHR$(&H80) THEN ND1=&H81 :ND2=ASC(D ま )+&H49 : GOTO 146 
9 

1440 IF CHR ま (&HA9 )=<0% AND D ま く CHR ま (&HC9 ) THEN ND1-&H82:ND2-ASC(D$):GOTO 1460 
1450 IF CHR$(&HC0)-4D$ AND D$<CHR$(&HE@) THEN ND1=&H83 : ND2=ASC(D$ ) 
1460 H$-CHR$(ND1)-*CHR$(ND2) 

1470 IF J-LE THEN _H ま =H ま +CHR ま (&H7F ) 

1480 J=J+1:GOTO MRITE 
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用 


この コー ナー で は , 特集 で 使用 し た 用 語 
に つい て 説明 する 。 

日 本 語 BASIC 

BASIC 上 で 漢字 が 使用 で き , また 仮名 漢 
字 変換 に よる 入力 が 可能 な 日 本 語 BASIC 
に は 表 A の よう な 種類 が ある 。 なお, 日 本 
語 BASIC と いう 名 称 を 使っ て は いな い が , 
12 月 号 で 紹介 し た PC-8801 用 「 漢 字 フ レン 
ド 」 や PC-8801 用 「 漢 字 Editor」 (PC- 
KANJI ユ ー ザ ー ズ クラ ブ 12,800 円 ) Е 
の ユー ティ リティ も ある 。 

まだ た だ , 2 月 号 で 紹介 きれ て いる よう に 
MS-DOS 用 BASIC イン タプ リタ (14,000 
円 )。 同 コン パイ ラ (44,000) も 日 本 語 
BASIC (86) と ほぼ 同等 の 機能 が ある 。 
RS-232C 

コン ピュ ー タ と モデ ム と の 間 の 通信 の た 
め に 定め られ た 規格 で , 元 来 アメ リカ 電子 
工業 会 で 定め た も の だ が , 日 本 で は これ を 
拡大 し た JIS 規格 の C63601 と いう の が あ 
の 

RS-232C の 信号 線 に 対し, JIS ぉ ょ び PC 
シリ ー ズ の コネ クタ 名 称 と の 比較 一 覧 を 表 
B に 示す 。 

RS-232C と ケー ブル で 直接 接続 し た 場合 
の デー タ 通 信 の 範囲 は 数 十 メ ー ト ル ん 程度 だ 
が , 音響 カプ ラ な ど で 電 話 回 線 を 利用 する 
と 広範囲 な ネッ トワ ー ク が 可能 と な る 。 

な お , ペソ コン どう し を 接続 する 場合 は 
各社 まち まち の RS-232C 規格 を 独自 に 使 
っ て いる 場合 が ある の で , マニ ュ ア ル で 確 
認 す る こと 。 

ー ミ ナル モー ド 

PC-8001 以 上 の 機種 ご は , パソ コン を 端 
末 装 置 と し て 使う た な ため の ター ミナ ルモード 
を サポ ー ト し て いる 。 だ だ し , PC-8001 は 
RS-232C ュ ネ ク タ の 仕様 が ほか と 異な る 
の で 注意 が 必要 で ある 。 

ー ミ ナル モー ド て 使用 する 用 語 を 個別 


2f 
RR 


Ni- 漢 字 BASIC 日 本 電気 |PC-8801/MKT| Р empta ies ie В 
"-— 東海 クリ エイ ト 
8801 漢字 BASIC T CE Й (ж9,800) E == 
Ne 日 本 語 BASIC(86) 日 本 電気 |РС-9801 54 Бе 
ja £ D 
Й РС-9801Е = 
PC-98H39-2W (К) 
(¥ 8,000) PC-98H39-4W(K)* | РС-98Н87 (К) 
2 КЕ (X 8,000) (X 9,000) 
PC-98H42MW (К) 
7 РС-9801М2 
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(* は 付属 品 ) 


ЖА 日 本 語 処理 シス テム ディ スク 一 覧 


に 説明 する RS 
x: = [0] GND АА FG 
全 二 重 / 半 二 重 @ TXD BA SD 
ホス トコ ンピュータ と 端末 (PC) を 接続 2 RXD BB RD 
、 са E: RTS 
する 方 法 に 全 二 重 , 半 二 重 の 2 種 が ある 。 ® CTS CB cs 
= 16 -Er y ® DSR cc DR 
図 A え の よ ょ うに, 全 一 重 て は ホス トコ ン ヒ ュ の cud ББ <Б 
ー タ か ら の デー タ 受 信 / 送 信 は 独立 し て お DCD СЕ CD 
り , 入力 し た デー タ の 表示 は ホス トコ ュ ン ピ + 
Бе = fy VS H GND 
ュー タ を 経由 し て 行わ れる 。 パ パ ツ コ ン ど う i * de Е 
し の 接続 は 半 二 重 モ ー ド を 使う こと が 多い 13 GND SCB BCS 
(入力 が 直接 ディ スプ レイ に 表示 きれ る た р 253 SBA H 
16 NC SBB BRD 
Ah 17 RXC рр RT 
パリ ミディ (チェック) 18 NC 
デー タ 送 信 の 誤り も を チェック する た め , 5 ies uen a 
8 ビッ ト の デー タ の うち も .1 ビッ ト を パリ テ ا2‎ i © sop 
š 2 
ДЕК ЕЗ S bs OMA e т NC CH/CI SRS 
は 奇数 パリ ティ か 偶数 パリ ティ か で 異な る E res "e 5 


が , 8 ビッ ト の うち の 1 の 総数 を 一 定 に す 
る よう な 値 を と る ( 図 B)。 こ の パリ ティ ビ 
ッ ト を 目安 に 送受 信 側が 1 の ピッ ト 総 数 を #8 i 
チェ ッ ク す る と , デー タ 転 送 時 の 誤り を 検 を 何 ビ ピット 送 れる か 。 単位 は ビッ ト / 秒 
出 で き る 。 (bps)。 

スト ッ プ ビッ ト 長 (スタ ー ト ピッ ト 長 ) フロ ー 制 御 (X パ ラメ ー タ ) 

デー タ を 送る とき に , デー タ の 区 切り と デー タ の 受信 速度 が CPU の 処理 速度 を 
し て 図 C の よう な デー タ を 送る 。PC で は НЬ, 受信 デー タ に あふ れ が 生じ る 。 
スタ ー ト ピッ ト は 固定 し て いる が , スト ッ EEC, 受信 側 の バッ ファ の 容量 が ある 値 
プ ビ ピッ ト は 選択 が 可能 。 た と えば , PC-9801 ぞ 越 えた ら 5 送信 側 に 制御 コー ド を 送る 。 
で は 1 /1.5/ 2 の 3 通り ある 。 する と, 送信 側 は 次 の 制御 ュー ド が 与え ら 
ボー レー ト れる まで 送信 を 停止 する 。 X パ ラメ ー タ を 
デー タ 転 送 速 度 の 単位 。 オフ に する と , この 制御 コー ド は 送ら な い 。 


パー ソナ ルコ ンピュータ で よく 使う 信号 は 
1—8, 20 の 信号 で ある 


1 秒間 に デー タ 


Ë 文字 デー タ 


TESSE = 


< I 
'. 


偶 教 パリ ティ 
ピッ ト が 1 の デー タ が 偶数 個 に な る よう に する 。 上 の 例 で は パリ ティ ビッ ト は | と な る 。 
奇数 パリ ティ 
ビッ ト が 1 の デー タ が 奇数 個 に な る よう に する 。 上 の 例 で は パリ ティ ビッ ト は 0 と な る 。 


図 B パリ ティ チェ ッ ク 
スタ ー ト ピッ ト スト ッ プ ビット 


п ПШ ( 例 : 2 ピット) 


図 A 


図 C 区 切り 記号 
185 


賞 原稿 最 優秀 作品 


ー タ 


1983 年 4 月 掲載 


PC-8801 は , N-BASIC と Nss-BASIC の 
2 つの BASIC を 持っ て いる が , Naa。 モ ー ド 
で N-BASIC を ロー ド す る こと も で きる 。 

し か し , その 際 , 中 間 コ ー ド が 変更 され 
DRD, 別 の 命令 に な っ て し まう 。 そこ で 
この 中 間 コ ー ド を 変換 する コン バー タ が 必 
要 と な る 。 

これ か ら 説 明 す る プロ グラ ム は , コー ド 
変換 後 。 1 度 テ ー プ に セー ブ す る こと な く 
RAM 上 を Naa。 モ ー ド の テキ スト エリ ア に 
転送 する テキ スト コン バー タ で ある 。 


使い 方 
E ncc а 


① Nss- BASIC を 起動 する 。 
ФО NEW_JON_1 〇 の 
と し て , N-BASIC に する 。 
@ MON Q 
S E000 © 
LUC, プロ グラ ム を 入力 する 。 入 力 
が 終わ っ だら 
④ WE000, E205 
а Еу Жее лу т っ 
@ +[B] 
で N-BASICt $ E +, 
⑥ CLEAR300, &HDFFF О 
LUC, メモ リ の 上 限 を 指定 する 。 
 ⑦ ュ ン バ ー ト し た い プ ログ ラム を ロー ド 
する 。 
MON © 
GE000 © 
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とじ で こと コシ パー タ 和 を 走ら や る 5 
⑨ 数 秒 後 に ュ ユン バー ト OK / の メッ セー 
ジ が 表示 きれ る 。 
Q 
で すでに Na モー ド が コー ルド スタ ー 
ト す る 。 
O 
MON Q 
GE100 Q 
と し て , 復活 プロ グラ ム を 走ら せる 。 
@[ CTRL ] +B] 
で Nss-BASIC に も どり 
LIST の 
と する と , プロ グラ ム は コン バー トミ き 
れ て いる 。 


プロ グラ ム を 
説明 し よう 
коо 


1. 中 間 コ ー ド を る が し , 必要 が あれ ば 変 
換 を 行う E000H か ら 始 まる ルー チン で 
ある 。 

i, HL レジ スタ に テキ スト トッ プ 

を 入れ , 中 間 コ ー ド を る が す 。E180H か 
ら 始 まる DATA と 比べ , 必要 で あれ ば 
変換 を 行い テキ スト エン ド で 次 の ルー 
チン へ ジャ ンプ する 。DATA は N- 
BASIC 中 間 コ ー ド , Nss-BASIC 中 間 ュ 
ー ド の 順 で 並ん で いる 。 変更 する 場合 は , 
最後 に 00H, 00H と する 。 

2. テキ スト の ブロ ッ ク 転 送 を 行う E095H 
か ら 始 まる ルー チン で ある 。 


دں 


コンバート が 終わ る と メッ セー ジ を 表 
示し , キー 入力 待ち に な る 。 こ の 時 , 
STOP キ ー が 入力 る きれ る と N-BASIC 
モニ タ の コマ ンド 待ち に ジャ ンプ する 。 

また だ , ОРН (| RETURN | キー) が 
入力 され る と, テキ スト を Nss-BASIC 
の テキ スト エリ ア (0000H~) へ ブロ ッ 
ク 転 送 す る 。 を そし て ポー ト 31H 1 =00H 
を 出力 し Nss-BASIC ROM を モレ クト 
L. 0000 古 に ジャ ンプ し た 後 。 プロ グラ 
ム を 終え る 。 

STOP キー を 押し た と き は N-BASIC 

に も どり , ブログ ラム を セーブ する 。 Z 
LC, モニ タ よ り EOA5H へ ジャ ンプ す 
れ ば , | RETURN | キー を 押し た の 
同じ に な る 。 
. Nss-BASIC 復 活 ア ログ ラム は 
Naa-BASIC で 使用 する E100H か ら 始 ま 
る ルー チン で ある 。 プ ログ ラム は ROM 
内 ルー チン を 使用 し て いる 。 

CALL 05COH (CD-C0-05) 

は HL レジ スタ に テキ スト トッ プ を 入 
れ て コー ル す る と , テキ スト ポイ ント を 
次 々 と 修復 し . テキ スト エン ド を DE レ 
ジス タ に 入れ て 返っ て 〈 2, 

CALL 5550Н (CD-50-55) 

は , HL レジ スタ の 示す 番地 か ら 始 まる DATA 
を 00H が ある まで CRT に 出力 する 。 

CALL F16CH (CD-6C-F1) 

は 裏 ROM を モレ クト する ルー チン で あ 
る 。Nss-BASIC モ ニタ の ホッ トス ター ト 
6088H は この ルー チン を CALL し て か 

b 22 ZA TET 


プロ グラ ム の 


Nss-BASIC を N-BASIC に コン バー ト 
も 大 = とき 


E041H E4 ¬+ E9 
E045H E9 ¬+ E4 


N88-BASIC 


コー ルド スタ ー ト 


E07EH 56> 5E 
E081H 5E- 56 
Nss- BASIC #60078 
FAT EET L 
N-BASIC- — F Cu 
-FUKO 277 


て みる 。 
E180H 91-9D-00-00- 

と し て 変換 し た プロ グラ ム を ロー ド す る 。 
コン バー タ を 走ら せ , キー 待ち に な っ た ら 
スト ッ プ キー を 押し , [| CTRL |+IBI で 
N-BASIC に も どす 。 

最後 に Nss-BASIC 復活 プロ グラ ム に つ 
いで 考 ん て 2 2 95 

EI0DH-E112H & C *00H 7 3 2 5, 
プロ グラ ム は E000HーE118 の 範囲 と な る 。 


9999 
9931 
95C9 
5550 
SFB9 
SFCA 
6088 
7000 
8020 
E658 
EB18 


N-BASIC に も と る 。 
次 に N-BASIC の 中 
間 コ ー ド を 変換 し た い 
と き は どう する か 。 だ 
t AGE, 
PRINT (91H) 
LPRINT (9DH) 
に 変換 する 場合 を 考え 


—A wb St リロ ケー タブ ル に な る の で , どの 番地 か ら 

待ち に な っ だ た ら ス トッ で も 走る 。Naa モ ー ド で NEW ОФ, リセ ッ 

Zac. ト を 行っ た 場合 , キーボー ド ま た は テー プ 
CTRL PFB C か ら 6 入力 し て 使う こと が で きる 。 


この プロ グラ ム で は 2 バイ ト の 中 間 コ ユー 
F ド な ど は サポ ー ト し て いな い が , 大 部 分 コ 
ン バ ー ト は 可能 で あろ 5, 

PC-8801 は , まだ ソフ ト が 少な いよ う で 
ああ 2a し か し 。 ご の コン に コタ Шэ; 
N-BASIC の プロ グラ ム が より よい ブロ グ 
ラム と し て Nss-BASIC で 走る こと と な る 
の で 活用 る れ た い 。 


N88TOP : EQU 
PORT: EQU 
N88RPR:EQU 
DISPMS:EQU 
N88DSP : EQU 
INPUT :EQU 
DISPCR:EQU 
N88MON : EQU 
CPYQTY: EQU 
TXTTOP: EQU 
N88TPT : EQU 
N88EPT : EQU 


""N88BASICO > * А ト 先頭 番地 


ROM を セレ クト する ポー ト の アド レス 
N88 の プロ グラ ム ボ イン タ 復帰 ルー チン 


… 赤 字 列 表示 ルー チン 最後 は 0 


N88 の 文字 列表 示 ル ー チ ン 
IXCAU)U 22) — 
CR, LF を 行う 

N88 の モニ タホ ッ ト ス ター ト 番 地 
テキ スト エリ ア の 大 きき さ 

テキ スト の 先頭 番地 

N88 の テキ スト 先頭 番地 ポイ ンタ 
N88 テキ スト 終了 番地 ポイ ンタ 


F16C 


ニニ ーーーーーーーーーーーーーーーーーーーーーーーーーーー~ーーーーー 


3 X X X E E E E EE E E E E E E E E E E E E E E E E E E E E E E E € E E E E E E E E E E E E E E E € E € € € € € 
m x 
EX N ---> N88 text converter x 
Н source list x 
3 XGOOOOOOOOODOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOCK 
0000 RSTADR:EQU  0000H リセ ッ ト 時 に 実行 を 開始 する アド レス 
52ED 
; program begins from 9E999H 
g----------------2-2--..-------41--22-- 


ORG 9E999H 


E999 21CCE9 ENTRY: LD HL,TITLE …… ж 2 MG 

E003 CDC5E9 CALL DISPLY -= EOD E 

E996 212080 LD HL,TXTTOP мс HL に テキ スト の トッ プア ドレ ス 

E009 7E IDSRCH:LD AHD — АСТ ФИА 

ЕДВА FEOB СР OBH e ID. 続く 2 byte は 8 進数 

E99C 285A JR Z,SKIP2 

E99E FE9C CP OCH z aaa ene E LD 続く 2 byte は 16 進 数 

E919 2856 JR. 57 SkIP2 

E012 FEOD CP QDH ssa ID. 続く 2 byte は アド レス 

E914 2852 JR — Z,SKIP2 

E016 FEQE CP ЙЕН oU LD. 続く 2byte は 行 番 号 

E018 284E JRE SKIPS 

E91A FE1C CP ICM АА LD. # (2 bytel2 RE 2& 
Е E91C 284A JR. Z,SKIP2 
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続く 4 byte は 単 精度 実数 
? 
続く 8 byte は 倍 精度 実数 
続く 1 byte は 整数 
ОАТАХ Ф Ф 2 – К 
"(ダブ プル クォーテーション ) 
0 
Z,CHKENO 
ВЕН 
NZ , CODECH 


REM の 後 は ' (クォーテーション) か ? 


REM の 後 の '( ク ォ ー テ ーション) は コー ド を 変更 する 


LD 
LENDSR : INC 
D 


СР... Ө 
Z , CHKEND 
LENDSR 


ゼロ な ら プ ログ ラム 終了 
N88 BASIC へ 切り 換え 


SKIP8: 


SKIP4 : H L を 進め る 

: 人 中 間 コ ー ド で な い 部 分 を 飛ば す 
SKIP2: 
SKIP1: INC 


SKIP9: INC : 
DATA 文 の 処理 


Z ,CHKEND 
ЗАН 
7,5К1Р@ 


E076 


E078 
E079 
E97D 
E989 
E983 
E085 
E086 
E088 
E089 
E08A 
E98C 
E98E 
E090 


E092 
E093 


E095 
E0?8 
E09B 
ЕВ9Е 
ЕВА1 
ЕВА4 
ЕВА? 
E9AA 
E9AD 
E9B9 
E9B2 
E9B4 
E9B7 
E9BA 
E9BD 
E9BF 
E9C9 
E9C2 


ЕӨС5 
E0C8 
E9CB 


E9CC 
E9D9 
E9D4 
E9D6 
E9DA 
E9DE 
E9E2 
E9E3 
ЕВЕ? 
ЕВЕВ 
E9EF 


E9F 1 
ЕВЕ5 
EOF9 
E9FD 


18F5 


47 
FD2186E1 
FD5600 


21F1E9 
CDCSE9 
2136E1 
CDCSE9 
2144E1 
CDCSE9 
2164E1 
CDEDS52 
CDB95F 
FE0D 


D331 
C30000 


CDED52 
CDCASF 
c? 


9C294E29 
42415349 
4329 
2D2D2D20 
4E383820 
42415349 
43 
29C3B7BD 
C429BADD 
CADEB9C9 
B999 


2929BADD 


CADEB9C4 


294F4B21 
2199 


JR ОАТААМ№ 
Н —— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 
; INNER CODE CHANGE 中 間 コ ー ド 変換 
CODECH:LD B,A 
LD IY$GODTBL 3.14.52 3988 IY に 中 間 コ ー ド テー ブル の 先頭 番地 
TABLSR iLD , | 
LD D に N-BASIC の 中 間 コ ー ド , E に N88 の 中 間 コ ー ド 
LD 4,0 
CP D О eene 中 間 コ ー ド テー ブル 終了 ? 
JR Z,SKIPO 
ED AB 
EP SD Н テー プル の 内 容 と 一 致す る か ? 
JR 7,СНАМбЕ 
ING Е УРРА 1 
ІМС ІҮ : Na lY を 進め 次 の テー ブル を 見 を 
m — Bbenoseeeed 
CHANGE :LD (HL ) を EE ES. us t аА 中 間 コ ー ド を 変換 する 
JR SKIPO 


GON88: LD HL,MESAGO =- : 
CALL DISPLY : 
LD HL,MESAG2 


変換 終了 。N88-BASIC へ 


CALL DISPLY | ЖЕ EIMIEOY T 
LD | 


HL , MESAG3 
CALL DISPLY i 
LD HL ,MESAG4 i 
CALL DËSPMS V SSR 


JR .NZ,INPTCR 
LD HL,TXTTOP =: 


LD DE,N88TOP S. ak EEE 変換 の 済ん だ プロ グラ ム を 


LD BC CPYQTY .... i 


OUT (PORT),A 
ЭРТА. 


ISPLY:CALL DISPMS 
CALL DISPCR 
RET 


Oss •• ve 


N88 の テキ スト エリ ア に 転送 


TITLE: DEFB OCH, ° N BASIC Ce 0CH は 画面 クリ ア [=CHRS(12)] 


DEFB '--- N88 BASIC 


DEFB “° テキ スト コン ハル"ー タ ー” ,0 


; 
MESAGO:DEFB "コン ハル"ー ト OK11 7,80 


ORG 9E199H 


N88-BASIC の 復活 プロ グラ ム 
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; 
E100 2A58E6 REPAIR:LD HL, (N88TPT) - F モス Poa a SERE 


E103 75 LD CHE o mnn 

E104 CDC995 CALL N88RPR НИДАЛ, ポイ ンタ 復帰 ルー チン 
ELOT 43 INC DE 

E108 13 INC DE 

E109 ED5318EB LD (N88EPT ) РЕЧ У テキ スト 終了 アド レス セッ ト 
E10D 2119E1 LD HL , MESAG1 

E110 CD5955 CALL N88DSP 

ENGRBIDGCF1 CALE NEGRO энәне нин ыд ARMEL? h 

E116 СЗ886@ JP NESMOUNS ESS モニ タ へ 


E119 294E3838 MESAG1:DEFB ' N88 BASIC ^ 
E11D 20424153 

E121 494320 

E124 CCAFB6C2 ОЕЕВ フウ カツ 2?92*5&-— 
E128 20CCDFDB 

E12C B8DED?D1 

E130 20 

E131 204F4B21 DEFB “° OK!^,0 

E135 00 


, 
E136 20204E38 MESAG2:DEFB ' N88 BASIC 7,0 
E13A 38204241 
E13E 53494320 
E142 C900 


E144 2929D3C6 MESAG3:DEFB ° モニ ター 7" GE100 * 
E148 C9B929C3 

E14C DE294745 

E150 31303020 

E154 D6D829CA DEFB "ヨリ ハラ ラ セ テ 723"94.',0 
E158 BCD7BEC3 

E15C 20B8CODE 

E160 BBB2A199 


, 
E164 20204869 MESAGA:DEFB “° Hit RETURN Key * 
E168 74205245 
E16C 5455524E 
E170 204B6579 


E174 20 
E175 00 DEFB @ 
E176 27444131 ` DEFB. ^^ JA BE T 


E17A 2D504658 
E17E 20566572 
E182 29312E3 ァ 7 


E186 9АС89ВС1 CODTBL : DEFB JAH, 9C8H , 9BH , 9C1H … 中 間 コ ー ド テー ブル 


E18A 9C9A9D9B DEFB 9CH,9AH,9DH,9BH 
E18E 9E9C9F9D DEFB 9EH,9CH,9FH,9DH 
E192 A99EA19F DEFB 9A9H, JEH, 9A1H, ЕН 
E196 A2A9A3A1 DEFB 9A2H,9A9H,9A3H , 9A1H 
E19A A4A2A5A3 DEFB 9A4H,9A2H, 9A5H , ВАЗН 
E19E A6A5A7A6 DEFB 9A6H, 9A5H, 9A7H, 9A6H 
E142 A8A7A9A8 DEFB 9A8H, 9A7H,9A9H , 9A8H 
E1A6 AAA9ABAA DEFB 9AAH, 9A2H, 9ABH, 9AAH 
Е1АА ACABADAC DEFB 9ACH,9ABH, 9ADH , 9ACH 
E1AE AEADAFAE DEFB ВАЕН, 9ADH , 9AFH, 9AEH 
E1B2 B9D9B1CF DEFB 9B9H,9D9H,9B1H,9CFH 
E1B6 В207В5СВ DEFB 9B2H, 9D7H, 9B5H , 9CBH 
E1BA _B6D2B7CA DEFB 9B6H, 9D2H, 9B7H, 9CAH 
Е1ВЕ C2BAC5BB DEFB 9C2H, 9BAH , 9C5H, 9BBH 
E1C2 C6BCC7BD DEFB 9C6H,9BCH,9C7H,9BDH 
E1C6 C8BEC9BF DEFB 9C8H, 9BEH , 9C9H, 9BFH 
E1CA CAC9CBC1 DEFB 9CAH,9C9H,9CBH,9C1H 
E1CE CCC2CDC3 DEFB 9CCH, 9C2H, 9CDH , 9C3H 
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m 


E1D2 CECACFCS 
Е106 DOCóD1C? 
E1DA D2C8D3C9 
E1DE 0506070С 
Е1Е2 D8DDD9DE 
E1E6 DADFDBEO 
Е1ЕА DCE1DDE2 
E1EE DEE3DFE4 
E1F2 E9ESE1E6 
E1F6 E2E7E3E8 
E1FA ЕДЕ9ЕЅЕА 
E1EE ETEBESEC 
E202 E9EF0000 


E206 


PEA AYR h 
CHANGE E092 
DATAAN E96D 
GON88 E095 
MESAGO EQF1 
N88DSP 55580 
N88TOP 0000 
SKIPO EQ6A 
STRSKP EG4F 


CHANGE E092 
CHKEND E959 
CODECH E078 
CODTBL E186 
CPYQTY 7000 
DATAAN E96D 
DISPCR SFCA 
DISPIEY Е@С5 
DISPMS 52ED 
ENTRY E000 
GON88 E095 
IDSRCH E009 
INPTCR EQAD 
INPUT1 SFB? 
LENDSR E047? 
MESAGO EQF1 
MESAG1 E119 
MESAG2 E136 
MESAG3 E144 
MESAG4 E164 
N88DSP 5550 
N88EPT EB18 
N88MON 6088 
NS88ROM F16C 
N88RPR 05С@ 
N88TOP 0000 
N88TPT E658 
PORT 0031 
REPAIR E100 
RSTADR 0000 
SKIPO  E96A 
SKIP1- E069 
SKIP2 E068 
SKIPA E0966 
SKIP8 E062 
STRSKP E04F 
TABLSR E070 
TEIGE” EGCC 
TXTTOP 8020 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


.. 


END 


9CEH, 9C4H, 9CFH, 9C5H 
9D9H,9C6H, 9D1H, 9C7H 
9D2H, 0C8H , 9D3H , OC9H 
9DSH, 9D6H, 9D7H, 9DCH 
9D8H, 9DDH , 9D9H , 9DEH 
9DAH, 9DFH, 9DBH, 9E9H 
9DCH, 9E1H, 9DDH, 9E2H 
9DEH,9E3H , 9DFH,9E4H 
9E9H, BESH, 9E1H, 9E6H 
9E2H, 9E7H, 9E3H , 9E8H 
9E4H, 9E2H, QESH , OEAH 
9E7H, 9EBH, 9E8H , QECH 
9E2H, 9EFH, 9,9 


CHKEND E059 CODECH E078 
DISPCR 5ЕСА DISPEYCEOES3 
IDSRCH E009 INPTCR EQAD 
MESAG1 E119 MESAG2 E136 
N88EPT EB18 N88MON 6088 
N88TPT E658 PORT 68031 
SKIP1 E069 SKIP2 ЕӨ©8 
TABLSR E07D ПЕТЕ EGCC 


Zu Us アル レッ ンス US: 


E98A 


E938 E94A E979 


E93C 
E079 
E9BA 
E939 E976 
E9C8 


E003 E098 EO9E E9A4 


EQAA E9C5 


E969 
E96B 
E9B2 
E9AD 
E042 E94D 
E095 
E19D 
E99B 
E9A1 
ЕВА? 
E110 
E109 
E116 
E113 
E104 
EOB? 
E100 
E9C9 


E9C2 


Е053 E974 E086 E993 


E92C 


E99C E010 E914 E018 E91C E95E 


E929 
E924 E028 
E934 E057? 
E090 
E9000 
E006 E9B4 


CODTBL 
DISPMS 
INPUT1 
MESAG3 
N88R0M 
REPAIR 
SKIPA 

TXTTOP 


E186 
52Е0 
SFB? 
E144 
F16C 
E100 
E066 
8020 


CPYQTY 70090 
ENTRY E000 
LENDSR E047? 
MESAG4 E164 
N88RPR 95C9 
RSTADR 0000 
SKIPS: E062 


チエック サム 付 4G 
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CPIM 


1983: 4 HS —19841E 3 BS 


1983: 4 5 5 Na か ら CP/M へ ファ イル を 転送 する 塚本 昌 代 
1984 年 3 月 号 ミニ フロ ッ ピ ー を 高速 化す る 綾瀬 大 上 


IE 


1983 年 4 月 掲載 


制作 の 動機 
E o Í 


PC-8801 T CP/M が 走る よう に な り , 
CP/M 上 で 走る MBASIC (イン タプ リタ ) 
BASCOM (ユン パイ 2) も 使用 可能 と な っ 
755 

MBASIC と PC - 8801 の N。。DISK - 
BASIC と は 画面 ・ ゲ グラ フィ ッ ク 命 令 等 が 違 
つて いる が , 一 般 命令 ・ 算 術 命令 ・ 文 字 列 
操作 命令 等 は ほぼ 同じ だ 。 

と ころ が , N。。DISK-BASIC で 開発 し た 
ツ フ ト を , CP/M 上 で ュ ユン パイ ル し , 高速 
CEE DOL C 5, CP/M E Na 
DISK-BASIC で は ディ レク トリ や FAT 
が 違う た め , CP/M で Na。 の ディ スケ ッ ト 
を 直接 読み 込む こと が で き な い 。 

そこ で , N。。DISK-BASIC で アス キー セ 
ー プ きれ だ た プログ ラム ファ イル を CP/M 
の ファ イル と し て 読み 込む プロ グラ ム を 開 
発し た わけ だ 。 ア セン ブラ は CP/M の 
ASM を 使用 し て いる 。 


ブロ グラ ム の 機能 
E 1s 


NaaDISK-BASIC で アス キー セー ブ き 
れ た プロ グラ ム を ファ イル と し て 読み 込み , 
194 


ディ スク へ 書き 込む 。 


な お , DISK-BASIC で アス キー ャ ー プ 


きれ た プロ グラ ム フ ァ イル や 。 デー タフ ァ 
イル で も 同様 に 使用 可能 で ある 。 


|] PC-8801 
PC-8031-2W (5 イン チ 両 面 倍 密度 ) 
CP/M(Ver 2. 2A) 


プロ グラ ム を 


(1) CP/M を 起動 する 。 
(2) М. ТОСРМ (プロ グラ ム の 名 前 ) と キー 
АУЗ. 


プロ グラ ム を 
操作 し よう 


(1) 画 面 が クリ ア さ る れ , メッ セー ジ が 表示 さ 
れる 。 
(2② ド ライ ブ B に Na の ディ イス ケット を 挿入 


する 。 

(ЗООКА АЕ AE Ж BY SV SEMIS. 
[RETURN] の み で 入力 する 。 
eee CTRL-CC を 入力 す 
る と CP/M の コマ ンド モー ド へ 戻る 。 

(4)Nia フ ァイル 名 を 入力 する 。 フ ァイル デ 
ィ ス ク プ リタ は 指名 し な いこ と 。 ファイ 
ル 名 に エラ ー が ある と, 再 入 力 と な る 。 

(5) CP/M ファ イル 名 を 入力 する 。 ド ライ ブ 
名 は 指定 し な いよ うに 。 

ファ イル 名 に エラ ー が ある と 再 入力 と な 
る 。 Naa フ ァイル が みつ か ら な い 時 や ア 
スキ ー セ ー プ され て いな い 時 は Na ファ 
イル 入力 へ 戻る 。 

(6) ド ライ ブ B の Na ファ イル が ドラ イブ A 
へ CP/M ファ イル と し て 転送 きれ る 。 

DISK が FULL の 場合 等 は 「WRITE 
ERROR」「JOB END」 と 表示 され , CP/M 
の コマ ンド モー ド に 戻る 。 

(7 転送 終了 後 , JOB END」 と 表示 され , 
CP/M の コマ ンド モー ド に 戻る 。 
⑯ エ ラー メッ セー ジ 

FILE NOT FOUND ! 
指定 きれ た Naa フ ァイル が みつ か ら な か 

Js 

NON ASCII TYPE ! 

旧 定 され だ Naa フ ァイル が 非 ア スキ ー 形 

SMS odis 

FILE ALREADY EXIST ! 
指定 され た CP/M ファ イル が すでに 存 

在 し て いた 。 

DIRECTORY FULL ! 

СР/М の ディ レク トリ が いっ ぱい に な 


эль 


WRITE ERROR 
CP/M ファ イル が 大 きく な りす ぎ て デ 
ィ ス ク が いっ ぱい に な っ た 。 


プロ グラ ム の 
内 容 


Na ディ スケ ッ ト の 指定 ファ イル を 読み 
込む に は ディ レク トリ か ら 指 定 フ ァイル を 
探し , そこ に 書か れ て いる 先頭 クラ スタ か 
ら 順 々 に , FAT を 探し な が ら 6 読み 込ん で 
HS 

CP/M で は 1 モク タ が N。。 の 半分 の 128 
バイ ト に な っ て いる 。 ま た だ 。 Naa。 の サー ジ き 
ス 1 (裏面 ) は CP/M で は セク タ 番 号 の 
33 一 64 に 割り 当て られ て いる 。Nss デ ィ ス ク の 
クラ スタ 番号 と CP/M ディス ク の トラ ッ 
ク ・ セ クタ 番号 の 関係 は 図 1 の と な り で あ 
る 。 

dg Na E СРАМЮ АУ: 
FAT の 位置 は 図 2 の よう に な っ て いる 。 
FAT の 14 一 16 セ クタ の 3 モク タ は 同一 内 
容 で ある 。 


図 1 を みて , 次 の 式 を 考え た 。 


TR= (CR ぎ 4) 
SEC= (CRmod4)*16 十 1 か ら 
(CRmod4) * 16 十 16 ま で 


ЖДО ОА N35) 
TR: トラ ッ ク 番 号 (CP/M) 

SEC: セク タ 番 号 (CP/M) 

¥ 整 除算 
mod : 剰余 

これ は Na の クラ スタ 番号 か 6, CP/M 
の トラ ッ ク ・ セ クタ 番号 へ の 変換 式 で ある 。 
8080 ニ ー モ ニッ ク で 書 〈 E, Acc に CR 
(クラ スタ 番号 ) が 入っ て いる も の と し て 


ANI 11111100B ; F 2 ビッ トク 
リア 

RRC 1x2 

RRC ‚4 


で トラ ッ ク 番 号 が 求め られ る 。 
KU, セク タ 番 号 は 


ANI 00000011B ; mod4 

RLC A 9 

RLC EI 

RLC P8 

RLC ; *16 

INR A he 
で 求め られ る 。 


1 つの ファ イル の ディ レク トリ は 図 3 の 
よう に 16 バ イト か ら な っ て いる 。 0 一 8 が 
ファ イル 名 と 拡張 子 , 9 が 属性 , 10 が その 
ファ イル が 格納 され て いる 先頭 クラ スタ 番 
号 で ある 。 属 性 を みれ ば を その ファ イル が ア 
スキ ー 形 式 で ある か どう か が わか る 。 

次 に 先頭 クラ スタ か ら 順 々 に 続く クラ ス 
タ が どこ に ある か , FAT 内 を 探す 方 法 を 
例示 し て 説明 し よう 。 

SMPL と いう ファ イル の ディ レク トリ 
t FAT が 図 4 の よう だ っ だ た と する 。 

まず , SMPL の 先頭 クラ スタ 番号 を みて 
みる と 42 で ある 。 SMPL ファ イル は クラ ス 
タ 番 号 42 か ら 6 書 か が れ て いる こと が 分 か る た 
め , FAT の 42 を み に い く 。41 と 書か れ て い 
る か ら , 次 の クラ スタ は 41 だ 。 FAT の 41 を 
љо, 3E と 書か れ て いる か ら , 次 の 
クラ スタ は 3E だ 。 以 下 , 同様 に , 3E 
3 D> 3 A っ 37 つ 34 つ 33 っ 30 っ C 3 と な る 。 
最後 の C 3 は , 最後 の クラ スタ 30 が 3 セク 
タ (CP/M で は 6 セク タ ) し か 使用 きれ て 
いな いこ と を 示し て いる 。 

すなわち , この SMPL と いう ファ イル は 
42—>41> 3 E> 3 D> 3 A37—-34—33— 
30 と クラ スタ を 使用 し , 最後 の 30 ク ラス タ 
は 3 セク タ し か 使用 し て いな いこ と が 分 か 


CP/M で みた 場合 


図 1 Nas ディスク の クラ スタ 番号 と CP/M デ ィ ス ク の トラ ッ ク ・ セ クタ 番号 の 関係 


CP/M で みた 場合 


内 $ 


図 2 Nas と CP/M の ディ レク トリ ・FAT の 位置 


ディ レク トリ 
ID 


FAT 
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る 。 た だ し , 最終 クラ スタ も 全 セ クタ に 転 
送 す る 。 次 に ,CP/M の BDOS ユー ル に つい 
て 説明 し た い 。 

CP/M で は ユー ザー の た め に 基本 的 な 


シス テム コー ル を 開放 し て いる 。 こ の プロ 
グラ ム で も 表 1 の よう な BDOS コー ル を 
使用 し て いる 

る 6 に , この プロ グラ ム で は , トラ ッ ク 


セク タ 指 定 で ディ スク か ら 6 読み 込ま な く て 
は な ら な か っ た ため, 直接 BIOS も コー ル 
し て いる (X2). 
この よう に , BDOS コー ル を 使用 する こ 
ど に よう つう で, アセ ンジ ザ 言語 で も 入出 力 や 
ファ イル アク セス が 簡単 に で き , 高 機能 な 
アプ リケーション が 作成 で きる 。 その 意味 
で , CP/M は 優秀 な OS で ある 。 
v v v 
今回 は , Nast b CP/M へ の ファ イル 転 
送 プ ログ ラム を 作成 し た が , FM-8 へ の 移 
植 も 簡単 に びき る 。 5 イン チ 両 面 倍 密度 の 
場合 , FM-8 も PC-8801 t, CP/M の ファ 


イル 構成 は まっ た 《 同 じ だ 。 

その 機種 に 固有 で , 機能 の 高い 命令 を 使 
用 し , アプ リケーション を 作成 する こと も 
1 つの 方 法 だ が , 標準 的 な 命令 を 使い プロ 
グラ ミン グ を する こと は 移植 性 の 面 か ら 考 
える と 有効 な こと だ と 思う 。 高 い 移植 性 は 
プロ グラ ム の 寿命 も の ば す 。 今後 , 異 機種 


間 で の 転送 プロ グラ ム も だ くさ ん 出 て くる 
だ だ る Io 


E 3d i 
機能 コー ド 機能 アド レス 機能 
| : キー ボー ド か ら 1 文字 入力 CALL ВІ05+27: ドラ イブ の セレ クト 
, RECEN RAN CALL ВІ05+30: トラ ッ ク 指 定 
10 j: キー ボー ド か ら 文 字 列 入力 
CALL BIOS 十 33 : セク タ 指 定 
|5  : フ ァイル を オー プン 
6 。 : フ ァイル を クロ ー ズ CALL BIOS 十 36 : DMA ア ドレ ス 指 定 
А] ・ シ ー ケ ン シ ャ ル ・ ラ イト CALL BIOS 十 39 : | セクタ の 読み 込み 
(BDOS は 0005H か ら ) (BIOS は E200H か ら ) 
g JM 
表 1 表 2 
0 | 2 3 4 5 6 7 8 9 10 ll 12 13 14 15 
ЭТ» ЧОЕ Hom + [met ж ® 用 
2723 
図 3 1 つの ファ イル の ディ レク トリ 


Irack 12, Sur face Ol, Sector ül 

ОООО бе óF 72 6D 61 74 EE 38 38 Во 48 FF FF FF FF РЕ 
0010 62 61 63 6B 75 70 6E SB 38 80 49 FF FF FF FF FF 
O020 47 45 54 46 49 4C 20 20 20 OO 45 FF FF FF FF FF 
0050 43 41 50 2D 58 20 6E 38 38 80 44 FF FF FF FF FF 
6040 4C 44 4F 56 45 52 20 20 20 8O 4C FF FF FF FF FF 
0050 55 4D So 4C 20 20 20 20 20 OO 42 FF FF FF FF EF 
Ообо 55% SX 74 oF 44 € WE HO SSWERECEPSEE ビラ 付記 
0070550-61 72 61 20 O9» "gocOROBESPPEEE РЕСЕ 
0080 SO 61 72 61 3 ОЕ ERIE EEE EEE 
0090 44 41 54 41 2Q s の OO QQ SD FE: ТЕБЕ 上 ドラ FE 
mono FE-FF-FF FF FF FP FFE FEE- FE TF F: PPE EP: PE FF FERE 
ТАНОО БЕЗЕР ЕРЕ ЕЕ РР ЕРЕ ЕЕ ЕРЧЕЫЕЧЕБ? ЕЕ PE に に る だ 
ET PP ЕР. FF: EF EE FE FE FE FEFE FE R EFEFEF EF EE 
ОСОО ЕРЕ ЕЕРЕЕ FF FF FF FF FF РЕ ЕЕ FF FF FF FF FF FF 
OüEOCEF- FF FF FF FE FF FF FF FF.FF FF FF-FE-FF-FESFF 
OOFQ-ER-FF FF FF FF FF FF-FF FF FF FF PF EE EF FF FE 
Track 12,Surtace Ol, Sector OE 


ОООО FE FE FE 


0010 ЕР ER- PI FF FE- ЕР. 


гетата - 
FF FF 
FF-FF-FF-FF 
oo8n0 FF FF FF 
OO09Q90-FF-FF 
ООЛО EF Eé OO FF 
OOBO SF 38 EB 
оосо DD 7E FE 10 
DODO ZA 7D 


ооо 


OOEGQSSZ CSFE-16 00.19 Di EB.13 13 © is 
OOFO 23 72 ЭЗ 78 01 Aó OG 3D 28 oA ER Do EREZA 


FF FF 
"E = 
ЕЕ ЕЕ ЕР ЕР ЕЕ 
FF-FF-FF- FF 
био бо бо 
D7 BZ 3A 
о DB 
EC 47 87 SF 


FE FE FE FE FE FF FF FF FF FF FF FF FF 


FF FF FF FF FF FF FF FF FF FF 
FF FF FF FF FF.FF FF FF FF Ce 


FF FF FF FF 
^ FF ЕЕ ЕЕ FF 
EF ЕЕ ЕЕ FF БЕ FF FF FF 
FF FF FF FF FF FF FF FF FF FF 
1E 21 AD АЕ CD 56 55 CD C2 
7D EC 28 û 14 Zñ B? ; 
32 7E EC 21 2 

も びき FOG 19 


ЕЕ 


formatnaaH 
backupnaal 


БЕТЕ E 
CAF-X ngan 
L DOVER i 
SMEL Ë 
SStoDSnag» 
Fara ^y 
Far e 
DATÊ s: 


P/03214-678: =< 


паю ЗЕ 
ی رک‎ G Py up 


A Bea ерд аы к t 
s ょ 3 ЖЫ 

á © 
Же 9 =( sr 


図 4 ディ レク トリ ・ フ ァ ッ ト 
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XXX E ЭЄ ЭЄ ЭЕ E E E E E E E E ЭЕ E E ЭЄ JE ЭЄ ЭЄ JE JE E E E ЭЕ E XXX JE ЭЄ ЭЄ ЭЄ ЭЕ ЭЕ ЭЕ 3€ 


* 
n88 to срт file transfer program x 
5% 73 ※ 
“82 12.19 x 
by MASAYO x 
$x x 
$ XX X ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ ЭЄ E ЭЄ E E E E ELE E E ЭЕ ЭЄ JE E JE E E E E E ЭЕ ЭЕ E ЭЕ E E XXX X 
BDOS EQU  0005H 
BIOS EQU  0E200H 
WBOOT EQU BIOS+3 
SELDSK EQU В105+27 
SETTRK EQU B1I0S+30 
SETSEC EQU BIOS+33 
SETDMA EQU BIOS+36 
READ EQU BIOS+39 


9995 
E200 
E203 
E21B 
E24E 
E221 
E224 
E227 


0001 CONIN EQU 01H 


ае U 
xu 


0002 - CONOUT EQU 02H 

0009 - PRNSTR EQU 09H 

000A - REDBUF EQU ВАН 

999F = FILOPN EQU  QFH 

0010 - FILCLS EQU . 10H 

0015 = URTSEQ EQU 15H 

0016 - FILMAK EQU 16H 

0000 - ADRIVE EQU 9 

9991 = BDRIVE EQU 1 

9989 = 5ЕСЄ КЕЗЕП 38 

0021 = DIRTOP EQU 33 ;suf:1 sec:1 
0038 - DIRBTM EQU 56 isuf:1 sec:12 
0012 - DIRTRK EQU 18 

0012 - FATTRK EQU 18 

993B = FATSEC EQU 59 

99C9 = MAXDIR EQU 192 ;:256ж12/16=192 
0010 = ONEDIR EQU 16 еп of dir 
0010 = CSTSEUECEQU 16 3 1 crst-16 sec 
0009 = DIRACC EQU 9 

0080 - ACCMSK EQU 10000000B 

99C9 = LNKMSK EQU 11000000B 

99FC = TRKMSK EQU 11111100B 

0003 = SECMSK EQU 00000011B 

0009 = N88LEN EQU 9 slen of n88 file name 
000B = CPMLEN EQU 11 jlen of cpm file name 
0003 = TYPLEN EQU 3 

0100 ORG 199H 

9199 317D13 LXI SP,USERSP 

0103 119203 N88CPM:LXI .D,INTMSG 

0106 @Е@9 MVI  C,PRNSTR 

0108 CD9599 CALL BDOS 

919B 9E91 MVI C,CONIN 

919D CD9599 CALL BDOS 

0110 F5 PUSH PSU 

0111 CDD792 CALL CRLF 

0114 F1 POP PSU 

0115 FE93 CPI 03H 

0117 CA93E2 22 воот 

911A FE4E GET МЕ 

011C CA03E2 JZ WBOOT 

911F FE6E GEL- 

0121 CA03E2 JZ WBOOT 

0124 FE59 CP pas ҮС 

0126 CA3601 JZ N88INP 

0129 FE79 Cpl ys 

012B CA3601 32 N88INP 


197 


912E 
9139 
9133 
9136 
0139 
913B 
913E 
9141 
9143 
9146 
0149 
014B 
914E 
0151 
0154 
0157? 
015A 
915D 
@15Е 
0162 
0165 
0167 
016A 
916D 
916F 
9172 
9175 
0177 
017A 
917D 
9189 
0183 
0186 
0189 
918B 


918E 
0196 
0193 
0195 
90198 
019B 
BISE 
01A1 
91A4 
9147 
0148 
91AB 
91 AE 
91aAF 
91B2 
91B4 


01B? 
01B9 
91BC 
91BE 
91C1 
91C4 
91CZ 


91CA 
MG 
91CF 
0102 
@105 


FE0D 

CA3691 
C3939 1 
11F893 
9E99 

CD9599 
CDE992 
3E9A 

324F13 
114F13 
9E9A 

CD9S99 
CDD792 
CDEE92 
DA3601 
115113 
21C294 
9E99 

CD2193 
111194 
9E99 

CD9S99 
CDE992 
3E9C 

324F 13 
114F13 
9E9A 

CD9599 
CDD7@2 
CDEE92 
DA6291 
1212113 
219F04 
9E9B 

CD2193 


3E12 

329404 
SEL 

329B04 
21CB04 
229C04 
CDéC03 
2A9C04 
015000 


C29E01 


SEI? 

329404 
3E3B 

329B04 
21CB10 
229C04 
CD6C93 


SESE 

329804 
214811 
229C04 
CD6C03 


CPI 
JZ 
JMP 
N88INP:LXI 
MVI 
CALL 
CALL 
MVI 
STA 
EXI 
MVI 
CALL 
CALL 
CALL 
JC 
LXI 
LXI 
MVI 
CALL 
CPMINP:LXI 


SHLD 
DIRLOP:CALL 
LHLD 
LXI 
DAD 
SHLD 
LDA 
INR 
STA 
CPI 
JNZ 


, 

GETFAT:MVI 
STA 
MVI 
STA 
LXI 
SHLD 
CALL 


MVI 
STA 
LXI 
SHLD 
CALL 


- we -. 


9DH 
N88INP 
N88CPM 

D, INMSG1 
C,PRNSTR 
BDOS 
BUFCLR 
A,N88LEN-*1 
INPBUF 

D, INPBUF 
C, REDBUF 
BDOS 

CRLF 
CHRCHK 
N88INP 

D, INPBUF +2 
H,N88FIL 
C,N88LEN 
MOVNAM 

D, INMSG2 
C,PRNSTR 
BDOS 

BUF CLR 
A,CPMLEN+ 1 
INPBUF 

D, INPBUF 

C ,REDBUF 
BDOS 

CRLF 
CHRCHK 
CPMINP 

D, INPBUF+2 
H,CPMF IL 
C, CPMLEN 
MOVNAM 


A,DIRTRK 
REDTRK 
A,DIRTOP 
REDSEC 
H,DIRHED 
REDDMA 
DSKRED 
REDUMA 
B,SECSIZ 
B 

REDDMA 
REDSEC 

А 

REDSEC 
DIRBTM+1 
DIRLOP 


A,FATTRK 
REDTRK 
A,FATSEC 
REDSEC 
H,FAT 
REDDMA 
DSKRED 


A,FATSEC*1 
REDSEC 
H,FAT«*SECSIZ 
REDDMA 
DSKRED 


21CB04 
11C204 
011000 
ЗЕС@ 

329904 
3E09 

CD5703 


C2bE601 


112404 
9E99 

CD0500 
C33601 


113E04 
9E99 

CD9599 
C33691 


110900 


C31F92 


АЕ 
12 


CD4E02 
119Е@4 
GEGF 
CD0500 
FEFF 
СА5В@2 


115204 
9E99 

CD9599 
C3C492 


21AA94 


SEKF IL:LXI 
LXI 
LXI 
MVI 


STA 
SEKLOP : MVI 
CALL 
JZ 
DAD 
LDA 
DCR 
STA 
JNZ 


NOTFND:LXI 
MVI 
CALL 
JMP 


NOTASC:LXI 
MVI 
CALL 
JMP 


FILFND:LXI 
DAD 
MOV 
ANI 
JNZ 

FILACP : INX 
MOV 
LXI 
STAX 


MAKCLT : INX 
MVI 
MOV 
LXI 
DAD 
MOV 
ВРТ 
JNC 
STAX 
JMF 


CLTEND: XRA 
STAX 


OPNFIL:CALL 
LXI 
MVI 
CALL 
CEI 
JZ 


FILEXS:LXI 
MVI 
CALL 
JMP 


FCBCLR:LXI 
MVI 
XRA 
FCLLOP : MOV 
INX 
DCR 
JNZ 
RET 


H,DIRHED 
D,N88FIL 
B,ONEDIR 
A,MAXDIR 
DIRCNT 
A,N88LEN 
STRMCH 
FILFND 

B 

DIRCNT 


А 
DIRCNT 
SEKLOP 


D,ERMSG1 
C,PRNSTR 
BDOS 
N88INP 


D,ERMSG2 
C,PRNSTR 
BDOS 
N88INP 


D,DIRACC 
D 


iCRAST LIST POINTER 


MAKCLT 


A 

D 

FCBCLR 
D; F CB; 
C,FILOPN 
BDOS 
9FFH 
MAKF IL 


D,ERMSG3 
C ,PRNSTR 
BDOS 
CLSFIL 


H,FCBEXT 
C,24 

A 

M,A 

H 

E 

EGELOP 


199 


200 


CD4E02 
119E04 
9E16 

CD9599 
FEEF 

C27602 
1164984 
9E99 

CD9S96 
C3C402 


21CB12 


3C 
329824 


ЗЕ1@ 
ES 
CD6C93 
119E04 


C37F92 


117E94 
9E99 
CD0500 
ET 


E1 
119E04 
9E19 
CD9599 
118E94 
9E99 
CD0500 
C303E2 


119604 
9E99 
CD9599 
C9 


214F13 


MAKF IL : CALL 
LXI 
MVI 
CALL 
CPI 
JNZ 

MAKERR:LXI 
MVI 
CALL 
JMP 


TRSFER:LXI 
SHLD 
LXI 

CSTLOP : PUSH 


INF 
STA 
MVI 
SECLOP : PUSH 
CALL 
PUTREC:LXI 
MVI 
CALL 
ORA 
JNZ 
LDA 
INR 
STA 
POP 
DCR 
JNZ 
POP 
INX 
JMP 


9 

PUTERR:LXI 
MVI 
CALL 
POP 


, 

TRSEND : POP 

СЕЗЕ ЕХ 
MVI 
CALL 
LXI 
MVI 
CALL 
JMP 


CREES EXT 
MVI 
CALL 
RET 


BUFCLR:LXI 


FCBCLR 
D,FCB 
C,FILMAK 
BDOS 
9FFH 
TRSFER 
D,ERMSGA 
C,PRNSTR 
BDOS 
CLSFIL 


H,COMBUF 
REDDMA 
H,CSTLST 
H 

A,M 

A 

TRSEND 
TRKMSK 


REDTRK 
А,М 
SECMSK 


A 
REDSEC 


A,CSTSEC 
PSU 
DSKRED 
D,FCB 
С,ШРТЅЕС 
BD0S 

A 

PUTERR 
REDSEC 

А 

REDSEC 
PSU 


A 
SECEOP 
H 


H 
CSTLOP 


D,ERMSGS 
C,PRNSTR 
BDOS 

PSU 


H 

D,FCB 
EMBGES 
BDOS 
D,ENDMSG 
C,PRNSTR 
BDOS 
WBOOT 


D,CRMSG 


C,PRNSTR 
BDOS 


H, INPBUF 


;set track 


set sector 


jcrst list count 


@2ЕЗ 
@2Е5 
92E ァ 
92E8 
02b9 
92EA 
92ED 


92EE 
92F 1 
92F2 


@2Е5: 


92F6 
g2F8 
92FB 
92FD 
9300 
0302 
0343 
0305 
0308 
030A 
639B 
0300 
0310 
0312 
4313 
0315 
0318 
0319 
031A 
031B 
a31c 
931F 
0320 


0321 
0322 
0325 
0326 
0328 
0329 
032B 
932C 
932F 
9339 

331 
0334 
0336 
0337? 
0338 
0339 
033C 
033D 
0340 
0341 
0343 
0346 
0347 
0348 
0349 
034A 
934D 


934E 
0351 
0353 
0354 


9E9E 
3E29 
77 

23 

9D 
C2bE702 
C9 


345013 
4F 
212113 
ТЕ 
FE29 
CA1A93 
FE2E 
CA1A93 
FE39 
08 
FE3A 
DA1A03 
FE41 
D8 
FESB 


2A4D13 
9E93 
13 
C34993 


MVI 
MVI 
BUF LOP : MOV 
INX 
DCR 
JNZ 
RET 


CHRCHK : LDA 
MOV 
LXI 

CHKLOP : MOV 
GT 
JZ 


CHKNXT : INX 
DCR 
JNZ 
XRA 
RET 


МОММАМ : PUSH 
SHLD 
MOV 
SUI 
MOV 
MVI 
DAD 
SHLD 
FOP 
PUSH 
LHLD 
MVI 

PREMOV : MOV 
INX 
CCR 
JNZ 
FOP 
LHLD 

MOVLOP : LDAX 
ЄРТ 
S rA 
MOV 
INX 
INX 
DCR 
JNZ 
RET 


PRDSKP : LHLD 
MVI 
INX 
JMP 


`. 


C,CPMLEN+3 
AS n 

M,A 

H 

C 

BUFLOP 


INPBUF *1 
C,A 

H, INPBUF+2 
AM 


CHKNXT 


CHKNXT 
Q 


ли 
CHKNXT 
2v 


ZER 
CHKNXT 
2e 


is^ dE 
CHKNXT 


NAMADR 
A,C 
TYPLEN 
C,A 
B,9 


B 


TYPADR 
B - 

в 
NAMADR 
A, 20H 
M,A 

H 

[E 
PREMOV 
B 
NAMADR 
D 


PRDSKP 
M,A 

H 

D 

С 
MOVLOP 


TYPADR 
C,3 

D 
MOVLOP 


0357 
0358 
0359 
035A 
035B 
935C 
0350 
035E 
@З5Е 
0362 
0363 
0364 
0365 
0368 
0369 
0364 
936B 


936C 
936D 
936F 
9372 
0375 
0376 
0379 
937C 
0370 
0380 
0383 
0384 
0385 
0388 
938B 
938D 
9399 
9391 


03722 
0393 
0397? 
039B 
939F 
03A3 
03A? 
93AB 
93AF 
03B3 
03B? 
93BB 
93BF 
93C3 
93C7 
93CB 
93CF 
93D3 
0307 
93DB 
93DF 


SE 


93E ァ 7 
93EB 
93EF 
93F3 
93F ァ 7 
93F8 
93FC 
0400 
0404 
0408 


ES 
D5 
eo 
ДЕ 
7E 
EB 
BE 
EB 
C26803 
23 
13 
9D 
C25B03 
ET 
D1 
E1 
C9 


E» 
9E91 
CD1BE2 
349404 


AF 


CD1EE2 
3A9B04 
4F 
CD21E2 
2A9C04 
ES 

£1 
CD24E2 
CD27E2 
9E99 
CD1BE2 
F1 

га 


1А 
18302230 
2А2А2А2@ 
4E383820 
746F2043 
502F4D20 
66696C65 
20747261 
6E736665 
722024265 
24202020 
@DQAQA0QA 
494E5345 
52542042 
3A4E3838 
29444953 
4B455454 
52080D80A 
494E5345 
52542041 
34435040 
20444953 
4B455454 
45209D04 
09090909 
4F4B203F 
24 
494E5055 
54204E38 
38204649 
4C45204E 
414D4520 


STRMCH : PUSH 
PUSH 
PUSH 
MOV 

STRLOP : MOV 


STRRET : POP 
POP 
POP 
RET 


DSKREDi PLISH 
MVI 
CALL 
LDA 
MOV 
CALL 
LDA 
MOV 
CALL 
LHLD 
PIISH 
POP 
CALL 


CALL 


MVI 
CALL 
POP 
RET 

INTMSG:0B 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

INMSG1:DB 
DB 
DB 
DB 
DB 


S 
B 
D 
H 


P 
С 
S 


e 
R 
C 
S 
R 
H 
B 
= 
К 
C 
S 
P 


1 


5 
4 
А 


" 


D 


の 


TRLOP 


SU 
,BDRIVE 
ELDSK 


, 
ETTRK 
EDSEC 
‚А 
ETSEC 
EDDMA 


ETDMA 
ЕАС 
,ADRIVE 
ELDSK 


Su 


AH 


xxx 
N88 ' 
EE 
P/M * 


file’ 


tra” 

ë 
nsfe 
r wx 
Ж » 


1BH, 30H, 22H, 30H. 


QDH, OAH, ВАН, QAH 


n 


4 


E 


. 


, 


INSE’ 
RT B’ 
:N88 
DIS 
KETT 


“E “,Өрн,Ван 


74 


3 


INSE* 
RT А” 


СРМ: 


Y 
^ 
Z 
r 
^ 
А 
72 
: 
z 


2 


DIS 
КЕЛТ 
E ',0DH,04H 
,9,9,9 
OK ?* 
$“ 
INPU 
T N8* 
8 FI* 
LESNÉ 
AME / 


201 


202 


949C 


20202020 


0410 24 


0411 
0415 
0419 
041D 
0421 
0425 
0429 
042A 
042E 
0432 
0436 
0434 
043E 
0442 
0446 
04445 
944E 
9452 
9456 
045A 
QASE 
0462 
0466 
046A 
946E 
9472 
9476 
947A 
047E 
0482 
0486 
0484 
948E 
0492 
9496 


0499 


049A 
049B 
949C 


949E 
949F 
94AA 
ДАО 
94AE 
94BE 
94BF 


94C2 


94CB 
19CB 
11CB 
12CB 


134B 
134D 
134F 


135D 
137D 


494E5055 
54204350 
4D204649 
4C45204E 
414D4520 
20202020 
24 
46494C45 
294E4FS4 
20464F55 
4E442021 
9D9A9724 
4E4F4E29 
41534349 
49205459 
50452021 
00840724 
46494C45 
29414C52 
45414459 
29455849 
53542021 
9D9A9724 
44495245 
43544F52 
59204655 
4C4C2921 
9D9A9724 
57524954 
45204552 
524F5220 
00040724 
4A4F4229 
454E4429 
9D9A24 


99 


DB 
DB 
INMSG2 : DB 


ERMSG1 : DB 
DB 


ERMSG2:DB 
DB 


DB 
DB 


DB 
ERMSG3:DB 


ERMSG5:DB 
DB 
DB 


DB 
ENDMSG:DB 
DB 
CRMSG: DB 
DIRCNT:DS 


REDTRK:DS 
REDSEC:DS 
REDDMA : DS 


FCB: DB 
CPMF IL :DS 
FCBEXT : DS 
FCBREC:DS 
FCBDAL : DS 
FCBCNT :DS 
RNDCNT : DS 


N88F IL :DS 


DIRHED:DS 
FAT: DS 
CSTLST:DS 
COMBUF : DS 


NAMADR : DS 
TYPADR:DS 
INPBUF : DS 


SPTOP: DS 
USERSP EQU 


“FILE 
* NOT 

FOU’ 
^ND !^ 
0DH,0^H,07H, $° 
“NON * 
ASCI” 
T 
BEC 
0DH,0^H,07H, “$ 
^FILE* 
° ALR 
EADY’ 
EXI’ 
SST 4 ^ 
0DH,0^H,07H, /$* 
“DIRE 
^CTOR* 
^Y FÚ 
ч. 5284 
0DH,0^H,07H, “$ 
“WRIT 
^E ER 
“ROR ' 
0DH,0^H,07H, “$ 
“JOB * 
“END ' 
0DH,0^H, /$* 


1 


OR は は の は ⑤G Ner 
HP 


N88LEN 
3072 

256 

256 

128 

2 

2 
CPMLEN+3 


32 
5РТОР+32 


ү ОО — 


ミニ フロ ッ 


. PC-8801, 8001 


化す る 


1984 年 3 月 掲載 


PC-8801,8001・5 イ ンチ 用 CP/M ユ ー テ ィ リ ティ 
CP/M Ver.2.2A(MSA) 


PC- 8801,8001 の CP/M t: は NEC 発売 
の も の と , MSA( マ イク ロ ・ ツ フト ウェ ア ・ 
アソ シェ エイ ツ ) 版 が あり , 本 記事 は MSA 
版 CP/M 上 で の ゐ 動 作 する 。 


は じ め に 
ҝҹ 


従来 使っ て いた CP/M Ver.1.4 に 比べ , 
8801 用 の Ver.2. 2A CP/M の 実行 速度 が 
遅い よう に 思わ れる の で 調べ て みた 。 以 下 
に 2. 2А の 遅い 原因 , を そし て 改良 法 を 述べ 
だ た い 。 

BIOS (BASIC I/O SYSTEM) の ソー ス 
リス ト 数 か 所 の 変更 で 20 一 40% ほ ど デ ィ ス 
クリ ー ド 巡 ラ イト (以下 R/W ERR) 538 < 
な る は ず で ある 。MAC( デ ジタル リサ ー チ 
社 の マク ロア セン ブラ) を 使っ て 私 は 改造 
1275 
適用 機種 

РС-8001, PC-8801 5 イン チミ ニ フ ロ 
ッ ピ ー (88, 80 と も ソー スリ スト は 共通 ) 


CP/M Ver.2.2Alk 
な ぜ 遅 い の か や 


第 1 に セク タス キュ ー が な いこ と が あげ 
られ る ( 図 1 )。PC-CP/M で は 1 ブロ ッ ク 
(PC の クラ スタ に 相当 する ) が 1 一 2K 
バイ ト で 構成 きれ て いて , 通常 の R/W は 


この ブロ ッ ク を 単位 と し て 行わ れ て いる 。 
し た が っ て 複数 の セク タ を 連続 し て R/W 
する わけ だ 。 と ころ が 第 1 の セク タ を 読み , 
次 いで 第 2 の セク タ を 読も うと し た と き に , 
CPU や FDC (フロ ッ ピ ー デ ィ ス クコ ント 
ロー ラ ) の 処理 速度 が 遅い た め , ディ スク 
上 の セク タ を すでに 通り すぎ て し まい , も 
2 1 回 転 待た な な いと 次 の セク タ を 読み 込む 
こと が で き な い 。 ミ ニ フ ロ ッ ピ ー は 1 回 転 


する の に 0.2 秒 か か る か ら 6 大変 な ロス に な 
る わけ だ ( 図 1A)。 

標準 CP/M で は , モク タス キュ ー と いっ 
て 連続 する セク タ に 論理 的 な 番号 を 飛び 飛 
びに つけ て お き , ディ スク が 1 回 転 す る の 
を 待た なく て も , 空 セ クタ を 通る 間 に CPU 
の 処理 を 終え , 次 の セク タ を 読め る よう に 
な っ て いる ( 図 1 B), PC-9801 で は , 318l 
お き の セ クタ スキ ュー を 採用 し て いる が , 


A. セク タス キュ ー の な い 場 合 


ディ スク | 回転 (| トラッ ク ) 0.2% 


k— ひま ず 第 | セク タ を 読ん で 次 に 第 2 セクタ を 読も うと し て も 通り 過ぎ て し まう 
k— Q | 回 転 後に 第 2 セク タ を 読む 


k ③ 以 下 同様 


В. セク タス キュ ー の ある 場合 (スキ ュー ファ クタ ー6 ) 


ディ スク | 回 


k— ① ま ず 第 | セクタ を 読み 


k | 
この 間 CPU は デー タ の 転送 や 
処理 を 行え る 


K—91 ② 次 に きた 第 2 セク タ を 
読み タ を 読む 


転 (1 ト ラッ ク ) 0.2 秒 


トー ③ さ ら に 第 3 セク 


(1 トラ ッ ク 分 | 度 に バッ ファ メモ リ に 読み 込ん で 自由 に 高速 で アク セス する ) 


1 セク タス キュ ー 


203 


PC-CP/M Ver.2.2A に は 備 を られ て いな い 。 

第 2 に 。 PC-CP/M は 256 バ イト / セ クタ 
の 倍 密度 対応 し な っ て いる 。 CP/M 内 部 は 
128 バ イト / セ クタ で 処理 し て いる か ら 。, 
BIOS Wiz, ブロ ッ キ ング ・ デ ブロ ッ キ ング 
と 呼ば れる 変換 シー チン を 持ち , その つど 
256 対 128 の 変換 が 行わ れる ( 図 2 )。 こ の 処 
理 に よる 遅れ は そう 大 きい も の で は な い が , 
1 つの 原因 とし て 述べ て お く 〈。 

第 3 に PC シリ ー ズ の FEDD, た と えば 
PC-8031, 80-S -31 な ど は イン テリ ジェ ン 
化し て お り , PC 本 体 か ら の コマ ンド を 自 
分 で 解釈 し て ,。 アクセス, R/W, デー タ 転 
送 を する 。 こ の た だ ため ホス ト CPU 自身 が 
FDD を 直接 イン トロ ー ル する より , 時 間 が 
か か る わけ が だ 。 


改造 方 法 に つい て 
考え て みた 


A. 読み 出し 時 (デブ プロ ッ キ ング ) 


① 目 的 と する CP/M セク タ の 含ま れる 
物理 セク タ を HSTBUF に 読み 込み 


ハー ド の 物理 的 セク タ サ イズ 


ADRRESS 


IUNII e E) 
(HSTBUF) 


: „| CP/M の 論理 セク タ サ イズ 
(128 バ イト ) 


CP/M の 


転送 の み 繰り 返す 


B. 書き 込み 時 (プロ ッ キ ング ) 


(先読み と 呼ぶ ) 
物理 的 セク タ サ イズ 


②HSTBUF 上 の 確 当 アド レス を 計算 し て デー タ を 
CP/M の R/W BUFF (DMA) へ 転送 する 


| 
③ 同 じ ホ スト (ハー ド ) の セク タ 内 で は 


① 目 的 と する CP/M セク タ の 含ま れる 
物理 セク タ を HSTBUF に 読み 込む 


以上 3 つの 欠点 ? が 分 か っ た と ころ て 
この 欠点 を 逆手 に と っ た スピ ー ド アッ プ 方 
法 を 考え て みた 。 

まず 第 1 の セク タス キュ ー だ が , セク タ 
スキ ュー が な いと いう こと は 複数 の セク タ 
を まとめ て R/W し て も これ を 1 つの セク 
MEETRIS UK DS ЕТЕ ЕССӨӨЗ1- Л 
どの フロ ッ ピ ー デ ィ ス ク で は マル チ セ クタ 
R/W が 可能 だ か ら , 1 セクタ を 読む の も 
16 モ クタ (1 トラ ッ ク 分 ) 読む の も 同じ だ 。 

第 2 に プ ブロッキング, デブ ロッ キン グ ア 
ル ゴ リ ズム は 256 対 128 の 変換 どけ で な く , 
ツー スリ スト 上 で は だ たと えば 4096 (16 セ ク 
タニ 1 トラ ッ ク 分 ) 対 128 の 変換 も 可能 で あ 
る 。 し た が っ て CP/M 内 部 で は 128 バ イト / 
セク タ で あっ て も , ハー ド 的 に は 仮想 セク 
タ と し て 4096 バ イト プ セ クタ と し て , また 
1 トラ ッ ク 当 た り 1 まだ は 2 セク タ の 仮想 
ディ スク が 構成 で きる (МЗВ), 

一 見 必要 悪 の よう な この ルー チン は ディ 
スク に 関し て 互換 性 を 持た せる ルー チン で 
ある 。 図 4 に アル ゴリ ズム を フロ ー チ ャ ー 


A. PC-CP/M の ディ スク フォ ー マ ッ ト 


128 バ イト / セ クタ 


B. 改良 シス テム の 仮想 ディ スク フォ ー マ ッ ト 


4096 バ イト / セ クタ 


ト の 形 に し て 示し た 。 

この 仮想 ディ スク を 構成 する に は , 仮想 
の 1 セク タ 分 (4096 バ イト ) の HSTBUF 
(バッ ファ メモ リ ) が 必要 に な る 。 こ こ で 
先 に 述べ た (第 3 の 欠点 ) PC O FDD が , 
イン テリ ジェ ント で ある 点 が , 逆 に 役立つ 。 
つま り , PC の FDD が 独自 に 持つ 16 バ イト 
の メモ リ を 利用 する の だ 。 


問題 点 と 
その 対策 


と ころ で , この 方 法 を 実行 する に 当たっ 


て 2 つ ほ ど 問 題 が ある 。 こ れ ら は 従来 の シ 
ステ ム (PC-CP/M Ver.2.2A) と 完全 に 瓦 
換 性 の ある ディ スク に する の に , 物 理 的 ( ハ 
ー ド 的 ) な 改造 が 許 き れ な いこ と か ら 生 ず 
る 問題 だ ど 。 つ まり , あく まで 仮想 の ディ ス 
ク 上 で 変更 し な けれ ば な ら な い 。 

第 1 の 問題 は 仮想 セ モク タ サ イズ (40962 


トラ ッ ク 0(64 セ クタ ) 


トラ ッ ク 0(2 セク タ ) 


セク タ 番 号 


バッ ファ メモ リ 
(HSTBUF) 


CP/M の 


アド レス 
ОМА デー タ を 転送 する 


ADRRESS 
HSTBUF 


③ 全 体 を ホス ト ( ハ ー ド ) の セク タ に 


書き 込む 


(同じ セク タ 内 で は ② を 繰り 返す ) 


図 2 プロ ッ キ ング ・ デ プロ ッ キ ング 
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②CP/M の BUFF (DMA) より 
HSTBUF 上 の 確 当 アド レス へ 


C. PC-8031( 2 W) の ディ スク フォ ー マ ッ ト 


トラ ッ ク 0(I6 セ クタ ) 


256 バ イト / セ クタ 


トラ ッ ク 1 (I6 セ クタ ) 


図 3 仮想 ディ スク の フォ ー マ ッ ト 


WRITE 


READOP = 0 
WRTYPE—C 


UNACNT - 0 
READOP = I 
RSFLAG = | 
WRTYPE = 2 


0 
<> 


4 CPZM の セク タ 変 換 ア ル ゴ リ ズム 


イト ) が ディ レク トリ の サイ ズ (32 バ イト メメ 
128) と 同じ に な っ て し まう だ た だめ, 同じ ディ 
スク の ディ レク トリ を 2 度目 以降 は アク セ 
スズ し な で な っ で まお SR の だ これ 
は CP/M が 効率 上 , 同一 ディ スク の 同一 ト 
ラッ ク , 同一 セク タ は 1 度 し か R/W し な 
いよ うに し て いる た だ ため だ 。 ディレク トリ 書 
き 込 み を する と き に は , C レ ジス タ の 0O1H 
を 返し て 教え を て くれ る の だ が , 読み 出す と 
き に は 何 の 信号 も な い 。 和 無 条 件 に アク セス 
きる せる L, ユー ザー が ディ スク を 差し 替え 
た と き に CP/M が 気づか ず に 前 の ディ スク 
の ディ レク トリ を 使用 する 危険 が ある 。 


UNALOC 


UNA “SEK 
UNACNT=N 


<» 
нокто МОВЕ UNALOC 
0 UNACNT- | 


Lai 


UNACNT = 0 Y ALL SAME 
RSFLAG - | 
UNASEC+ | 
RSFLAG = 0 | CHANGE 
RWOPER | (R/W OPE) 
WRITE OPE 


HSTWRT= | 


. 
| TRANS | (DATA TRANSFER) 


FILLHST 
(N=BLKSIZ/128) 


HSTACT= ! 


I DIR WRITE 
RW ルー チン 


ディ レク トリ が アク 
セス され る と き 。, BIOS 
内 の サブ ルー チン 
НОМЕ : が コー ル さ る 
れる こと を 利用 し て , 
ディ スク ルー チン を 
初期 化し て (HSTA- 
CT を 0 に ) する こと で 解決 。 

第 2 の 問題 し し て , や は り CP/M の 効 
率 向 上 の た め , 書き 込む と き に 新しい ブロ 
ッ ク の 最初 の (CP/M 内 の 論理 ) Z Z O 
場合 , 先読み し な いと いう 点 だ 。 先 読み と 
いう の は , M2 B の ブロ キッ ング の 説明 で 
も 触れ て いる が , 目的 と する 論理 モク タ を 
含む 物理 モク タ を HST バッ ファ に 読み 込 
むこ と だ 。 こ の 操作 は ディ スク の 一 部 に 書 
き 込 みち し よう と する と き に 利用 する 。 つ 
まり , 先読み で 物理 セク タ を まる まる バッ 
ファ に 読み 込み , 目的 と する 部 分 を バッ ファ 
上 で 書き 替え , も う 1 度 バ ッ フ ァ 内 容 の 全 


SEKHST-—SEKSEC/ 2" 


(n= LOG» (N) ) 


Y ALL MATCH 


| WRITEHST | 


| READHST | 


体 を 元 の 物理 モク タ に 書き 込む と ぃ う 方 式 
に な っ て いる 。 

と ころ で PC-CP/M は 1 ブロッ ク が 1024 
ー2048 バ イト で あり , 仮想 セク タ の 4096 バ 
イト より 小さ く な っ て し まい , 先読み を し 
Ho. 正確 に いえ ば , 仮想 セク タ の 最初 の 
プ ブロック の 最初 の 論理 モネ クタ に つい て の 先 
読み ち を し な い , と いう 条件 判断 に 合わ な い 
こと に な る 。 そこ で , RESUS 
ロッ ク の 最初 の セク タ は 必ず 先読み する こ 
と に し た (RSFLAG が 1 ) 。 常 に 先読み す 
る こと で 生じ る オー バー ヘッ ド の 増加 は 
128/4096 な の で , 複雑 な 判別 ルー チン を 持 
つっ まり で を まい rm 


BIOS の 
具体 的 な 改造 


いよ いよ , PC-CP/M の 具体 的 な 改造 に 
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f$55, 冒頭 に 述べ た よう に BIOS の ソー 


スリ スト に 変更 を 加え る わけ だ 。 
実は , 変更 と いっ て も 基本 的 に は , 


BLKSIZ 1024 
HSTSIZ 4096 


HSTSPT 1 


HSTBLK HSTSIZ/128 


HSTSIZ 256—4096 
HSinSpgi 1621 
HSTSPT 1599-22 


:CP/M ALLOCATION SIZE 
HOST DISK SECTOR SIZE 
¡HOST DISK SECTORS/TRK 
; CP/M SECTS/HOST BUFF 


CPMSPT HSTBLK X HSTSPT ;CP/M SECTORS/TRACK 
SECMSK HSTELK-1 
HSTBLK 


SECSHF 9x 


Li 


NOT PC8031 
BLESIZ1 2048 


HSTSPT1 2 


sSECTOR MASK 
sCOMPUTE SECTOR MASK: 
3L0G2 (HSTBLK) 


; CP/M ALLOC SIZE FOR 2W 
HOST SECTS/TRK FOR 2W 


CPMSPT1 HSTBLK ¥ HSTSFT1 ;CP/M SECTS/TRK FOR 2W 


1432: LDA 


1222: NOOVF: 


1225: :MATCH FOUND, MARK AS UNNECESSARY READ 

1224: XRA A 30 TO ACCUMULATOR 
1225: INR А 

1226: 5ТА RSFLAG ;RSFLAG SET 

1227: JR RWOPER {ТО PERFORM THE WRITE 


ғ 


DISKIOO: 

1457: ENDIF 
1458: ; 

5ТА CURDRV 

LDA HSTTRK Н 

IF NOT PC8031 

JRZ DISKIO1 š 

SLAR A {*2 

MOV B,A ; 

LDA HSTSEC š 

INR A Н 

CPI HSTSPT1/2*1 

JRC DISKIO2 E 

SUI HSTSPT1/2 { 

INR B i 

JR DISKIOZ { 
1426;  DISKIO: 
1427: STA LASTCMD ; SAVE COMMAND CODE 
1428: XRA A sRETRY COUNTER 
1429: STA ERRCNT 
1430: MVI A.16 ¿NUMBER OF SECTORS 
1431: STA NMBSEC Н 

HSTDSE: 


ا 


H 
A 


C 


STWRT 


HSTACT 


.0 


の 3 点 だ け で ある (リス ト 1)。 
また , 物理 的 な R/W ル ー チ ン (WRITE 
HST : READHST : ) で は HSTSEC ょ より 
物理 的 な サイ ド ・ セ クタ 番号 を 計算 する 部 
分 の 定数 を は じ め か ら 変 数 に し て お け ば 
R/W すべ き セ クタ 数 (NMBSEC) の 変更 
だ けれ DNC 2. 3). ЖТ, 
NMBSEC 116 
E355. 
次 に , 問題 と を の 対策 で 述べ た 部 分 の 変 
更に つい て 述べ る 。 ま ず リ スト 4 の と ちり 5 
RSFLAG- 1 
KU, リス ト 5 の よう に , HOME: Ov 
こっ ンク に 
LDA HSTWRT 
ORA A 
RNZ 
STA HSTACT 
を 挿入 する 。 
以上 を ED (エディ タ ) に よっ て 修正 し , 8 
アセ ンプ ブル し た あと に ОРТ と SYSGEN 
に よっ て , シス テム ディ スク を 作成 する わ 
け だ (リス ト 6)。 


MAC を 持た な い 
人 の た め に 


私 は MAC( マ クロ ア ャ ンプ ブラ ) を 使用 し 
た が , MAC を お ぉ 持ち で な い 人 で も リス ト 
7 を 入力 し て , シス テム ディ スク を 作成 で 
きる 。 
< 打ち 込み 方 > 
① CP/M 起動 後 , DDT に £ b CPM58. 
COM を ロー ド す る 。 

@DDT の S コマ ンド に よっ て , 1F80 
H か ら プ ログ ラム を 打ち 込む 

ウォ ー ム ブー ト す る 
`С (また は СО) 

④ 念 の た め ,。 ディスク に セー ブ し て むく 
SAVE 39 PC58. COM 

@ SYSGEN* に より の ,- ジ ステ ム デ イス ク 
を 作成 

以上 で ある 。 

リス ト 8 が , CP/M 用 の チェ ッ ク サ ム つ 
き ダ ンプ プロ グラ ム で ある 。 す で て 8080 の 
マシ ン 語 で 書い て ある の で , ほか の CP/M 
で も 共通 に 利用 で きる だ ろう 。 ま た , 0130 


HH の 2 バイ ト を 変更 する こと に より スタ ー 
ト ア ドレ ス を 変え られ る 。 
リス ト 8 の 使い 方 は , 本 プロ グラ ム の 名 
前 , た と えば СНОМ (. COM) の あと に 
目的 の プロ グラ ム 名 を つけ て , 
и ドコ マン NE で 使う 3 
A>CHSUM PC58. СОМ О 
tk, anem ORR DD o S n> y 
Fi t Db 100H 2° 64[ 55345, WBOOT fk, 
SAVE 3 CHSUM. COM 
Th bo He, 横 と も 単純 す ム 。 


A Y = 


ed pcbios58. asm 
: $u 
: W*nhstsiz“ZO1lt 
79: HSTSIZ EQU 256 
79: #5256^74096^101% 
79: HSTSIZ EQU 4096 


79: X*1 

80: HSTSPT EQU 16 
80: *s16^21^ZOlt 

80: HSTSPT EQU 1 


80: Xnhstsptl1^2Olt 
89: HSTSPT1 EQU 32 
89: *s32^22^201t 


89: HSTSPT1 EQU 2 
89: X*nhome:^201t 

1082: HOME: 
1082: xli 
1083: 1da hstwrt 
1084; ora a 
1085: rnz 
1086: sta hstact 
1087: ^Z 
1087: Xnnoovf:^ZOlt 
1222:  NOOVF: 
1222: X*3li 
1225: inr a 
1226: ^Z 
1226: %0 
1226: STA RSFLAG 
1226: *s0O^21^20l1t 
1226: STA RSFLAG 
1226: Xndiskio:^ZOlt 
1426:  DISKIO: 
1426: ¥4 
1430: INR A 
1430: Xsinr a^Zmvi a,lé^ZOlt 
1430: MVI A.16 
1430: Xncpi 17^z01t 
1468: CPI 17 
1468: *s17^Zhstsptl1/2-*1^201t 
1468: CPI HSTSPT1/2*1 
1468: Xnsui 16^Z01t 
1470: SUI 16 
1470: Xsló^Zhstspti/2^ZO0lt 
1470: SUI HSTSPT1/2 
1470: Xe 

シス テム ディ スク の 製作 
mac pCbios58 
CP/M MACRO ASSEM 2.0 
EAZD 
049H USE FACTOR 
END OF ASSEMBLY 
ddt срт58.сот 
DDT VERS 2.2 


NEXT PC 

2300 0100 
-ipcbiosS8.hex 
-r3d80 

NEXT PC 

27AD 0000 

-g0 

sysgen 


Sysgen V2.2A for РС-СР/М 


Destination on B, Then Return 
Function Complete 


Destination Drive Name (or Return to Reboot) 


io 


米 の 後ろ を 入力 する 。 


Source Drive Мате (or Return to Skip) 
Destination Drive Name (or Return to Reboot)b 


お わり に 
Eo o — 3 


改良 の 結果 , PIP に よる ディ スク コピ ー 
で は 従来 の 80%, DDT に よる 48K バ イト 
ロー ド で は 60% 所 妥 時 間 が 短縮 きれ た 。 ト 
ラン ジェ ント コマ ンド の 立ち 上 が り は 50%。, 
つま り 半 分 くら い に な っ た 。 


iHOST DISK SECTOR SIZE 


:HOST DISK SECTOR SIZE 


ADRS 

HOST DISK SECTORS/TRK 1F80 
i 1F90 

1HOST DISK SECTORS/TRK z 1Fao 


1FBO 
1FCO 
1FDO 
1FEO 


М 


1HOST SECTS/TRK FOR 2W 


¿HOST SECTS/TRK FOR 2W 


2050 
2050 
2070 
2080 
2990 
20n0 
20R0 
1 20C0 
sNUMBER OF SECTORS 1 € горо 


200 


" 
o 


:RSFLAG 


:RSFLAG 


" 
= 


sNUMBER OF SECTORS 


chsum fstcpm. 


な お , 私 が 改良 し た の は マイ クロ ソフ ト 
ウェ ア ・ カ クシ エ イツ の 」Veri2.2A T D 
改良 ディ スク と 従来 の も の の 混用 も 可能 
で ある 。 aw RZS k CEID AED 
が 動く 。 
最後 に 参考 文献 を 紹介 する 。 
(DCP/M ユー ザー ズ マ ニュ アル 
@ PC-CP/M Ver.2.2A ソー スリ スト 
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208 


っ っ ロロ 
2250 


2260 


2270 


2780 : 


2290 
2200 
2280 


ADRS 
2400 
2410 
2420 
2450 
2440 
2450 
2450 
2470 
2480 
2430 
24n0 
24BO 


24CO : 


24Do 


21Е0 : 


24FO 


ADRS 
2700 
2710 


2720 


2720 : 


ADRS : 
0100 ; 
0110 : 
0120 : 
9170 : 
0140 : 


9150 


0160 ; 
0170 : 
0180 : 
0190 : 
O160 : 
O1BO : 
O1CO : 
O1DO : 
01EO : 


0200 : 


0210 


02290 


о2о: 


0240 
0250 


0250 : 


0270 


0280 : 
0290 : 
О2АО : 
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02Co 
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02Е0 
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20 
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PC-8801 の 機能 を 


拡張 する 


1983 年 5 月 号 
1983 年 11 月 号 
1983 年 7 月 号 
1984 年 4 月 号 
1984 年 9 月 号 
1984 年 10 月 号 
1984 年 1 月 号 
1984 年 3 月 号 
1985 年 2 月 号 


1983 年 5 月 号 一 1984 年 11 月 号 


ROLL up Dowyn サ プ ブルー チン 

ビデ オ 画 像 を PC に 出力 する 

高 精細 度 グ ラフ ィ ッ クコ ピー 
3D ワ イヤ ー フ レー ム モ デル 

高速 Initial Program Loader を つく る 
能力 アッ プ だ ノ マ シ ン 語 入力 ツー ル 
ファ イル 検索 プロ グラ ム ・TAPEFILES 
ハガキ に プリ ント / ノ 

ハグ ・ サ ー チ ・ ツ ー ル ・Searcher88 


a = S 3 F ш | 


-8801 機能 アッ プ 


1983 年 5 月 掲載 


懸賞 原稿 特賞 作品 


は じ め に 
к ч 


PC-8801 は , 非常 に 強力 な グラ フィ ッ ク 
命令 を も っ て いま す が , 画面 の スク ロー ル 
は , ディ スク モー ド で ロー ル ア ッ プ の 機能 
が ある だ け で す 。 

先日 , グラ フィ ッ ク 画 面 の 一 部 分 どけ を 
スク ロー ル さ せよ うと 思い , GET@ と 
PUT@ で 対処 し て みる こと に し まし た 。 と 
ころ が , 少し 大 き な 画 面 に な る と メモ リ が 
足り な く な っ て し まい , 実用 に は 至ら な か 
っ た の で す 。 

そこで, アセ ンプ ブラ に より スク ロー ル の 
サブ ルー チン を 開発 し , BASIC L と リン ク き る 
v, 機能 アッ プ を 図る こと に し まし た 。 


サブ ルー チン の 
機能 


(1) グ ゲラ フィック 画面 の 一 部 分 で も ロー ル 
UNUS АД SK 

(2② パラ メー タ の 設定 ミス を し た と き は , 
何 $ も 処理 せ ず に 戻っ て 〈 る 。 

(3) Oh! PC 月 号 の 超 高 速 ク リア ルー チ 
ン に , バッ ク グ ラウ ンド カラ ー 機 能 
追加 し て 織り 込ん で ある 。 

(4)640X200 ド ッ ト の カラ ー グ ラフ ィ ッ ク 
画面 に 対し 有効 で ある 。 
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(5) ス クロ ー ル の 時 揚 は , 最大 で も 1 秒 と 高速 。 


P-8801 で 使え る 
アセ ンプ ブラ は や 


PC-8801 仕様 の アモ セン ブラ の ほか に , PC 
-8001 仕様 の も の も 使う こと が で きま す 。 
私 の 知る 限り , キャ リー ラボ の BASE-80, 
アス キー の DUAD-PC, パソ ツ コ ン シ ョ ッ プ 
高知 の Z80, SEA80, コム パッ ク の EDAS, 
CP/M 上 の アセ ンプ ブラ な ど が あり ます 。 

と くに PC-8001 用 の も の を 使う と き は , 
次 の 操作 に よっ て N-BASIC モー ド に 切 
り 換 える こと が 必要 で す 。 

(1) 電源 ON 

(2) MON Q 

(8) 031, 2 の 

N-BASIC モー ド へ の 切り 換え は デイ ッ 
プス イッ チ に よる 方 法 ほ と NEW ON1 命令 
が 標準 で す が , この 方 法 で テキ スト を ロー ド 


し よう と する と, な ぜ か エラ ー が 発生 し ます 。 
ik, PC-8001 用 の アセ モン プラ で は , Я 

プ ジ ェ クト を テー プ へ SAVE する 場合 600 

ボー で すか ら , その 点 だ け 注 意 が 必要 で す 。 


アァ アセンブラ と BASIC を 
リン ク す る に は 


モン プラ の オジ ジェ ク ド トド を と を こ 
に 格納 する か を 設定 し な けれ ば な り ま せん 。 
これ に は 図 1 の よう な メモ リマ ッ プ を 作る 
と 一 目 瞭 然 で す 。 

次 に この オブ ジェ クト を どの よう な 方 法 
で ロー ド す る か を 決め ます 。BASIC の プロ 
グラ ム と マシ ン 語 の プロ グラ ム を 別々 に ロ 
ー ド し て も いい の で す が , 今回 は BASIC 
の DATA 文 に 変換 する 方 法 を 採用 する こ 
Wiata o これ だ と BASIC ブロ グラ 
ム 1 本 と な り , すっ きり し ます 。 


N -88BASIC 
ニニ ンプ 
サブ ルー チン の 
コー ルプ ログ ラム 
8000 一 83FF へ 格 


納 す る プロ グラ ム 、 お よ 
び MOVE プ ログ ラム 


テキ スト ・ ウ イン ドウ 


83FF 


8000 


G—RAM G—RAM 
(W) (ж) 


E» 
8000 


FFFF 
G—RAM 
(&) 
cooo 


Bi メモ リー マッ プ 


オブ ジェ クト を 
メモ リ に ロー ド 


方 針 が 決ま っ た ら , アセ モン ブラ の オォ ブ ジ 
ェクト を メモ リ に ロー ド し ます 。 を の 準備 
と し て , ま ず メ モリ の 内 容 を きれ い に し ま す 。 

いち ど 電 源 を も OFF に し , 再度 ON に す 
る と ユー ザー の 使用 で きる 所 は 0 0 ЕЕ 
で きれ い に う まり ます 。 こ の 利点 は ロー ド 
が 終了 し た 時 点 で , メモ リマ ッ プ に 示し た 
と お り に 格納 され た か どう か 確認 する と き 
非常 に 見 や すい こと で す 。 

АО а М3 ч 
以下 は , 私 が プロ グラ ム を 作成 し た と き の 
ФЕС, あく まで も 1 つの 例 で す 。 

(1) CLEAR,&HDFFF © 
オブジェ クト を 格納 する エリ ア を 確保 し 
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8000 Н —83FFH を テキ キス トウ イン ドウ か 
ら RAM に 切り 換え る 。( こ の エリ ア に オ 
プ ブ ジ ェクト を 格納 する た め ) 

(4) R2:Q 
プロ グラ ム 1 て 5 を 600 ボ ー で ロー ド す 
eu 

(5) M8000, 83,E 100 O 
8000 H か ら 83FFH の 内 容 を EIOOH Ж К 
ッ プ と し て 移す 。 

(6)D コマ ンド で 予定 どおり に プロ グラ ム が 
格納 され て いる の か を 確認 する 。 

(7) CTL-B 
BASIC へ 制御 を 戻す 。 

(8) LOAD “CAS:” の 
プロ グラ ム -6 を ロー ド す る 。 こ の プロ 
グラ ム は , マ シン 語 を BASIC の DATA 
文 に 変換 する も の で す 。 
プロ グラ ム 中 の 説明 文 の と お り に セッ ト 
L, GOT060000⑦ と する と DATA 文 の 書 
X cR ЭНТТА れる 
ООУ ЛЕЕ E S y 


2) MON 2 ト す る 感じ で DATA 文 を 作成 し て いき ま 
モニ タ に 制御 を 移し 925 
(83:070, 800 (9)DATA 文 の デー タ & FOR—NEXT と 
Z 数 名 | アド レス (16 進 ) NE а 
ES 3 1 - ? ° 1 EE CARINE EES 
UD ES は ROLL UP…0 DOWN::: | 
X1 ESSC スク ロー ル の 位置 X | (バイ ト 数 , 0—79) 
Xl E53D / Y! (ドッ ト 数 , 0 — 199) 
X 2 ES$ ЗЕ / X 2 (バイ ト 数 , 0—79) 
DOT E53F | 回 で スク ロー ル す る ドッ ト 数 
REP E540 くり 返し 回 数 
COE E541 スク ロー ル の 最終 行 を うめ る カラ ー (0—7) 


2 ROLL サ プルー チン の パラ メー タ 説 明 


«ROLL UP» " 


ХІ (バイ ト 数 ) 


X2 79 


. |} oor 


199 


«ROLL DOWN» 


o xi (バイ ト 数 ) 


X2 79 


) DOT 


(80.100) — (119.100) (80.100) 


) 5 dots 


(80.109) 
四国 の 部 分 は な く な る 
( X 、Y ) は オリ ジ ナ ルス クリ ー ン 座標 (ドッ ト 早 位 ) 


(80.109) — (119.109) 


図 3 


、 | REP は この 場合 5 回 


| COL は ここ を 
うめ る カラ ー 


*-COL は ここ を うめ る 


カ 
REP は この 場合 4 回 


UD—0,X1—10,X2— 14, YI 2100,DOT —5,REP —2,LOL =2@ £ а 


(119.100) 
15 dot 


) 5dots GOSUBXHROLL )5dot 
(119,109) 


ROLL START 


ブロ ッ ク 転 送 の 準備 
(HL DE BC を 計算 ) 


G-HRAM の ブロ ッ ク 転 送 
HL DE 、BC の 再 セ ッ ト 


スク ロー ル の 最終 行 を 
指定 色 で うめ る 


図 4 ROLL サ プル ー チ ン の フロ ー チ ャ ー ト 


READ, POKE に より メモ に 書き こむ プ 
ログ ラム を 作り ます 。 
(i) DELETE 60000-60130 © 
変換 プロ グラ ム を 削除 し ます 。 
こう し て 作成 し た プロ グラ ム に , REM 
文 を や つけ 加え だ た り し て 完成 きせ ます 。 それ 
が プロ グラ ム - 7 の ROLL UP DOWN サ 
=Z тй CR 


ROLL サ ブル ー チ ン の 
活用 法 


前 述 し た よう に , この サブ ルー チン は , 
ROLL の 機能 と 画面 の クリ ア 機 能 を 持っ 
て いま す 。 ROLL の パラ メー タ 設 定 は や や 
複雑 で す の で , 図 2, 3 に 詳し く 記 し て お き 
зета 

画面 クリ ア は バッ ク グ ラウ ンド カラ ー を 
BCOL の 変数 に 代入 し て 使い ます 。 単なる 
クリ ア は BCOL= 0 です 。 

具体 的 な 使用 法 は , プロ グラ ム 8 の サン 
デル を 参考 に し て くだ きい 。 

атол, пло Алтин kb 

し た 後に 打ち こん で RUN き せる t, ROLL 
機能 の 例 を 示し て くれ ます 。 

ij, デ ロ グ ラム 7 の 後ろ の に は デー タ が 
正しい か どう か を 判定 する た め の チ ェ ッ ク 
TAJR ЭА оС L. 

DATA 文 が 間違っ て いる と 禁 走 し か ね 
な い の で , 必ず RUN х CHECK で OK が 
出る の を 確認 し て くだ さい 。 


お わり に 
E eus 


サ プ ブル ー チ ン の 本 体 は , Oh! PC 1 月 号 の 
72 ペ ー ジ の 考え 方 を 取り 入れ , 8000H ~83 
FFH 2 КАМ に 格納 し て お く こ と に し ま 
し た 。 こ の 部 分 に は , まだ た くさ る ん の 有用 
な 機能 を 詰め 込 \ ゆ スペ ー ス が あり ます 。 

PC-8801 を 愛用 し て いる 皆さん 。 ア セン 
ブラ は BASIC で は 不可 能 な こと を 可能 に 
する 素晴らし い 言語 で す 。N。。-BASIC の 
不足 し て いる 機能 を どん どん 詰め こん で み 
よう で は あり ませ ん か 。 
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プロ グラ ム 1~5 は , プロ グラ ム の 機械 語 プロ 
グラ ム の アセ ンプ ブラ ソ ー ス リス ト で す 。 

ROLL サブ ルー チン を 使う 際 は プロ グラ ム 
7 を 打ち 込む だ け で 十分 で す 。 


E STNR ADRS OBJECT SOURCE STATEMENTS 


$ EEE E EEE E E E E E E E E E E E E E E JE E E E E IE FE 
;* GRAM 1977 スク ロール Subroutine ※ 
Ны Ву А. Ishizaki x 
} E E E E E E ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E E E E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 


235А MULT EQU 235AH 
8400 STAK EQU 8400H 


0000 2 ORG 8060H 


00 N ль ON D 


МЕ Roll Up,Roll Down Subroutine В 
12 8060 ED?34981 ROLL :LD (SPSAVE ) , SP 


13 8064 310084 LD SP,STAK 
14 8067? CD5581 CALL ERR? ; Error Check 
15 806A 3817 JR C,ROLL2 
16 ; 
17 806C CDE780 CALL CAL1 ; (DESAVE) 
18 806F CD1281 CALL CALA 3 (HLSAVE) 
19 8072 CD0281 CALL CAL2 ; (BCSAVE) 
20 8075 ЗАА181 LD A,(REPEAT ) 
21 8078 47 LD B,A 
22 ; 
23 8079 CD8880 ROLL1 :CALL MOVE 
24 807C 10FB DJNZ ROLL1 
25 807E CDB780 CALL CLS 
26 8081 D35F OUT (5FH),A 
27 8083 ED?BA981 ROLL2 :LD SP,(SPSAVE) 
28 8087 C9 RET 
29 H 
30 ШЕ 7"0»2 テン ソ 9 EM 
31 8088 C5 MOVE  :PUSH BC 
32 8089 3AA081 LD A,CDOT) 
33 808C 47 LD B,A 
34 808D CD9780 MOVE1 :CALL RGB 
35 8090 CD3181 CALL CALS 
36 8093 10F8 DJNZ MOVE1 
37 8095 C1 POP BC 
38 8096 C9 RET 
39 $ 
40 8097? C5 RGB :PUSH BC 
41 8098 2AA381 LD HL,CHLSAVE) 
42 809B EDSBAS81 LD DE,CDESAVE) 
43 809F 015B04 LD BC,045BH 
44 8042 180C JR RGB2 
45 Б 
46 80А4 Е5 RGB1  :PUSH HL 
47 80А5 05 PUSH DE 
48 8046 C5 PUSH 8C 
49 8047 EDABA?781 LD BC,(BCSAVE ) 
50 80AB EDBO LDIR 
51 80AD C1 POP BC 
52 80AE 01 POP DE 
53 80AF E1 POP HL 
54 80BO OC RGB2 :INC C 
55 80B1 ED79 OUT (C),A ; 7?V-» / キリ カエ 
56 80B3 10EF DJNZ RGB1 
S? 80B5 C1 POP BC 
Е, 8086 C9 КЕТ 
, 
60 Юй 97420" ) 7"7"> / CLS ВВ 
61 80B? 3AA081 CLS :LD A,(DOT ) 
62 80BA 47 LD B,A 
63 : 
64 80BB C5 CLS1  :PUSH BC 
65 80BC 214281 LD HL, COLOR 
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Ч 66 ВОВЕ 015Е03 LD BC,035EH 


6? ; 
68 80С2 С5 CLS2 :PUSH BC 
69 80C3 ED79 OUT CC), A  ; ファ レー ン / キリ カエ 
70 80C5 7E LD A,(HL) 
71 80C6 1F CLS3 RRA 
72 80C7 10FD DJNZ CLS3 
73 80C9 3803 JR C,CLSA ; CY A 5"y94 J フ % レ ー ン / C" 9 
74 80CB AF ХОР А ; VJ D3- 3 ケス タメ 
75 80СС 1802 JR CLS5 
76 80CE 3EFF CLS4 :10 A,OFFH  ; ソノ カラー Y" 93M タメ 
77 8000 EDSBA581 CLS5 :LD DE,(DESAVE) 
78 8004 ED4BA681 LD BC,(BCSAVE-1 ) 
79 80D8 12 CLS6 :LD (DE),A 
80 8009 13 INC DE 
81 80DA 10FC DJNZ CLS6 
82 80DC C1 POP BC 
83 80DD 0D DEC C 
и 80DE 10E2 DJNZ CLS2 
8 ; 
86 80E0 CD3181 CALL CALS 
87? 80E3 C1 POP 8C 
m 80E4 1005 DJNZ CLS1 
9 ; 
90 80Е6 C9 RET 
91 ; 
92 ; ES (DESAVE ) =0C00H+50Hx(Y1 )+(X1 ) MEM 
93 80E7 3A9E81 CARL LDR) 
94 80EA éF LD L,A 
95 80EB 2600 LD H,00H ; HL=(Y1 ) 
96 80ED 115000 LD DE,0050H 
97 80F0 CD5A23 CALL MULT $; HL-50Hx(Y1) 
98 80F3 1100CO LD DE,0C000H 
99 80F6 19 ADD HL,DE  ; HL-0COOH«*50Hx(Y1) 
100 80F7 3А9081 LD A,CX1) 
101 80FA 5F LD E,A 
102 80FB 1600 LD D,00H ; DE=(X1 ) 
103 80FD 19 ADD HL,DE ; HL=0OC00H+50Hx(Y1 )+(X1 ) 
104 80FE 224581 LD (DESAVE ) , HL 
105 8101 C9 RET 
106 ; 
107 ;MEÜ (BCSAVE)=(X2)-(X1)+1 BB 
108 8102 3А9081 CAL2 :LD A,CX1) 
109 8105 47 LD B,A 
110 8106 3A9F81 LD A,(X2) 
: 111 8109 90 SUB B ; A=(X2)-(X1) 
5 112 810A 3C INC A ; A=(X2)-(X1)+1 
ki 113 810B 6F LD L,A 
Е 114 810C 2600 LD H,00H 
115 810E 224781 LD (BCSAVE ) , HL 
116 8111 C9 RET 
127 ; 
118 ; WS (HLSAVE)=(DESAVE) +- 50Hx(DOT ) ШШ 
119 8112 2AA081 CALA :10 HL,(DOT) 
120 8115 2600 LD H,00H 
121 8117 115000 LD DE,0050H 
122 811A CD5A23 CALL MULT  ; HL-50Hx(DOT) 
123 8110 ED5BAS81 LD DE, (DESAVE) 
124 8121 EB EX DE,HL 
125 8122 3A9C81 LD A,CUD) 
126 8125 B? OR А 
127 8126 2003 JR М7,СА 4А 
128 8128 19 ADD HL,DE  ; HL=(DESAVE )+50Hx(DOT ) 
129 8129 1802 JR CALAB 
130 812B ED52 CALAA :SBC HL,DE  ; HL=(DESAVE )-50Hx(DOT ) 
131 812D 224381 CALAB :LD (HLSAVE ) , HL 
132 8130 C9 RET 
133 ; 
134 ШШ (HLSAVE )=(HLSAVE ) +- 50H, (DESAVE)=(DESAVE) +- 50H BH 
135 8131 115000 CALS :LD DE,0050H 
136 8134 2AA381 LD HL,(HLSAVE ) 
137 8137 3A9C81 LD A,(UD) 
138 813A B? OR А 
й 139 813B F5 PUSH АЕ 
f 140 813C 2003 JR NZ,CAL5A 
; 141 813E 19 ADD HL,DE ; HL=(HLSAVE)+50H 
[re 142 813F 1802 JR CALSB 
BY 143 8141 ED52 CALSA :SBC HL,DE ; HL-(HLSAVE)-50H 
[oue 144 8143 224381 CALSB :LD (HLSAVE ) ,HL 
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8146 2АА581 LD HL,(DESAVE) 

8149 F1 POP AF 

8144 2003 JR NZ,CALSC 

814C 19 ADD HL,DE ; HL=(DESAVE )+50H 
814D 1802 JR CALSD 

814F ED52 CALSC :SBC HL,DE ; HL=(DESAVE ) -50H 
8151 224581 CALSD :LD (DESAVE ) ,HL 

8154 C9 


8155 3A9F81 

8158 47 

8159 3E4F 

815B B8 79-( X2 ) 

815С D8 IF (X2) > 79 THEN RETURN 


8150 3A9D81 

8160 4? 

8161 3A9F81 

8164 B8 ; (X2»-(X1) 

8165 D8 IF (X2) < (X1) THEN RETURN 


8166 3A9E81 

8169 

816A 

816C 199—561) 

816D IF (Y1) > 199 THEN RETURN 


816E 344181 A, (REPEAT) 
8171 B? 
8172 2826 Z,ERR?2 ; IF (REPEAT)=0 THEN CY=1:RETURN 


8174 2АА081 HL, (DOT) 

8177: 5С 

8178 2600 HL=( DOT) 
8174 1600 ; DE=(REPEAT) 
817C 13 DE=(REPEAT )+1 


8170 CDSA23 CALL MULT (HL )=(DOT )*((REPEAT )+1 ) 
8180 EDSB9E81 LD DE,(Y1) 
8184 1600 LD D,00H ; DE=(Y1 ) 
8186 EB EX DE,HL 
187 8187 3A9C81 LD A,CUD) 
188 818A B? OR A 
189 818B 2009 JR NZ,ERR?1 
190 818D 19 ADD HL,DE HL=( Y1 )+(DOT1 )*((REPEAT )+1 ) ) 
191 818E EB EX DE,HL 
192 818F 21C800 LD HL,200 
193 8192 B? OR А 
194 8193 ED52 SBC HL,DE HL=200-(Y1)+(DOT)%((REPEAT)+1)) 
a 8195 С9 RET IF HL > 200 THEN CY=1 : RETURN 
196 ; 
197 8196 23 ERR?1 :INC HL 
198 8197 EDS2 SBC HL,DE HL=(Y1)+1-(DOT)w((REPEAT)+1)) 
199 8199 C9 RET IF HL < 0 THEN СҮ=1 : RETURN 
200 
201 819A 37 
202 819B 
203 
204 BE Work Area MM 
205 U :DEFB OOH Roll up - O ‚Roll down - 1 
206 :DEFB 00H 
207 :DEFB 00H 
208 :DEFB 00H 
209 :DEFB 00H 
210 REPEAT:DEFB 00H 
211 COLOR :DEFB 00H 
212 HLSAVE:DEFU 0000H 
213 DESAVE:DEFU 0000H 
214 BCSAVE:DEFU 0000H 
215 SPSAVE:DEFU 0000H 
216 ; 
217 END 


ERRORS 


214 


E STNR 


OO NOONE ON PDP 


ERRORS 


ADRS 


OBJECT 


ED735580 
3AC2E6 
ЕСЕТ 
D331 
015E03 


50 
ED79 
21FFFF 
345480 
1F 


ESESESES 
ESESESES 
ESESESE5 
ESESESED 
ЕЅЕЅЕЅЕ5 
ESESESES 
ESESEDES 
ESESESES 
10DE 


D331 
ED7B5580 
C9 


00 
0000 


SOURCE STATEMENTS 


3 EE EEE ЭЕ ЭЁ IE ЭЕ ЭЕ ЭЕ E ЭЕ IE ЭЕ ЭЕ ЭЕ E E E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 
yw 3972 CLS 2 Subroutine x 
{ж Ву А. Ishizaki x 
} EE EE ЭЕ ЗЕ ЗЕ E ЭЕ ЭЄ E E ЭЕ ЗЕ ЭЕ ЭЕ E E ЭЕ ЭЕ E ЗЕ ЭЕ ЭЕ € ЗЕ ЭЕ ЗЕ ЭЕ 
; 


ORG 8000H 


, 

CLS2 :LD (SPSAUE ) , SP 
LD А, (0Е6С2Н) 
AND OF7H 
OUT (31H) ,A 
LD BC,035EH ; 7?b-» Z *Ubt 39 


CLS2A :LD D,B 
OUT (C),A 
LD HL,OFFFFH 
LD A,CBCOLOR) 
CLS2R :RRA 
DJNZ CLS2B 
JR C,CLS2C 
INC HL ОЕ Z ЛЕШЕ 
CLS2C :LD SP,OFE80H 
LD B,OFAH 


7*b-» J AVII 
tus k JEEP 


‚++ 


CLS2D :DEFU OESESH,OESESH, OESESH , OEBESH 
DEFU OESESH,OESESH, OESESH, OESESH 
DEFU OESESH,OESESH, OESESH, OESESH 
DEFU OESESH, OESESH, OESESH, OESESH 
DJNZ CLS2D 
LD B,D 
DEC C 
DJNZ CLS2A 
OUT (SFH),A 
LD A,(0E6C2H) 

OUT (31H) ,A 
LD SP,(SPSAVE) 
RET 


BCOLOR:DEFB 00H ORI TIR" 295 
SPSAVE:DEFU OOOOH 


END 


0 0 O JN BP ON DP 


ERRORS 


OBJECT 


SOURCE STATEMENTS 


E E ES 
;* E100H - E4FFH to 

;* 8000H - 83FFH Move Program 
;*& By А. Ishizaki 

Os че ыс ысы 
, 

» 


ORG OEO00H 


ENTRY :DI 
IN A,C?0H) 
PUSH AF 
LD A,80H 
OUT (70H),A ; 8000H - 83FFH 7 RAM = スル 
LD HL,OE100H 
LD DE,8000H 
LD BC,400H 
LDIR ; 7'0842"*»)5 
POP AF 
E (70H) ,A 8000H - 83FFH ヲ テキ スト 9 ウイ ント"9 = モト * ス 
1 
КЕТ 


END 
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E STNR ADRS OBJECT SOURCE STATEMEN1S 
1 ; DE DE DE IE DE IE DE JE JE DE JE DE JEPE JE IE JE IE JE IE JE JE JE IE IE JE E IE IE FE 
2 ж ROLI. ユン トリ Program x 
3 БЫ By А. Ishizaki x 
4 ; € EE E E EE E E E E E E E E E E E E E E E E E E € E E € IE 
5 ; 
é 8060 ROLL EQU 8060H 
? 819C WORK EQU 819CH 
8 ; 
9 0000 ORG 0ES520H 
10 ; 
11 E520 F3 ENTRY :DI 
12 ES21 ОВ70 IN A,C?0H) 
13-E523 F5 PUSH AF 
14 E524 3E80 LD A,80H 
15 E526 0370 OUT (70H),A ; 8000H - 83FFH ? RAM = スル 
16 E528 213ВЕ5 LD HL,EMORK 
17 E52B 119C81 LD DE,UORK 
18 E52E 010700 LD BC,? 
19 E531 EDBO LDIR 3 A*53-9 テン ソウ 
20 E533 CD6080 CALL ROLL 
21 E536 F1 POP AF 
22 E537 D370 OUT (70H),A ; 8000H - 83FFH 7 テキ スト ウイ ント “うり Z も モト“ ス 
23 €539 FB EI 
24 ES3A C9 RET 
25 ; 
26 E53B EWORK : 
27 ES3B 00 UD :DEFB 00Н ; Roll up = 0 ,Roll down = 1 
28 E53C 00 X1 :DEFB OOH 
29 E53D 00 VT :DEFB 00H 
30 ES3E 00 X2 :DEFB OOH 
31 Е5ЗЕ 00 DOT :DEFB OOH 
32 E540 00 REPEAT : DEFB OOH 
33 E541 00 COLOR :DEFB OOH 
34 
35 E542 END 
| ERRORS 0 
E STNR ADRS OBJECT SOURCE STATEMENTS 
1 E EEE E E EEE E E E E E E E E E E E E E E E E E E E € € 
2 ж CLS 2 エン トリ Program x 
3 ;* By А. Ishizaki x 
a JX эе Зе эе ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ JE ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ 
5 ; 
6 8000 CLS2 EQU 8000H 
? 8054 BCOLOR EQU 8054H 
8 ; 
9 0000 ORG OESOOH 
10 $ 
11 E500 F3 ENTRY :01 
12 E501 DB70 IN A, (70H) 
13 ES03-FS PUSH AF 
14 E504 3E80 LD A,80H 
15 Е506 0370 OUT (70H),A ; 8000H - 83FFH 7 RAM - スル 
16 E508 3A16E5 LD A,CECOLOR) 
17 ESOB 325480 LD (BCOLOR),A 
18 E50E CD0080 CALL CLS2 
19^£511 F1 POP AF 
20 E512 D370 OUT (70H),A ; 8000H - 83FFH Э テキ スト ウイ ント “の Z ЕК2 
21 E514 FB ET 
22 E515_C9 RET 
3 ; 
24 Е516 00 ECOLOR:DEFB 00H 
25. E517 END 
ERRORS 0 


60000 
60010 
60020 
60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
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E 


^ 


* 


CLEA 
1=&Н 


N-250 : S=10 


H-I 
FOR 
Z$-H 
PRIN 
NEXT 
PRIN 
I=J 


xx $242" DATA フ “ ン ヘン カン xxx 


R ,&HBFFF 
E100 : K-&HE2AE : ' エー マシ ンコ " スタ ー ト アト "レス , K- マ シンコ" エント" アト "ルス 
: ^ N-DATA 7*2 キネ " ョ 9 No. , S-y"57*» 


: PRINT N; "DATA '; 
J=I TO 1+15 
EX$(PEEK(J)) : IF LEN(Z$)=1 THEN Z$='0'+Z$ 
TIS, 3 : IF J>=K THEN Ј=1+15 
3 
T CHR$C29): ^ :' "JMEXSCH); "=" 
: N=N+S : IF J>K THEN END ELSE 60070 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 


1340 
1350 


1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


1640 
1650 
1660 
1670 
1680 


1710 
1720 
1730 
1740 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


1320 * 
1330 ' 


1360 ` 


кы 
өз? 
Ж 

ww... 


шы 
*HCLS 
POK 
RETURI 
um 
*HROL 


D=&HE53B :POKE D,UD :POKE D*1,X1 :POKE D*2,Y1 :POKE D*3,X2 


POK 
RETURI 


XINIT 
FOR 
FOR 
FOR 
DEF 
DEF 
DEF 

RETURI 


DATA 
DATA 


1610 * 
1620 * 
1630 ^ 


1690 ' 
1700 ‘ 


*СНЕС 
DEFIN 
RESTOI 


, 


DEFI 
PRIN 


CLEAR ,&HOFFF :GOSUB *INIT.ROLL :CLEAR ,&HE4FF 


CLS 
xL00 
SCRE 
FOR 
х2 


эе эе эе эе эе эе эе эе E ЭЕ э ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E ЭЕ ЭЕ € 
ツク CLS 2 , ROLL Subroutine * 

by A. Ishizaki ж 
€ E E E E E E E E E E JF E E E E E E E E € E € E E € € 


*CLS2 Subroutine ШШШ 
2 


E &HE516,BCOL 
N 


:D=USR1(0) 


*ROLL Subroutine MEN 
L 


E D«4,DOT :POKE D*5,REP :POKE D*6,COL :D-USR2(0) 
N 


.ROLL 

О=&НЕ@@@ TO &HE91F :READ Z$ 
D-&HE100 TO &HE2AF :READ Z$ 
D=&HE599 TO &HE54F :READ Z$ 
USR1=&HE999 :D-USR1(0) 
USR1-&HE500 

USR2=&HES29 É 
N 


:POKE D,VALC'&H'*Z$) 


^ XHCLS2 エッ トリ 
X*HROLL エッ トリ 


E100 TO E4FF TOP 8000 MOVE DATA m= 


F3,D0B,70,F5,3E,80,03,70,21,00,E1,11,00,80,01,00 
904,ED,B0,F1,D3,70,FB,C9,00,00,00,00,00,00,00,00 


CLS 2 , ROLL Program DATA (2"97h*LA2 8999-81AE ) wm 


ED,73,55,80,3^,C2,E6, E6,F 7,03,31,01,5E,03,50,ED 
79,21,FF,FF,34,54,80, 1F ,19,FD,38,91 ,23,31 , 89 ,FE 
06,ҒА,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5 
Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5 
E5,E5,10,DE,42,0D,10,C6,D3,5F , 3A,C2, E6,D3,31,ED 
7B8,55,80,C9,00,00,00,FF,00,FF,00,FF,00,FF,00,FF 
ED,73,49,81,31,00,84,CD, 55,81,38,17,CD, E7,80,CD 
12,81,CD,02,81,3A4,41,81,47,CD,88,80,10, FB, CD, B? 
80,D3,5F,ED, 7B, A9,81,C9,C5,3A,40,81,47,CD,97,80 
CD,31,81,10,F8,C1,C9,C5,24,43,81, ED, 5B, 45,81,01 
58,04,18,0C,E5,05,C5,ED, 4B, A7,81,ED, BO, C1,01,E1 
80C,ED,79,10,EF,C1,C9,34,40,81,47,C5,21,42,81,01 
5E,03,C5, ED, 79, 7E, 1F , 10,FD,38,03,4F, 18,02, 3E,FF 
ED,5B,45,81,ED, 4B, A6,81,12,13,10,FC,C1,0D, 10,E2 
CD,31,81,C1,10,05,C9,34,9E,81,6F,26,00,11,50,00 
CD,54,23,11,00,C0,19,3A,9D,81,5F,16,00,19,22,A5 
81;C9,3A,9D,81,47,3A,9F ,81,90,3C,6F ,26,00,22,A7? 
81,C9,2A4,40,81,26,00,11,50,00,CD, 5A, 23, ED, 5B, A5 
81,EB,34,9C,81,B7,20,03,19,18,02,ED, 52,22,43,81 
C9,11,50,00,24,43,81,34,9C,81,B7,F5,20,03,19,18 
02,ED,52,22,43,81,2A4,45,81,F1,20,03,19,18,02,ED 
52,22,45,81,C9,3A,9F,81,47,3E, 4F ,B8,D8, 3A, 9D, 81 
47,3A4,9F,81,88,08,34,9E,81,47,3E,C7,B8,D8,3A,A1 
81,B87,28,26,24,40,81,5C,26,00,16,00,13,CD, 54,23 
ED,5B,9E,81,16,00,EB, 34,9C,81,B7,20,09,19,EB,21 
C8,00,B7,ED,52,C9,23,ED,52,C9,37,C9,00,00,00,00 
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 


CLS 2 , ROLL エン トリ DATA = 


F3,DB,70,F5,3E,80,03,70,3A,16,E5,32,54,80,CD, 00 
80,F1,03,70,FB,C9,00,FF,00,FF,00,F7,00,FF,08,FF 


. F3,DB,70,F5,3E,80,D3, 70,21,3B, E5,11,9C,81,01,07 


90 ,ED,B0,CD,60,80,F1,03,70,FB,C9,00,00,20,00,00 
90,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 


--- CHECK SUM TEST 


K 
T A-Z :DIM SUM(34) 
RE 1790 


umple for ※HCLS2 ,※HROLL 


NT А-7 


T ` wait ,please 


P 

EN 0,0:BCOL-INTC(RNDx*7*1):GOSUB xHCLS2 
X1-10 TO 79 STEP 10 
zX1*4:DOT-1:REP-20:COL-0 


:POKE D,VAL(C'&H'*Z$) :NEXT 
:POKE D,VALC'&H'*Z$) :NEXT 


1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 


FOR L=1 TO 34 


READ Z$ :SUI 
NEXT 
DATA 6C8,599, 


DATA 958,893,972,747,677, ?BE, 63D, 4E1,66D, 653 
DATA 655,5CF,60B,779,841,4C6,6C4,6B2,000,83C 


DATA 973,7AB, 


RESTORE 1290 
FOR L=1 TO 34 
SUM-SUM(L ) 
FOR N=1 TO 
READ 2% 
NEXT 


IF SUM><9 THEN PRINT ` 


NEXT 


PRINT ° CHECK 


END 


C=INT(RNDx8 ) :CIRCLEC(X1x8*20,170),15,C:PAINT STEP(0,0),C 


Y= 
FO 


NE 


POKE &HE53B,1:POKE &HE53C,X1:POKE &HES3D,X2 
POKE &HES3F,1:POKE &HE540,20:POKE &HE541,INT(RND*7) 


FO 


NE 
NEXT 


RND*100+50 

R Y1=169 TO Y STEP -1 
GOSUB xHROLL 

XT 


R Y1=Y+20 TO 190 
POKE &HES3D,Y1 :D-USR2(0) 
XT 


320 GOTO xLOOP 


: SUM-SUM-VAL C `&H" *Z$) 


"=s. end of list 


MCL )=VAL ( `&H`+Z$) 


897,6DD,D86,E50,8E2,714,832,7EA 


742,000 


¿PRINT L 
16 


CHECK SUM ERROR ! іп"; :END 


SUM OK ! ` 


この プロ グラ ム を 入力 し た 後 、 ま ず 
RUN. , xCHECK Q 
と し て チェ ッ サ ム を 確認 し た 後に 、 
GOSUB «INIT. ROLL @ 
で 機械 語 部 分 を メモ リ に 書き 込ん で く 
だ さい 。 


150 行 サブ グル ー チ ン x INIT ° ROLL tz, 
ROLL サ ブル ー チ ン の 設定 を 行 CLEAR 
文 は す サブ ルー チン 中 で 使え な いた だ め , 
GOSUB x INIT・ROLL の 前 後に 付け て 
お く 。 こ の CLEAR 文 を 付け な いと 桑 走 す 
る 可能 性 が ある 。 
180 行 高速 クリ アル ー チ ン の 使用 例 
240 行 ROLL サブ ルー チン を 呼ん で いる 。 
呼ぶ 以前 に XL,X2, Yl DOT,REP,COL に 
数 値 が 代入 る きれ て いる 。 
260 行 X1 な どの 変数 を 介さ な いで , 直接 
パラ メー タ を 機械 語 ル ー チ ン に 渡す 例 
290 行 ここ で は , サブルーチン xHROLL 
を 使わ ず に , 直接 機械 語 ル シー チン を 使っ て い 
る 。240 行 の 方 法 よ りこ の ほう が 高速 で ある 。 
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| PC-8801 И 


ビデ オ 画 像 を PC で 出力 する 


ご 値 画 像 入 カ イン タフ ェ ー ス 回 路 の 製作 
CARRE 特賞 作品 


今回 特賞 に 選ば れ な だ た インタフェース ボー に し まし た 。 も う 少 し くわ し く 説 明 し まし ょ う 。 
ド は ビデ オォ の 静止 画面 を PC-8801 に 入力 PC-8801 画像 入力 条件 は , 
で き , 操作 は キー を 押す だ け と 簡単 で , 2 1. 入力 画像 信号 は 白黒 コン ポジ ッ ト ビ デオ ` эў 
コン ポジ ッ ト 


秒 た ら 6 ず で 1 画面 の 入力 が で きる と いう 高 。 信号 で , 静止 画像 を 基本 と する 。 A 
„ ` | 一 j= 
速 性 が 特徴 で す 。 入 力 し た 画面 は COPY キ 2. 読み 込み 画像 は 入力 画像 信 を スラ ィ ス ビデ オ 信 号 に つい て 


SOW а Заа л レベ ル で 比較 し た 2 値 画像 で ある 。 E s 
製作 は 本 誌 連載 中 の ヾ PC TAP ve 3. 入力 画像 信号 の 1 水平 走査 時 間 の 内 に , 


ル で は 少々 難し いか も し れ ま せん が , 回 路 1 バイ ト (デイ スプ レイ 上 で 横 8 ドッ ト 図 1 の A に 白黒 ユ コンポ ジット ビデ オォ 信号 


図 を 参考 に , 腕 に 覚え を の ある 方 は 作っ て み 分 ) の デー タ を 読み 込む 。 の 1 水平 走査 間 の 構成 示し まし た 。 ビ デ 
АКЕ ГЕ 5 か? と な っ て いま す 。 オカ メラ な どの 画像 は この 水平 走査 を 約 
[3 


は じ め に 
ا‎ И 


フー ソナ ルコ ンピュータ へ の 画像 入力 方 
法 と し て は , ライ トペ ン や デジ タイ ザ な ど и. ーーーーーーーーーーーーー- GND レベ ル 


の 座標 入力 装置 を 利用 する の が 一 般 的 で す 。 
だ た だ, 入力 し た 座標 デー タ よ り も 全体 と ACIER 
し て の 画像 イメ ー ジ が 重要 な 意味 を 持つ 場 白黒 コン ボ ジ ッ トビ デオ 信号 
f. 効率 の ょ い 入力 方 法 ほ は いえ ませ ん 。 | 
テレ ビ カ メ ラ に よる 画像 入力 が 最も 有効 と 
思わ れ ま す が , 画像 の 情報 量 が 膨大 な た め , 
を その まま で は と て も パー ソナ ルコ ン ピ ュ ー カラ ニ サ プ キ ャ リア 
タ で 処理 で きる も の で は あり ませ ん 。 о 
テレ ビ カ メ ラ に よる 画像 入力 装置 で は 入 カラ ー バ パース ト 
力 し た ビデ オォ 信号 を A/DD 変 換 し て ビデ オ 
バッ ファ (RAM) it b AZ, コンピュー 
タ へ DMA 転送 (CPU を 介 き ず 直 接 に メモ 
リ ヘ デー タ 転 送 ) する の が 普通 で す 。 今 回 
製作 の イン タフ ェ ー ス ボー ド で は 以下 に 述 
べ さる よう な 条件 を つけ て , 簡単 に PC-8801 
の グラ フィ ッ ク V-RAM に 読み 込む こと B! ビデ オ 信 号 の 構成 
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IH=63.5zs 


кл 
フロ ント 
ポー チ 


カラ ー コ ン ボ ジッ トビ デオ 信号 


244 回 繰り 返し , それ に 垂直 同期 信号 を 挿入 
し て 1 画面 を 構成 し ほす 。 テ レビ な ど で は 
1 秒間 に 30 画 面 映し ます 。 

カラ ー コ ン ポ ジッ トビ デオ ォ 信号 NTSC 
は 白黒 コン ポジ ッ ト ビ デオ 信号 の バッ ク ポ 
ー チ に 色 同 期 信号 (カラ ー バ ー ス ト ) FH 
AL, きら 6 に 輝度 信号 に カラ ー サ ブ キ ャ リ 
ア (3.579545MHz) を 重ね た も の で す 。 図 
1 の B を 見 る と , 白黒 信号 と の 違い が 分 か 
る と 思い ます 。 


ビデ オ 信 号 の 
読み 込み 方 法 
к 


パー ツナ ルコ ンピュータ へ の 入力 信号 を 
白黒 コン ポジ ッ ト ビ デオ 信号 と すれ ば , A 
力 信号 か ら 水 平 ち よび 垂直 同期 信号 を 分 離 
し て 読み 込み タイ ミン グ を 設定 し , さら に 
コン パレ ー タ で スラ イス レベ ル を 黒 の レベ 
ル 以 上 に 設定 すれ ば , 信号 を 白黒 の 2 値 デ 
ー タ に 変換 で きま す 。 

この 2 値 デ ー タ を 特別 な が ば デオ バッ ファ ア 
を 用 いな いで 処理 で きる よう に , 読み 込む 
デー タ の 量 は 1 画面 に つい て 16000 バ イト 
E し また 。 くわ しく 述べ る El RFE 
査 線 に つい て , 1 バイ ト (デイ スプ レイ 画 
面 上 の 横 8 ドッ ト 分 に 当たる ) の デー タ を 
読む こと に し , 1 フィ ー ル ド で 200 回 水平 走 
査 し ます 。 こ れ を 80 フ ィ ー ル ド 分 繰り 返し 
て 1 画面 を 作る の で す 。 

フツ コン の デオ イス iP 人 0 に 即 IiG 考 ん て 
み ま し ょ う 。 図 2 を 見 て くだ きい 。640X200 
ドッ ト の 画面 で す 。 画 面 上 の 左上 か ら ま ず 


640 ド ッ ト 


横 8 ドッ ト の デー タ を 縦 に 200 回 読み 込み 
ます 。 水 平方 向 の 読み 込み 位置 を 8 ドッ ト 
ずら 6 せな が ら , 縦 の 読み 込み を 80 回 繰り 返 
すわ け で す 。 


ハー ドウ ェ ア 
に つい て 


イン タフ ェ ー ス ボー ド の 具体 的 な 構造 に 
つい て 述べ まし ょ う 。 ま ず , 回 路 図 を 示し 
た 図 3 と 実際 に 配線 し た 写真 1 見 て くだ 
きい 。 

今回 の ボー ド で は 1IC の 8255A-5PPI を 
基本 的 な モード 0 に 設定 し , ポー ト A と C 
の ji ド 位 4 ビッ ト を 入力 に ーー ボード RB と ポー 
ト C の 上 位 4 ビッ ト を 出力 に 使用 し て いま す 。 
入力 信号 の 流れ 

まず , 入力 し た ビデ オォ 信号 を 高速 コン パ 
レー タ u A760H に より 2 値 化 し ます 。 な 
в, スラ イス レベ ル の 設定 は 8255PPI の 
pG 5 = A b y> F 2 z t C. 18 
段階 に 設定 が で きま す 。 デ ー タ は 次 に シフ 
トレ ジス タ LS164 に 入り , ここ で は LS164 
は クロ ッ ク 信 号 に より 入力 デー タ を 順に 内 
ОРУДУ ДРГ ТЫ 
ロッ ク 信 号 が な く な る と , その 時 点 の 1 バ 
イト の デー タ を 保存 し ます 。 こ の 信号 が , 
8255 の ポー ト の A か ら , PC-8801 に 読み 込 
まれ る わけ で す 。 
ビデ オ 同 期 信 号 

ォ オペ アン プ グ LF356H は ビデ オ 同 期 信号 
の 負 の ピー ク を 検出 し , 比較 する こと に よ 
b 同期 分 離 を 行っ て いま す 。 一般 家庭 用 の 


ビデ オォ 機器 で は ビデ オ 出 力 は AC 結合 され 
TET, 10 GND レベ ル が 輝度 信号 に 
ょ っ て 変化 する か ら 5 で す 。 で すか ら 6, GND 
レベ ル が あら か じ め 設 定 さ れ て いる よう な 
機器 , た と えば パソ コン の コン ポジ ッ ト ビ 
デオ 出力 と の 接続 に は 入力 端子 に コン デン 
サ (47gF な ど ) を つ な で 必要 が あり ます 。 
分 離さ れ た 同期 信号 を ハイ カッ ト し て 垂 
直 水 平 分 離し , 次 に デュ アル マル チバ イプ 
レー タ LS221 で 各 信 号 の パル ス 幅 を 広げ 
て , 垂直 お よび 水平 方 向 の デー タ 読 み 込 み 
開始 位置 を 決定 し ます 。 
・ 垂 直 同 期 信号 の パル ス は 8255 の PC 0 に 
MONT, コン ピュ ー タ に 垂直 方 向 の 読 
み 込み 開始 位置 を 知ら せま す 。 
・ 水 平 同期 信号 に 加え られ だ パルス は バイ 
ナリ カウ ンタ LS93 を リセ ッ ト し , 水平 方 
向 の デー タ 読 み 込み 位置 (0 ~79) を 8255 
の ポー ト B か ら LS193( 2 個 ) に ロー ド し ます 。 
パイ ナリ カウ ンタ LS93 は クロ ッ ク 信 号 
を 1⁄4 に 分 周 し , 15193 を カウ ント ダウ ン 
し ます 。LS193 は 水平 読み 込み 位置 の 値 か 
моу рУ ЕС, БОСО 
リッ プ フ ロ ッ プ を セッ ト し て 15164 へ の 
クロ ッ ク 信 号 を 切っ て デー タ を セッ ト し ま 
す 。 を そし て さら に 8255 の PC 1 を レベ ル 
EUR ESIL У ЕЕ 
こと を 知ら せる の で す 。 


クロ ッ ク 信 号 

クロ ッ ク 信 号 は テレ ビ モ ニ タ の 画面 上 の 
縦横 の 比 を ほぼ ば 1 : 1 で PC-8801 の ディ 
スプ レイ 上 に 表示 る せる た だ ため に 約 12.4 
MHz と し まし た 。 そ の た め 横 640 ド ッ ト 分 
の デー タ は 1 水平 走査 時 間 内 の 51.6zs と 


200 ド ッ ト 


写真 1 
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SCHEMATIC DIAGRAM 


ART 6BH 
8,1 
+ 
СОМР. 10 22 ЕЕ pu 1k 
VIDEO IN ? š = に 
Din 1 3 


OP = 75L85 
Suh u.) 


1k 


LF356H 5|. 


3.3k 
15221 


D 
LS221 sli 
CHE 
D9 Z “| GLERR 
13 
*PU 
[584 __ [5@4 1504 
13 12 SE 11.40 9.8 


1k 1k 
^v 
“1 33p 
DH 


T 228p J 220p 


Notes 
Di~D9 : 151588 


LF3S6,uR768:Pin No.shoun only Metal Can 

LS84,L5132: Vcc- Pin 14 GND- Pin 7 

A1 : 12.414 MHz 

*Resistance are in ohms. 

k-1,888 ohms. І 

*Capacitu are in microfarads(uF). COMP. video interface Yer 1.8 
P-zPico-farads. draw JUN.16 1983 bu Ruoichi.T 


BESI 


図 3 


な り , 輝度 信号 以外 の 部 分 、 つ まり フロ ン ロッ ク (14.31818MHz) や スロ ッ ト バ ス の 80-83H に 固定 し て いま す の で , ポー ト を 
ト ポ ー チ や バッ クボ ポー チ も 少し 読み 込ま れ 4 CLK (15.9744HMz) も 利用 で きま す 。 すでに 使用 し て いる 場合 は 変更 し て くだ さき 


る 場合 が あり ます 。 その 他 の 注意 い 。 


縦横 の 比 を 気 に し な けれ ば , クロ ッ ク 信 1/O ポー ト の アド レス デュ ー ド は 回 路 を  A760H の 2 ピン の 半 固 定 抵抗 は スラ 
号 と し て カラ ー デ ィ ス プレ イコ ネ ク タ の ク 筒 素 化 する た め に 1,5138 を 1 個 だ どけ 使い , イス レベ ル 調 整 用 で す 。 プ ログ ラム で は ス 


220 


ライ スレ ベル を 7 と し て , 入力 画像 の 最も 
明る い 部 分 が 読み 込ま れる よう 調整 し まし た 。 
ICzA760H お よび LEF356H は メタ ルキ ャ 
ンタ イジ の パッ ケー ジ で す の で , 実装 する 
と き に 他 の 部 品 と 接触 し な いよ う 気 を つけ 
て くだ きい 。 ま だ ただ, PPI の 8255 の コン トロ 
ー ル ワー ド 設 定 ミ ス に よる 保護 は し て いま 
せん の で , ブロ グラ ム を 打ち 込む と き は よ 
GR A ES sS А5 


ソフ トウ ェ ア に 
つい て 


19^* 

20 

30 “xxx File name 
40 “xxx Creation 
50 “xxx 

60 


70 CLEAR ,&HBF 6F 


イン タフ ェ ー ス ボー ド の コン トロ ー ル ソ 
フト が リス ト 1 で す 。 

主要 部 分 で ある , 610-980 行 の DATA 
文 と し て 書か れ た マシ ン 語 プロ グラ ム に つ 
いて は ザイ ログ の ニー モニ ッ ク を 表示 し ま 
し だ た が, 概略 フロ ー チ ャ ー ト を 図 4 と し て 
書い て な きま す 。1010 一 1050 行 の DATA 
文 ち も ほとんど 同 じ な の で す が , こち ら に つ 
いて は 後述 し ます 。 

は じ め の DATA 文 は BASIC で USR 関 数 
に より 実行 を 開始 し , 入力 画像 を V- 
RAMO に 読み 込ん で いま す 。 こ こ で USR 
の 関数 の 引数 を 変え ん る こと に より , 他 の グ 
ラフ ィ ッ ク V-RAM で 画像 デー タ を 読み 
込む こと が で きま す 。 た だ だ し 詞 引 数 の チエ 


ッ ク は し て いな い の で , USR 関数 の &H 5 
C, 5D, 5E 以 外 を 指定 する LET 2 
こと が あり ます の で 注意 し て くだ きい 。 

ま た, 860 行 の 命令 を 変え る と 現在 の グラ 
フィ ッ ク V-RAM 上 の デー タ と 論理 演算 
を 行い , 読み 込み を する こと も で きま す 。 
た と えば A 6 (AND), Вб (OR) ХЕ, 

この 部 分 を 実行 する 前 に 。 メイ ンプ ログ 
ラム の 100 行 で , 高速 書き 込み の 

SCREEN, 1 
t DMA 禁止 の 

OUT 104, 0 
を し て お きま す 。 


E EE E EE ЭЄ E E E E E E E E E JE E JE E E JE JE ЭЕ JE ЭЕ ЭЄ ЭЕ ЭЕ ЭЄ ЭЕ E JE ЭЄ E E E E ЭЁ E E E ЭЄ E E ЭЕ ЭЕ JE ЭЕ JE JE ЭЕ ЭЕ E E E E E E E E E E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E € 3€ CX 
xxx COMP.VIDEO TO VRAM LOADER 
"'CVLOAD' Ver 1.0 xxx 
MAY 19 83* 
by Ryoichi.Tanaka xxx 


xxx 


xxx 


80 ON STOP GOSUB XxUORK.END:STOP ON 


90 DEFINT A-Z:DEF FNPORT(P,D)=NOT INP(P) AND 255 AND D 
100 SCREEN 1,1:CONSOLE ,,0:0UT 104,0 


110 GOSUB ※INIT。 


130 GOSUB xVLOAD 
140 xLOOP 

150 IF FNPORT(9,2) 
160 IF FNPORT(9,4) 


190 GOTO xLOOP 
210 xSL.INC 


THEN DEF USR-4D1:GOSUB xVLOAD 
THEN DEF USR=AD2:GOSUB xVLOAD 
170 IF FNPORT(11,1) THEN GOSUB xSL.INC 
180 IF FNPORT(11,2) THEN GOSUB xSL.DEC 


^xxx Slice level 


220 SL-SL*1:IF SL»? THEN SL-0 


230 GOSUB xSL.SET:GOSUB xVLOAD 


240 RETURN 
260 xSL.DEC 


290 RETURN 
310 xSL.SET 


320 OUT CP,10:0UT CP,12:0UT CP,14:IF SL-0 THEN RETURN 


^xxx Slice leuel decrement and load 


270 SL-SL-1:1F SL<@ THEN SL=? 
280 GOSUB xSL.SET:GOSUB xVLOAD 


330 IF SL MOD 2-1 THEN OUT CP,11 
340 IF SL MOD 4-2 OR SL MOD 4-3 THEN OUT CP,13 
350 IF SL>=4 THEN OUT CP,15 


| 3690 RETURN 
380 xVLOAD 


400 RETURN 

410 : 

420 xUORK.END 

430 ВЕЕР 9:SCREEN 0,0 


460 END 
470 : 
480 


390 ВЕЕР 1:Z-USR(&HSC):BEEP 9 


440 IF INP(&H30) AND 4 THEN LINU-40 ELSE LINU-80 


450 WIDTH LINU:CONSOLE ,,1 


^xxx VLOAD initialize routine 


^xx*xx Load from comp.video 


^ <#:1> key 

^ €f:2» key 

^ «ROLL UP? key 

^ «ROLL DOMN> key 


increment and load 


^xxx Slice level set 


490 
500 
210 
520 
530 
540 
550 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


XINIT. 
AD1=&HBFC9:DEF USR=AD1 "TT 
FOR I-AD1 TO _ AD1+&H3B:READ M$:POKE I,VAL('&H'-*M$):NEXT 


AD2=&HBF79 

FOR I=AD2 TO AD2+&H45:READ M$:POKE 1,VAL("'&H"'+M ま ) : МЕХТ 

CP=&H83 ^ PPI command register 
OUT CP,&H91 ° PPI initialize (mode 0) 80H-port А for INPUT 


81H-port B for OUTPUT 82H-port C,PC ァ 7-PC4 for OUTPUT 
PC3-PC9 for INPUT 
SL=4 :G0SUB xSL.SET 


RETURN 

еж VLOAD machine language program . 280 

^ for load every field 

DATA F3 EA DI ¿DISABLE INTERRUPT 
DATA 4E 14 LD C S CIE) 
DATA ED,79 +i Of CO) ;4 ¿BANK SELECT 
DATA 11,00,C0:* LD DE , 9C999H ; VRAM TOP ADDRESS 
DATA 96,59 ү LD B ,50H ;HORI.COUNTER INIT. 
DATA ?B: + LHe LD A ,E sHORI. URITE ADDRESS 
DATA D3,81 w OUT (81H),A ;URITE PORT B 
DATA 62 999 LD Н ,D ; VERT. ADDRESS INIT. 
DATA 6B id LD EVE 
DATA C5 は PUSH BC ; SAVE HORI.COUNTER 
DATA 06,C8 ү; LD B ,0C8H ;3VMERT.COUNTER INIT. 
DATA DB,82 ULE IN A ,(82H) ; READ PORT C 
DATA 1F S RRA ;PCO(VSYNC) IS HIGH ? 
DATA 30,FB M JR NC,V1 3NO,V1 
DATA DB,82 :'V2: IN A ,(82H) ¿READ PORT C 
DATA 1F к RRA 5 PC9(VSYNC ) IS LOU ? 
DATA 38,FB d JR C ,V2 :М№О, м2 
DATA 3E,08 ELD A ,8H ;FOR DSR = LOU 
DATA D3,83 CE OUT (83H),A ; RESET PC4 
DATA 3C INC A ;FOR ENABLE DSR F.F. 
DATA D3,83 23 OUT (83H),A ¿SET PC4 
DATA DB,82 :'HS; IN A ,(82H) ; READ PORT C 
DATA CB,4F $= BEL мй ;PC1(DSR) IS HIGH ? 
DATA 28,FA C JR Z Hs 3 NO,HS 
DATA DB,89 : IN A ,(80H) ;READ PORT A 
DATA 00 оў МОР 
DATA 77 З= LD (HL ) ,A ; STORE DATA 
DATA CS ri PUSH BC ¿SAVE VERT.COUNTER 
DATA 01,50,00: ° LD BC, 50H ;NEXT VERT.ADDRESS 
DATA 09 T ADD HL,BC 
DATA C1 + POP BC ;RESTORE VERT.COUNTER 
DATA 19,E ァ DJNZ LV 3 VERT .CDUNTER=9 NO,LV 
DATA 1C Das INC E ;NEXT HORI.ADDRESS 
DATA C1 S^ POP BC ;RESTORE HORI.COUNTER 
DATA 10,D1 de DJNZ LH :HORI.COUNTER-0 NO,LH 
DATA D3,5F S OUT (SFH),A ¿BANK SELECT (MAIN) 
DATA FB :í EI ;ENABLE INTERRUPT 
DATA C9 { КЕТ ; RETURN 


“° for load every other field 
DATA F3, 4E,ED,79,11,00,C0,06,50, 7B,D3,81,62,6B,C5,06 
DATA C8,DB,82,1F,30,FB,DB,82, 1F,38,FB,DB,82, 1F, 30, FB 
DATA DB,82,1F,38,FB, 3E,08,D3,83,3C,D3,83,DB,82, CB, 4F 
DATA 28,FA,DB,80,00,77,C5,01,50,00,09,C1,10,E7,1C,C1 
DATA 10,C7,D3,5F,FB,C9 
“%xxx END of 'CVLOAD' Ver 1.0 xxxx 
DIM KX(1000):SCREEN 1 
FOR 1=0 TO 199:GET(0,I1)-(639, ID) ,KX:PUT(O, DD, KX,PRESET:NEXT 
COPY 2 
SCREEN 9 


使い 方 
ке з 


プロ グラ ム を 走ら せる と , スラ イス レベ 
ル 4 で 入力 画像 を 読み 込み 。 その あと は ロ 
ーッ ジン バリ ソン キー で スラ イベ レズ 
を 増減 る きせ て 読み 込む こと が で きま す 。 同 
ー ス ライ スレ ベル で 読み 込む と き は 
f・1 | また は | f・2 | キー で す 。 ブ ログ 
ラム の 停止 は STOP キー で す 。 を 
押す と 610~980 行 の DATA x», 
で 1010~1050 行 が 実行 され ます 。1010 行 か 
ら 5 の プロ グラ ム は 610 行 か ら の プロ グラ ム 
が セ ゼ デ オ 信 号 の フィー ルド ご と の デー タ 
を 読み 込む の に 対し て , 1 フィ ー ル ド お き 


ENTRY 
割り 込み 禁止 
АТА ca Par a d 


初期 値 設定 | 


水平 位置 出力 
PORT B 


垂直 初期 設定 


— А 
負 エ ッ ジ 検出 ? 
YES 


に 読み 込む の で す 。 こ れ は 入力 画像 が 静止 
画 で あっ て も , イン タレ ー ス 方 式 の ビデ オォ 
信号 で は 第 1 フィー ルド と 第 2 フィ ー ル ド 
を 両方 と も 読む と 垂直 方 向 8 ドッ ト ご と に 
画像 が ずれ る こと が ある た めで , そう いう 
場合 | f・2 | キー を 使っ て て だ きい 。 な お , 
画像 入力 に 要する 時 間 は , | f・1 | キー で 
約 1.4 秒 | f・2 | キー で 2.8 秒 と な り ま す 。 
編集 部 ・ 注 
PC-8801 の COPY コ マン ド で 画像 を 簡単 に 
フリ ジ ド アウ hi で きま す が に = apus L C 
し まい ます 。 そ こ で |070 一 00 行 の サブ ル 
ー チ ン を 組み 込み まし た 。 STOP キ ー を 押し 
clo 
GO TO 1070 О 

と し て くだ さい 。 画面 が 白黒 反転 し , プリ 
ンタ に は 普通 の 画像 と し て 出力 され ます 。 


出力 サン プル 1 


書き 込み 終了 ? 


メイ ン RAM セ レク ト 
割り 込み 許可 


RETURN 


図 4 概略 フロ ー 


お わり に 
L л 


水平 方 向 の 分 解 能 と 精度 は 必ず し も 満足 
で きる も の で あり ませ ん が , グラ フィ ッ ク 
エディ タ な どの プロ グラ ム と 組み 合わ せ て 
使用 すれ ば , 画像 デ ゲー タ の 作成 な ど に 利用 
で きる と 思い ます 。 


< 出力 サン プル > 

VHS XO € T を 使用 し , TV か ら の 録画 画 
面 を 出力 し て み ま し た 。 カ ラー, 白黒 どちら で 
も よい の で す が , カラ ー の 方 が 濃淡 の 表現 が よ 
く で きる よう で す 。 プリ ンタ は PC-8822 を 
使用 し まし た 。 縮小 率 47% 


出力 サン プル 2 


у ana EIE 


19834 7 月 掲載 


投稿 作品 


PC-8851, PC-8853 な ど 縦 400 ド ッ 
ト 表 示 が 可能 な も の 
プリ ンタ 
PC-8821, PC-8822 
(2) 対象 
画面 上 に グラ フィ ッ ク 640X400 ド ッ ト 
(SCREEN 2) で 描か れ た 図形 。 


は じ め に 
— 


PC-8801 で 作っ た グラ フィ ッ ク を プリ 
ント アウ ト す る に は COPY 機能 を 使い ま 
す が , この 機能 コピー すると, どう し て 
も 漢字 が 大 きく な っ て し まっ た り , 真 円 も 
少し 縦長 に な っ て し まい ます 。 そこで これ 
を 解消 する た め に NEC の プリ ンタ の 機能 
を フル に 使っ て ビッ トイ メー ジ て で 高 精細 度 
に コピ ュー を iA TESARI АСҸ. 


使い 方 
EV og 


(D NssBASIC を 起動 し ます 。 

② MON OŁ L, モニ タ よ り マ シン 語 
入力 し ます (BA00 一 BB4E まで )。 な お , 
念入り に チェ ッ ク し た 6 ら 6, いっ た ん カセ 
ッ ト ま だ た は , ディ スク に セー ブ し て お い 


シス テム と 対象 
@[ CTRL HB] で BASIC c b E L à 


(1) PC-8801 +, 
高 解像度 ディ スプ レイ @ CLEAR, &HB9FF で マシ ン 語 エリ 


5 € E E ЭЄ ЭЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ E ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ E E ЗЄ ЭЕ ЭЄ ЭЕ ЭЕ ЭЕ E JE JE JE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ JE ЗЕ FE 
; x 
; 


x GRAPHIC COPY Ver 1.3 x 
;* x 
НЫ by Junji Shibusaua x 
* x 
3 EE эе эе эе ЭЕ ЭЕ JE ЭЕ ЗЕ ЭЕ E IE ЭЕ ЖЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ 


START: EQU 


BA00 9BA99H 
995C VRAM9: EQU SCH 
995D VRAM1: EQU 5DH 


MRAM: EQU SFH 


ORG START 


BA99 F3 DI 
BA01 ED?35FBB LD (STACk),SP 
SP , USERSP 


BA95 3181BB LD 


ア を 確保 し ます 。 

@ BASIC プ ログ ラム な ど で SCREEN 
2 の モー ド (#&400 F > F) の 画面 に グラ 
フィ ッ ク を 描き ます 。 

⑥⑯ プ リン タ を 準備 し ます 。 

ФРЕЕ USR = &HBA00 DUMY = 
USR ( 0 ) 〇 で マシ ン 語 を BA00 番 地 よ り 
スタ ー ト さる せま す 。 

プリ ンタ に 約 2 分 ほど で , ほぼ ハガキ 
Жакси A И» 


プロ グラ ム の 内 容 
к OU. 


プロ グラ ム は 速度 を 考慮 し マシ ン 語 で 組 
ん で あり ます 。 

プロ グラ ム 本 体 は リス ト 1 の 様 に , 
BA00 番 地 よ b BB4E 番地 まで で す が , Z 
れ よ り 後 か 6 BB80 番 地 ま で は , ワー クエ 
リア 及び スタ ッ ク エ リア と し て 使用 し ます 


2135BB 
CD1CBB 


HL ,CHR1 
PROUT 


D35C 
CD29BA 


í VRAMG ) , A 
GPRNT 1 
CD59BA GPRNT2 


D35D 
CD85BA 


(VRAM1 ) ,A 
GPRNT3 
D35F (MRAM),A 


214ABB 
CD1CBB 


HL , CHR4 
PROUT 


ED7BSFBB ' 
FB 


SP, (STACK) 


C9 
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ВА29 
BA29 
BA2B 
BA2D 
BA30 
BA33 
BA36 
BA39 
BA3A 
BA3B 
ВАЗЕ 
ВА41 
BA42 
BA45 
BA46 
BA4? 
BA4? 
BA4B 
BA4E 
BA51 
BA52 
BA53 
BA54 
ВА56 
ВА58 


ВА59 
ВА59 
ВА5В 
ВА5Е 
BA61 
BA63 
BA65 
BA68 
BA6B 
BAeD 
BA6F 
BA72 
BA75 
BA78 
BA?9 
BA7A 
BA7C 
BATE 
BA81 
BA84 


BA85 
BA85 
BA87 
BA89 
BA8C 
BA8F 
BA92 
BA95 
BA96 
BAŞ? 
BAŞA 
BAŞD 
BAŞE 
BAA1 
ВАА2 
ВААЗ 
ВАА5 
ВАА? 
ВААА 
BAAD 
BAAE 
ВААЕ 
ВАВ@ 
ВАВ2 
ВАВ4 


ВАВ5 
BAB8 
BAB9 
BABA 
BABB 
BABC 
BABD 
BABE 
BABF 
BACO 
ВАС1 
ВАС2 
BAC4 
BAC5 
BAC6 
ВАС? 
BAC8 


210000 
АЕ 
78 
TE 
67 
7D 
1F 
6F 
7C 
89 
80 
C6C9 
6? 
7D 
81 
6F 
C9 


GPRNT1: 
NEXTH: LD 


NEXTL: CALL 


CALL 
NEXT2: CALL 
CALL 
PUSH 
INC 


Ne 8 4X 


ADDCAL :LD 
XOR 


CALCULATE ADDRESS 


B,99H 
C,99H 
HL ,CHR2 
PROUT 
ADDCAL 
SETBF 1 
BC 

B 
ADDCAL 
SETBF2 


HL , CHR3 
PROUT 


B,01H 
C,99H 
HL , CHR2 
PROUT 
ADDCAL 
SETBF1 
BC 

B 
ADDCAL 
SETBF2 
BC 
OUTBUF 
c 

A,C 

88 
NZ,NEXT2 
HL , CHR3 
PROUT 

B 

B 

^,B 

25 
NZ,NEXT1 


=> С : (ADDRESS) => HL 


HL , 9999H 
А 
А,В 


エア エア pp DPI 
PpOoOrpb»pooorn» гр 


;====== GVRAM(8 Byte) -> BUFFER1 
BAC9 С5 SETBF1:PUSH BC 
BACA 115000 LD DE,9959H 
BACD 9E98 LD  C,98H 
BACF 7E LOOP2: LD — A,CHL) 
BADO ES PUSH HL 
BAD1 214FBB LD — HL,BFTOP1 
BAD4 0608 LD  B,98H 
BAD6 97 LOOP1: RLCA 
BAD? FS PUSH AF 
BAD8 ТЕ LD  A,(HL) 
BAD9 1F RRA 
BADA 77 LD (HL),A 
BADB F1 POP АЕ 
BADC 23 INC HL 
BADD 1@Е7 DJNZ LOOP1 
BADF E1 POP HL 
BAE9 19 ADD HL,DE 
BAE1 9D DEC C 
BAE2 20EB JR — NZ,LOOP2 
BAE4 C1 POP BC 
BAES C9 RET 
*, 
;===== GVRAM(8 Byte) -> BUFFER2 ==== 
ます 
BAE6 CS SETBF2:PUSH BC 
BAE7 115000 LD DE,9959H 
BAEA 9E98 LD  C,98H 
BAEC 7E LOOP4: LD A,(HL) 
BAED E5 PUSH HL 
BAEE 2157BB LD HL,BFTOP2 
BAF1 @6@8 LD в,@ан 
BAF3 @7 LOOP3: RLCA 
BAF4 F5 PUSH AF 
BAFS 7E LD A,(HL) 
BAF6 1F RRA 
BAF7 77 LD (HL),A 
BAF8 F1 POP АЕ 
BAF9 23 INC HL 
BAFA 19F7 DJNZ LOOP3 
BAFC E1 POP HL 
BAFD 19 ADD HL,DE 
BAFE OD DEC C 
BAFF 20EB JR NZ,LOOP4 
BB91 C1 POP BC 
BB92 C9 RET 
, 
;===== OUTPUT BUFFER ----- 
;BUFFER(8 Byte) -> PRINTER 
U 
BB93 C5 OUTBUF :PUSH BC 
BB94 110800 LD DE,9998H 
BB97 0608 LD  B,98H 
BB99 214FBB LD  HL,BFTOP1 
BBOC 7E LOOPS: LD — A,CHL) 
BBOD CD26BB CALL PUTCHR 
ВВ1@ ES PUSH HL 
BB11 19 ADD HL,DE 
BB12 7E LD — A,CHLD 
BB13 CD26BB CALL PUTCHR 
BB16 El POP HL 
BB17 23 INC HL 
BB18 10F2 DJNZ LOOPS 
BB1A C1 POP ВС 
BB1B C9 RET 
dii acudir Lowe t e 
, 
BB1C 7E PROUT: LD A,CHL) 
BB1D FE24 CP "$ 
BB1F C8 RET Z 
ВВ2@ CD26BB CALL PUTCHR 
BB23 23 INC HL 
BB24 18F6 JR PROUT 
BB26 D310 PUTCHR:OUT (19H),A 
BB28 AF XOR А 
BB29 D340 OUT (40H),A 
BB2B 3C INC A 
BB2C D349 OUT (49H),A 
BB2E DB49 LOOPé: IN A,(40H) 
BB39 E601 AND 01H 
BB32 C8 RET Z 
8B33 18F9 JR LOOPe 
, 
BB35 1B3E CHR1: DEFM 1BH, > 
BB37 1B543136 DEFM 1BH, T16 
BB3B 1B4D DEFM 1BH, M° 
BB3D 1F1124 DEFM 1FH,11H,'$' 


BB49 1B493036 CHR2: DEFM 1BH, [0640 °, $° 
BB44 343024 

BB47 9D9A24 CHR3: DEFM 0DH,0^H, $° 
BB4A 1B41 CHR4: DEFM 1BH, A’ 

BB4C 1B5D24 DEFM 1BH, 1, $° 
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BFTOP1:DS 
BFTOP2:DS 


STACK: 05 2 


STKTOP :DS 20H 


USERSP :EQU STKTOP«20H 


END START 


の で リロ ケー ト す る 場合 は 気 を つけ て 下さ い 。 
(この プロ グラ ム は , バン ク 切 りか え を つ 
か っ て いる た だ ため ,C000 番地 以降 に おく こ と 
は で きま せん 。) 

PC-8801 の 640X400 ド ッ ト グ ラフ ィ ッ 
クス で は , ダン プリ スト の VRAM Еў 
か れ ま す 。 したがって, この VRAM の デー 
タ を 左上 より 順に プリ ンタ に 16 ビ ッ ト ド ッ 
ト 対応 グラ フィ ッ ク モ ー ド て 送り 出し て い 
СЬ, 縦 ・ 横 比 , 1 対 1 の コピ ー を と る こ 
Баса. この と きこ の デ ロ グ ラム 
cu, 片方 向 印字 モー ド に し て 図形 の ずれ 
を 少し で も 減ら し て いま す 。 


お わり に 
E 


この プログ ラム を 使え ば , 画面 上 に さえ 
図形 を 描 り ば ビッ トイ メー ジ で プリ ンタ に 
送る こと が で きる 。 そのため, 本 体側 に る 
х КОМ が あれ ば , PC-8822 の 漢字 プ 
リン タ と 同質 の 漢字 が 打ち 出す こと が で き 
る 。 оС, プリ ンタ に 漢字 ROM が な い 
方 で も 少し 工夫 すれ ば , 簡単 な ワー プロ を 
作り 出す こと が で きる で ゆ じ ょ 58 
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co өө co өө өө өө өө өө өө өө өө oo өө өө өө oo oo oe өө өө oo oo өө өө өө өө өө oo өө өө өө өө өө өө өө өө өө өө өө өө өө °° 


++ 99 99 مه‎ oe өз oo өз өө өз өө ce oe өз өө so өө өз so oo өө өз ee өз so өз өө өө өз өз өө өз өз oe өз so өө oo өө өз өө өз 


は じ め に 
っ Ne 


この プロ グラ ム は 3 次 元 の ワイ ヤー フレ 
ー ム モデ ル (回 転 体 ) を 2 次 元 の デー タ 入 
カカ を する だ け で 作成 する ツー ル で す 。 

ォ ー ル BASIC の た め , 計算 に 時 間 は か 
か り ま す が , X, Y, ZZ 軸 を それぞれ の 回 転 
角 指 定 , 拡大 , 縮小 な どの 機能 が あり ます 。 
< 使用 機種 > 
Ө PC-8801/MK II (テー プ ベ ー ス ) 


注 
9640x200 > КД ЕО CRT, カラ ー が の 


ぞ ま し い 。 
@ 注 : ディ スク を 使う 場合 は , 1440 行 の 配列 。 お よび , 
変数 BRA を 低め に 設定 し ます 。 


使用 方 法 


プリ ンタ EPSON RP-80F/T 


次 元 を シミ ュ レ ー ト する 


投稿 作品 


プロ グラ ム を 実行 きせ る と , 
"Wait a while” 
と 表示 し , タイ トル デモ 画面 の あと 
Q 
AT くだ さい 。 
2 次 元 デ ー タ の イン プッ ト 

初期 画面 が 表示 る れ ま す 。 

id, カー ツル ステ ッ プ (カー ン ソル 移動 
の ステ ッ プ 数 ) を 1 一 40 ま で の 範囲 で 指定 
ES 

画面 の 寺 印 が キャ ラク タカ カー ツル で す 。 
テン キー で 移動 させ て くだ きい 。 ステ ッ プ 
数 を 変 を た いと き に は , HELP キー で ステ 
ДЕО ます と kk S S= 
を 押し すぎ て カー ソル が 止ま ら な い 場 合 に 
も HELP キー を 押し て くだ きい 。 

カー ソル の X, Y 座 標 が 表示 きれ る の て , 
これ を 目安 に カー ソ ツル を 移動 し , 位置 が 決 
まっ た ら 6 RETURN キー を 押し て くだ る 
い 。 最初 の 点 を 打っ た あと , 次 の 点 を 打つ 


»** Data input (Cursor) жеж 7 


ra z  --- Move cursor --- 
789 
га & Coordinates decision 
123 ++- RETURN. 


=== Two dimension data === 
・・ (X= 7@ ,Y=-115) 
[ From 1 to 20 1 


y—— x Y ーー 


Wired frame model 


es 105 ! 1 
85 65 1 ' 
9а 25 ! ' 
70 , -15 ! ' 
3@ , -25 1 ' 

5 251 ' 

5, -%@! ' 
20 ,-105 ! ' 
7@ ,-110 ! ' 
70 ,-115 1 ' 


Step change :--HELF 3 


е * data 


モテ デル 


1984 年 4 月 掲載 


と 2 点 間 が 緑 の 線 で 結ば れ ま す 。 同 じ 手 順 
で 一 筆 書き の 要領 で , 回 転 体 の 断面 図 を 描 
いて ゆく わけ で す ( 図 1 )。 点 の デー タ の 数 
が 多い と 計算 に 時 間 が か か る の が 欠点 で す 。 
そこで, 点 の 数 は 20 個 , 回 転 体 は 30 角 形 く 
らい に 制限 し ます 。 

жор 内 に 入力 し た 点 の X, Y 座 標 デ 
ー タ が 順に 表示 され ます 。 

終了 する と と き は , HELP キー を 押し , 
カー ツル ステ ッ プ 入力 モー ド に も どり ます 。 
ここ で RETURN キー を 押す と 湊 の モー 
ド に 移り ます 。 
€ ROTATION X or Y ? 

X 軸 を 中 心 に 回 転 き する か , Y 軸 を 中 心 
に する か の 選択 で す 。X か Y の どちら か を 
入力 し て くだ さい 。 

@lsitallright Y or N? 

これ で いい の か 確認 で す 。 
表示 条件 の 設定 
@ COLOR (1-7) … ? 


デー タ は No.| の 2 次 元 デ ー タ プリ ンタ の ドッ ト の 関係 で 少し ゆがん で いま す 。 一 一 


Three dimension graphics 


何 色 で 回 転 図形 を 表示 する か を 番号 で 入 
JOHNS 
€ Bracket (2-30) … ? 

何 角 形 に する の か 指定 で す 。 2 一 30 の 間 
で す が 10 角 形 《 らい が ちょ うど いい で し ょ 
の 
€ Size change (Y or N)? 

大 きる を 変え る か どう か の 選択 で す 。Y 
と 答え る と 

Magnification or Reducation 
(M or R) ? 
と た ず ね て きま す 。 拡 大 する と き は M, ff 
小 す る と き は R を 入力 し ます 。 

拡大 は 1 一 5 倍 , 縮小 は 0 より 大 , DX 
満 の 範囲 で 行 を ます 。 それぞれ 数 値 を 入力 
C QN S Vs 
@ Z axis rotation (Deg. ) ? 

Z 軸 を 中 心 に 何 度 回 転 き せる か の 指定 で 

O2 次 元 の 回 転 

e X 軸 中 心 の 回 転 e Y 軸 中 心 の 回 転 

Х=х = x ж005(0) 


Y = y *cos(8 ) =y 


Z= y ж5іп(6) = x xsin(8 ) 


@ 3 次 元 デー タ の 回 転 


ө y pòon 


= x cos の 十 z sinê 


e X 軸 中 心 の 回 転 

Х=х 

Y = y cos@ — z sin の Y=y 
Z = y sinĝ+ z cos の Z = — xsin の 十 z cos の 
e Z 軸 中 心 の 回 転 

X = x соѕ0— y sinê 


= x sin の 十 y cos の 


z=z 
図 3 計算 式 
1180 " --------------------- 
1190 Xxxxxxx 
1200 ° ーーー ニー ニ ニ ミニ ーーー ゴ = ニー ニニ モーー 一 
1210 


1260 NEXT 


1370 ^ жжжжжжж 


1400 xTITLE 


1500 X2=X2+20 
1520 FOR I-1 TO 8 


Title indication xx 


1510 МЕХТ:Ү1=62:Ү2=138:Ү=2 


+, も ちろ ん 0 ~360? ま で の 度数 を 入力 し 
CARES B ФЕ pe. N, Y On] 
転 角度 も 指定 し ます 。 

以上 が 終わ る と 。 まだ 

Is it all right (Y or N)? 
と 表示 る れ , Y を 入力 する と 計算 が スタ ー 
ト し ます ( 図 3 参照 )。 少 し の 間 お 待ち くだ 
きい 。 


完成 図形 ( 図 2 ) を 表示 し た あと , 
END or Make another angle or 
Data change 
と きい て いま す 。 終わ り た いと き は , 同じ 
図形 を ほか の 角度 か 6 見 た いな 6M, 2 次 
元 デ ー タ を 変更 し た いと き は D を も それぞれ 
火力 し て (721500 
E を 押す と プロ グラ ム が 消 を て し まい ま 
す の で , 注意 が 必要 で す 。 


お わり に 
E RES, 


プロ グラ ム の 内 容 に つい て は , フロ ー チ 
ャ ー ト ( 図 4), 変数 表 ( 表 1) な ど を 見 て 
い だ た だ けれ ば 分 か る と 思い ます 。 

な お , プ ブログ ラム 中 の ハイ スピ ー ド クリ 
アス クリ ー ン に は Oh/PC83 年 1 月 号 弓 寺 
氏 の プロ グラ ム を 利用 し まし た 。 お礼 を 申 
EE ば まず 8 


1220 CLEAR ,&HE599 :RESTORE 1270 

1230 DEF USR=&HE569 : DEF USR1=&HE559 :DEF USR2=&H9 
1240 FOR AD=&HE599 TO &HE57F 

1250 READ A$:POKE AD,VAL('&H'*A$) 


1270 DATA F3,3E,37,03,31,21,00,00,39,22,F0,8F , 3E, 5C,21,00 
1280 DATA 00,31,80,FE,06,FA, 4F,ED, 79, ES,ES,ES,ES, ES, E5,E5 
1290 DATA Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5,Е5 
1300 DATA ES,ES,ES,ES,E5,E5, E5,E5,E5,10,DE, 3C,FE,5F,20,D1 
1318 DATA D3,5F,2A,F0,BF,F9,3E, 3F ,D3,31,FB,C9,00,00,00,00 
1320 DATA F3,0B,70,F5,3E,80,D3, 70,CD, 00,80,F1,03, 70, FB,C9 
1339 DATA F3,DB,7?0,F5,3E,80,03,70,21,00,E5,11,00,80,01,80 
1340 DATA 00,ED,B0,F1,D3,70,FB,C9,00,00,00,00,00,00,00,00 


1410 CONSOLE 0,25,0,0:UIDTH 80,25 

1420 A=USR(9 ) : A=USR1( 9 ) : SCREEN 0,3:COLOR 2 

1430 LOCATE 34,10:PRINT'Uait a uhile!':OPTION BASE 1 
1440 DIM X(20),Y(20),TD1(20,31,3),TD2(20,31,3),CS*( 29) 
1450 TZ-2000:PTH-2000:X2-20 


1470 LINE(0,0)-(639,60),3,BF :UINE(0,140)-(639,199),3, BF 
1480 FOR X1=-399 TO 940 STEP 41 


1490 LINE(X1,9)-(X2,69 ) , 1:LINE(X1,199)-(X2,140),1 


1530 LINE(@,Y1-Y)-(639,Y1-Y),1:LINE(9,Y2+Y )-(639,Y2+Y ) , 1 


参考 文献 
| アス キー 出版 「PC-880| グ ラフ ィ ッ クス の すべ て 」 
ж - ВН · гж. UI 
2 ナツ メ 社 , 7РС-8801257 + v2 ХАР 
脇 英世 著 


クリ アス クリ ー ジ 


終了 か 変更 が 


ж TZ, PTH は 奥行 き の 設定 


パイ スピ ビ ピード クリ アズ ク リザ リージ 用 
キャ ラク タ , グラ フィ クス の 座標 値 
漢字 コー ド の デー タ 

ルー プ カ ウ ンタ ー, 配列 の 添え 字 


漢字 コー ド の フラ グ 


EC 終わ りか 。 続け る か の フラ グ 
F 点 か 線 か の 表示 フラ グ 

Sy キー 入力 デー タ 

CST, CST$ カー ソル ステ ッ プ 数 , 入 力 デー タ 


СХ, СҮ 
XOLD, YOLD 
XY$ 
F$ 


キャ ラク タ 座 標 デ ー タ 

グラ フィ ックス 座標 の |! つ 前 の 値 
回 転 軸 フラ グ 

続け る か や りな お し か の フラ グ 


3 次元 表示 


表示 色 の コー ド 値 
角 数 

サイ ズ 変 更 フ ラグ 
拡大 , 縮小 値 , フラ グ 

л の 値 

Z, Y, X 回 転 朋 の ラジ アン 値 
3 次 元 座標 値 の ! つ 前 の 値 
終わ りか , 続け る か 


SC$ 
MR, MR$ 
РА! 


SHEP 
X0, Y0, Z 0 
ЕС$ 


表 1 主要 変数 表 


1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 


Y=Y*1.6 
NEXT 
FOR 1=0 TO 500 


PSET(RND*639,61+RND*78),C:C=(C MOD 7)+1 
NEXT 
CLS:CONSOLE 0,25,0,2:SCREEN 0,0:COLOR 5:Х=222 


FOR I-1 TO 24 
READ K$:K-VALC'&H' *K$) :РОТСХ, 72) ,KANJI(K ) ,PSET, 7,0:Х=Х+8 
NEXT : X=254 


FOR I=1 TO 17 

med K$:K-VAL(C'&H' *K$) :PUTCX,88) ,KANJI CO ,PSET ,7, 0 :X=X+8 

DATA 0154,0168,0172,0165,0165, ` ,0164,0169,0160,0165,016Е,0173,0169 
DATA 016F,016E, ,0167,0172,0161,0170,0168,0169,0163,0173 

ОАТА 0157,0169,0172,0165,0164, ,0166,0172,0161,0160,0165, 

DATA 016D,016F,0164,0165,016C 


A$-' Three dimension graphics" 
B$-'Uired.frame model 
FOR I-1 TO 26 

AAS-RIGHT$(A$,I):LOCATE 0,9:PRINT AA$ 
FOR K-0 TO 50:NEXT 

NEXT 

FOR X=1 TO 27? 

LOCATE X,9:PRINT A$ 

FOR К=0 TO 50:МЕХТ 

NEXT : X=79 
FOR I=1 TO 18 

BB$=LEFT$(B$,I):LOCATE X,11:PRINT BB$:X=X-1 
FOR K=0 TO 50:NEXT 

NEXT 

FOR Х=61 ТО 32 STEP -1 

LOCATE X,11:PRINT B$ 


FOR K=0 TO 50:NEXT 
NEXT 
FOR X=34 TO 46 


READ N$:COLOR 2:LOCATE X,13:PRINT '9':FOR 1=0 TO 100:NEXT 
LOCATE X,13:PRINT ° ':COLOR 6:LOCATE X,13:PRINT N$ 
NEXT:COLOR 7 

DATA B,y,,M,., Y,a,m,a,z,a,k,i 

FOR Y=23 TO 15 STEP -1 

LOCATE 34,Y:PRINT'Hit RETURN  ':FOR 1=0 TO 200:NEXT 
LOCATE 34,Y:PRINT" s 

NEXT:COLOR 4 

LOCATE 34,15:PRINT'Hit RETURN  '; :A$-INPUTS(C1) 

IF АФ=СНЕФ( 13) THEN xDATA.INPUT ELSE 2000 


жОАТА. INPUT 

CONSOLE 0,25:CLS:A=USR( 0 ) : A-USR1(0) : SCREEN 0,3 
VIEUCO,0)-(55,25) :LINECO, 10)-(50,10) , 6:LINEC25,0)-(25,20),6 
СЕТ(17,6)-(32,14),С5% 


A-USR(CO) : A=USR1( 0 ) : SCREEN 0,0 

COLOR 5:1 ОСАТЕ 1,0:PRINT'3x«* Data input (Cursor) эне" 

COLOR 6:LOCATE 8,2:PRINT'--- Move cursor ---':COLOR 4 
LOCATE 1,3:PRINT '7?89':LOCATE 1,4:PRINT''4 6" 

LOCATE 1,5:PRINT “123" 

PUT(14,16) ,KANJI(&H11E ) ,PSET, 7,0 

PUT(0,32 ) ,KANJI(&H11D) ,PSET, 7,0 

PUT( 30 ,32 ) ,KANJIC&H11C),PSET, 7,0 

PUT(14,46) ,KANJIC&H11F),PSET,7,0:COLOR 3 
LINE(0,18)-(6,22):LINE(0,18)-(5,18):LINE(0,18)-(0,21 ) 
LINEC38,18)2-(32,22) :LINEC38,182-(33,18) :LINE(38,182-(38,21) 
LINE(6,48)-(0,52):LINE(0,49)-(0,52):LINE(0,52 )-(5,52 ) 
LINE(32,48 )-(38,52 ):LINE(33,52 ) -( 38, 52 ) :L INE( 38 , 49 ) -( 38, 52 ) 
LOCATE 7,4:PRINT "Coordinates decision" 

LOCATE 7?,5:PRINT"・・・ RETURN. ':COLOR 4 

LOCATE 2,7:PRINT Tuo dimension data ---':COLOR 6 
LOCATE 1,8:PRINT'Nou data ::: (X= 10 ,Y- 10)':COLOR 7 
LOCATE 3,9:РВІМТ "С From 1 to 20 2':COLOR 4 

LOCATE 24 10:PRINT' م‎ y —s X y=" 


FOR Y=11 TO 20 

LOCATE 2,Y:PRINT' | I js 

NEXT 

LOCATE 2,21:PRINT' ———— Aa — — — O. * 1COLOR- 5 
LOCATE 0,22:РВІМТ 'С Step change '-'HELP 2" 
WINDOU(-200,-200)-(200,200):VIEW(240,0)-(639,199) 


LINE(-200,-200)-(200,200),7,B 
LINE(-200,0)-(200,0):LINE(0, -200)-(0,200) 
RESTORE xSEIKO 


FOR C-1 TO 12 

READ X1,Y1,X2,Y2:LINECX1, Y1)0-(X2, Y22,? 

NEXT 

xSEIKO ` 

DATA -5,-150,5,-150, -10,-100,10,-100, -5,-50,5,-50 
DATA -150,-4,-150,6, -100,-9,-100,11, -50,-4,-50,6 
DATA -5,151,5,151, -10,101,10,101, -5,51,5,51 
ОАТА 151,-4,151,6, 101,-9,101,11, 51,-4,51,6 
PUT(191,1)2,KANJIC&H179) ,PSET, 7,0 


PUT(191,101),KANJIC&H130),PSET, 7,0 

PUT(390,92) ,KANJIC&H178),PSET, 7,0 

RESTORE xMAX:X-201:Y-2 

FOR I-1 TO 6 

READ K$:1IF K$-'N' THEN X-374:Y-102:GOTO 2540 
KsVALC'&H' *K$) :PUTCX, YO, KANJICKO ,PSET, 7,0:X-X*8 
NEXT : X=2: Y=92 

xMAX 

DATA 131,139,132,N,131,139,132 
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2590 FOR I=1 TO 8 

2600 READ K$:IF K$-'N' THEN X=167:Y=191:GOTO 2600 

2610 K-VAL(C'&H' *K$) :PUTCX, YO ,KANJI(K ) ,PSET, 7,0:X2X*8 

2620 NEXT 

2630 DATA 120,131,139,132,N,12D,131,139,130 

2640 * 

2650 Move cursor (Make data) 

2660 

2670 xMOVE.CURSOR 

2680 X=210:Y=95:CX=4!CY=10:F=1 : [=0:N=0:EC=0 :PUT(X-8,Y-4 ) , CSX , XOR 

2690 CONSOLE 23,25:0N HELP GOSUB xCURSOR.STEP:HELP ON 

2700 GOSUB xCURSOR.STEP 

Fr 

2720 GOSUB xKEY.IN 

2730 PUT(X-8,Y-4),CSX,XOR 

2740 IF CR$-'4' THEN X=X-CST 

2750 IF CR$-'6' THEN X=X+CST 

2760 IF CR$-'8' THEN Y=Y-CST/2 

2770 IF CR$-'2' THEN Y=Y+CST/2 

2780 IF CR$-'7' THEN X=X-CST:Y=Y-CST/2 

2790 IF CR$-'9' THEN X=X+CST:Y=Y-CST/2 

2800 IF CR$-'1' THEN X=X-CST:Y=Y+CST/2 

2810 IF CR$-'3' THEN X=X+CST:Y=Y+CST/2 

2820 GOSUB xLIMIT:PUT(X-8,Y-4),CS* 

2830 IF CR$=CHR ま (13)THEN I=I+1:X(I)=(X-200):Y(I)=(Y-100)#%2:GOSUB xD2。.DATA 
2840 COLOR 6:LOCATE 14,8 

2850 PRINT USING'(X=WWWW ,Y=####) *$X-200,(Y-100)*2-CY-100)«4 
2860 GOTO 2720 

2870 ˆ 

2880 xCURSOR.STEP 

2890 COLOR 3:LOCATE 0,23:PRINT"[ From 1 to 40:End ・・・RETURN J' 

2900 COLOR 4:LOCATE 5,24:INPUT'Cursor step ・・・ ';CST$:CLS 

2910 IF CST$-'' THEN xAKINA ELSE CST-VAL(CST$) 

2920 IF CST<1 OR CST>40 THEN 2890 

2930 RETURN 

2940 * 

2950 xKEY.IN 

2960 LOCATE 0,24:CR$-INPUT$(1) 

2970 RETURN 

2980 “ 

2990 xLIMIT 

3000 IF Х›392 THEN X=392 

3010 IF X«8 THEN X=8 

3020 IF Y>195 THEN Y-195 

3030 IF Y<4 THEN Y=4 

3040 RETURN 

3050 * 

3060 xD2.DATA 

3070 CY=CY+1:IF CY=21 THEN CY-11:CX-17 

3080 COLOR 5:LOCATE CX,CY:PRINT USING’ #### ,4444';X-200,(Y-100)0x2-(CY-100)x4 
3090 IF F=1 THEN PSET(X(I),Y(I)),4:GOTO 3110 

3100 LINECXOLD*1,YOLD)-CXCI)*1,YCI)) ,4:N=N+1 : IF №19 THEN жАКІМА 

3110 XOLD=X(I):YOLD=Y(I):F=0 

3120 RETURN 

3130 2 

3140 xAKINA 

3150 HELP OFF 

3160 COLOR 6:LOCATE 5,25:PRINT'Rotation (X or Y) ? '`;:XY$=INPUT$(1) 
3170 IF XY$-2'X' OR XY$-'x' OR XY$-'Y' OR XY$-'y' THEN 3180 ELSE 3160 
3180 COLOR 7:LOCATE 1,25:PRINT'Is it all right (Y or N) ? ';:F$=INPUT$(1) 
3190 CLS:IF F$-'N' OR F$-'n' THEN COLOR 6:GOTO 2120 

3200 IF F$-'Y' OR F$-'y' THEN xD3.DATA ELSE 3180 

3210- * 

3220 < 

3230 ' 

3240 * 

3250 ˆ 

3260 *D3.DATA 

3270 CONSOLE 0,25:CLS:MR-0:A- USR(O) :A=USR1 (0) 

3280 CLS:COLOR 5: LOCATE 3,0:PRINT ‘Three dimension graphics':COLOR 4 
3290 LOCATE 7,2:PRINT 'Uired frame mode!':COLOR 6 

3300 LOCATE 0, 4:РВІМТ" < Display mode & data 55" 

3310 FOR Ү=5 TO 21 

3320 LOCATE 0,Y:PRINT'! js 

3330 NEXT 

3340 LOCATE 0,22:PRINT * —— — — — — — — — ——— ———3À*1C0LOR 4 

3350 LOCATE 1,17:PRINT '3e000000O0O0OO0O0000000000000009€" 

3360 LOCATE 1,21:PRINT '33G000000000000000000000O0000C" 

3370 VINDOU( -200, -200)-(200,200) : VIEM( 240 , 0 ) -( 639, 199 ) 

3380 LINE(-200,-200 )-(200,200 ) ,?,B 
3390 ° 

3400 * Display mode & data 
3410 

3420 1:LOCATE 2,5:PRINT'Blue 
3430 2:LOCATE 15,5:PRINT'Red-- 
3440 3:LOCATE 2,6:PRINT'Pink-- 
3450 4:LOCATE 15,6:PRINT'Green 
3460 S:LOCATE 2,7:PRINT'Light blue-5* 

3470 6:LOCATE 15,7:PRINT'Yellou 

3480 T:LOCATE 2,8:PRINT'Uhite 

3490 LOCATE 5,9:PRINT'Color (1-7) ·:· · 

3500 LOCATE 22,9:1NPUT COL:IF COL<1 OR COL>7 THEN. 3490 

3510 LOCATE 4,11:PRINT'Bracket (2-30) ・・・ 

3520 LOCATE 23, 11:INPUT BRA:IF ВЕА<2 OR BRA>30 THÉN 3510 

3530 LOCATE 4, 13:PRINT* Size change (Y or N) ? ';:SC$- INPUT$(1) 
3540 IF SC$-'Y' OR SC$-'y' THEN 3560 

3550 IF SC$-'N' OR SC$-'n' THEN 3650 ELSE 3530 

3560 COLOR 3:LOCATE 5,14:PRINT'Magnification or" 

3570 LOCATE 5,15: PRINT` Reduction (M or R) ? * į IMR$=INPUT$(1) 
3580 IF MR$-' м" OR MR$-'m' OR MR$-'R' OR MR$-'r' THEN 3590 ELSE 3560 
3590 LOCATE 5, 14:PRINT" ы 

3600 IF MR$-' R" OR MR$-'r' THEN 3630 

3610 COLOR S:LOCATE 1, 15:PRINT* Magnification ・・・ (1-5) xi 
3620 LOCATE 25,15:1NPUT MR:IF MR<1 OR MR>5 THEN 3610 ELSE 3650 
3630 COLOR 5: LOCATE 1,15:PRINT'Reduction ODE фе a 
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LOCATE 25,15:1NPUT MR:IF MR<9 OR MR>1 THEN 36360 
COLOR ?:PAI-3.1416 


LOCATE 1,18:1NPUT'Z axis rotation (Deg.) ';B:B-PAIxB/180 
LOCATE 1,19:1NPUT'Y axis rotation (Deg.) ':;H:H-PAIXxH/180 
LOCATE 1,20:INPUT'X axis rotation (Deg.) ';P:P-PAIxP/180 


CONSOLE 23,25 

LOCATE 1,24:PRINT'Is it al! right (Y or М) ? ';:F$=INPUT$(1) 
IF F$z'Y' OR F$-'y' THEN xMAKE.DATA 

IF F$2'N' OR F$-'n' THEN 3280 ELSE 3710 


Make data 


xMAKE . DATA 

CLS:COLOR 2:LOCATE 9,24 

PRINT Wait a while!" 

IF OLD.BRA =BRA THEN wROTATION ELSE OLD.BRA=BRA 

IF ХҮФ='Ү' OR XY$-2'y' THEN xMAKE.DATA2 

FOR J=1 TO BRA 

RAD=PAI*2*J/ (BRA) 

FOR 1=1 TO N*1 
TD1(I,J,1)=X(I):TD1(I,J,2)=Y(I)*COS(RAD):TD1(I,J,3)=Y(I)wSIN(RAD) 
NEXT 

NEXT : BRA=BRA+1 

FOR I=1 TO N+1 

FOR Z=1 TO 3 
TD1(I,BRA,Z)=TD1(I,1,Z) 

NEXT 

NEXT:GOTO *ROTATION 


#MAKE . DATA2 

FOR J=1 TO BRA 
RAD=PAIw2wJ/(BRA) 

FOR I=1 TO N+1 
TD1( エ ,J,1 )=X( 1 )*COS(RAD ) : TD1( エ 。J,2)=Y( 1 ):TD1( 1,J,3)=X( 1 )xSIN(RAD ) 
NEXT 

NEXT : BRA=BRA+ 1 

FOR 1=1 TO №1 

FOR Z=1 TO 3 
Т01(1,ВВА,2)=Т01(1,1,2) 
МЕХТ 

NEXT 


XROTATION 

FOR 1=1 TO N+1 

FOR J=1 TO BRA 
X2TD1CI, J, 12 : Y TD1( I, J 
TD2(1,J,1)=X:TD2(I,J,2 
NEXT 

NEXT:GOTO xMOVE.2 


:GOSUB xMOVE.1 


, 
) 


xMOVE.1 
XX=XXCOS(B )-YXSIN(B ) : YZXXSINCBO*YXxCOSCB) : X2XX 
XX2XXCOS CH) *ZXSINCHO) :Z72-X*S INCPO *ZXCOSCH) : Х=ХХ 
YYzYxCOSCP)-ZX*SINCPO :Z=YxSIN(P)+ZxCOS(P ) : Yz YY 
RETURN 


xMOVE.2 

IF MR-1 OR MR=9 THEN xDISPLAY.1 

FOR 1=1 TO N*1 

FOR J=1 TO BRA 
TD2CI,J,1)-TD2(I, J, 1) «MR 
TD2€1,J,2)-T02(1, J, 2) MR 
TD2(I,J,3)-TD2(CI, J, 3) «MR 


Display 


XDISPLAY.1:CLS 
FOR J=1 TO BRA-1:F-8 
FOR I=1 TO N+1 
X=TD2(I,J,1):Y=TD2(I,J,2):Z=TD2(I,J,3) 
IF Р=@ THEN PSET(PTH*xX/(TZ-Z),PTH*Y/(TZ-Z)),COL:GOTO 4390 
LINE(PTHxX0/(TZ-Z0) ,PTHxY0/(TZ-Z0) )-(PTHxX/(TZ-Z) ,PTHxY/(TZ-Z)) ,C0L 
ХО=Х:ҮО=Ү:20=7:Ғ=1 
МЕХТ 
МЕХТ 


xDISPLAY.2 
FOR I=1 TO N*1:F-0 
FOR J-1 TO BRA 
X-TD2CI,J,12:Y-2TD2CI, J, 22 :2-TD2( 1, J,3) 
IF F=9 THEN PSET(PTHxX/(TZ4Z) ,PTH*Y/(CTZ-Z2)) ,COL:GOTO 4490 
LINE(PTHxX0/(TZ-Z0 ) ,PTHxY0/(TZ-Z0 ) )-(PTHxX/( TZ-Z ) ,PTHxY/(TZ-Z ) ) ,COL 
X0=X : YO=Y : Z0=Z :F=1 
NEXT 
NEXT 


COLOR 7:LOCATE 9,23:PRINT "End or Make another angle or 
LOCATE 80,24:PRINT'Data change( E or M or D ) ? "; 
EC$=INPUT$(1):IF EC$-'M' OR ЕС%= "т" THEN GOTO 3270 

IF EC$-'D' OR EC$-'d' THEN xDATA.INPUT 

IF EC$-'E' OR EC$-'e' THEN «FINE ELSE 4550 


€ E E E E DE E E E E E E E E E E E E E E EE EE EEX EKE End. ¥ ¥ € E E E E E E E E E E E E E E E E E E E € E E € € 


*F INE 
CONSOLE 0,25,0,0:CLS:COLOR 2:LOCATE 35,10 
PRINT'Good lack'':A-USR(0):A-USR1(Q):FOR I=0 TO 2000:NEXT:A-USR2(0) 
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は じ め に 
ке 


АРАУ CIDE SDT Be 
こと が ある よう な 気 が す る な あと 思い つつ 
ワー プロ に 向かっ て この 原稿 を サ っ せ と 打 
ち 込 ん で お り ま す 。 デ ィ ッ プス ィ イッ チ な ら 
ぬ ね ディ スク スイ ッ チ と いう の は 見 た こと が 
ある けれ ど , クイ ッ ク ロ ー ダ と いう の は あ 
まり 記憶 に な いか ……,。 を えい, iil, 
シン ョ ー ト ン ロ ジ ラム 募 集 に 出し て し まえ …。 

そもそも この プロ グラ ム を 作ろ うと いう 気 
に な っ た 理由 は , PC-8801MK II を 使用 る 
れ て いる 皆さま は ご 存 知 の こと と お も いま 
す が , N。。-DISK BASIC を 立ち 上 げ る と き 
に 時 間 が か か っ て いら いら する か ら で す 。 
DISK BASIC の 方 は 小気味 よい 音 を 響 か 
せ て 立ち 上 が っ て くれ ます が , N。。-DISK 
BASIC の 方 は アク セス ラン プ が 点灯 し た 
まま 不気味 な 沈黙 が 続き , アン フォ ー マ ッ 
ト の ディ スク を 入れ て し まっ た か な と か 
シス テム ディ スク を 壊し て し まっ た か な , 
な ど と と 冷や 汗 を か く こ と が し ば し ば で す 。 
と くに , 私 の よう に リセ ッ ト ス ィ イッ チ を 多 
用 (好む と 好ま ざる と に か か わら ず ) する 
人 間 に と っ て , シス テム 立ち 上 げ の 待ち 時 
間 が 少な いと いう こと は 非常 に あり が た い 
SEGI 


プロ グラ ム の 説明 
к я 


まず , リス ト の BASIC プロ グラ ム を 入 
力 し て て くだ さい ご 実行 きせ て メジ メッセージ 
お り 操 作 し た ら 処 理 が 終了 し , Na。-BASIC 
シス テム ディ スク の クイ ッ ク ロ ー ダ 版 が で 
き ド 上 がり ます この ステ ペ ベ デル スク を : ド 
ライ ブ 1 に セッ ト し て , リセ ッ ト ボ タン を 
押す と N モ ー ド , Nas モー ド に 関係 な 
N。。-DISK BASIC が 高速 で 立ち 上 が り ま 
す 。 こ の プロ グラ ム の 機能 は トラ ッ ク 0, 
セク タ 1 の IPL を 書き 替え た , さら に トラ ッ 
ク 3 (裏面 の トラ ッ ク 1), セク タダ 1 一 2 に 
IPL の 高速 バー ジョ ン を 付加 し ます 。 

トラ ッ ク 0 — 3 は シス テッ 予約 領域 で , 
FAT に は 了 予約 コー ド で ある FE が 書き 込 
まれ て いま す が , 実際 の ディ スク コード は 
トラ ッ ク 0 一 2 の 中 に 納まっ て お り , トラ 
ッ ク 3 に は 何 も 入 っ て いま せん 。 し た だ が っ 
て , この 領域 は 自由 に 使用 し て か まわ な い 
わけ で す 。 メ ッ セ ー ジ が 気にいら な い 方 は , 
行 番号 700 の 最後 の ゲー タ “2А” d “00” に 
ETRE 

誌面 の 関係 で アモ ンプ レ リ ス ト は 掲載 びき ませ 
AD, お お ま か な 説 明 を 加え て お きま す 。 

リセ ッ ト 後 , ト ラッ ク 0, セ クタ 1 の IPL 
が 0C000H 番地 か ら 始 まる メモ リ 上 に ロ 
ー ド され , IPL に 実行 が 移さ れ ま す 。 を そし 
T, モー ド の 識別 を 行い , Naa モ ー ド に 設定 


er を つく る 
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後 , トラ ッ ク 3, セク タ 1 一 2 の 高速 IPL 
が 0C000H 番地 か ら 始 まる メモ リ 上 に ロ 
ー ド され , 実行 が 移さ れ ま す 。 

この 部 分 は 厚 か ま し くも , 自分 の 能力 と 
職業 分 野 を 顧み ず 作成 中 で ある 汎用 DOS 
の 一 部 で ある 1 クラ スタ ロー ドル ー チ ン と 
その 下位 サブ ルー チン を 転用 し た も の で す 。 
ディ スク と 本 体 間 の デー タ を 転送 に は 1 バ 
イト ハン ド シ ェ イク を 用 いて いま す が , R 
分 な 処理 を 行っ て いな いた め , ROM 内 の 
1 セク タリ ー ド ・ ラ イト ルー チン を 使う よ 
り も は る か に 高速 で す 。 高速 IPL は ディ ス 
クコ ー ド を メモ リ 上 に ロー ド 後 , ディ スク 
ュー ド 内 の 初期 化 ル ー チ ン へ 処理 を 移し ま 
す 。 デ ィ ス ク バ ー ジ ョ ン の 違い は と 〈 に 問 
題 な いと 思い ます 。 
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100 * 


110 ' Quick Loader Generator 

120° 1984/6/7 by H.Sameshima 

130-' 

140 DEFINT A-Z 

150 UIDTH 80,20 

160 CONSOLE 0,25,1,1 

170 PRINT 'xxx Generates Automatic Quick Loader *xxx' 

180 PRINT 

190 PRINT 'Mount N88 System Disk on Drive 1" 

200 PRINT "Then Hit LRETURNJ Key" 

210 A$-INKEY$ : IF A$45CHR$C&HD) THEN 210 

220 PRINT "Workings" 

230 * 

240 B=VARPTR(#0)+9 

250-3 

260 GOSUB*BOOT. STRAP . LOADER 

2707 

280 GOSUBXHIGH.SPEED. IPL 

290 “ 

300 PRINT 'Completed." 

310 END 

320 * 

330 * 

340 xBOOT.STRAP.LOADER 

350 RESTORE 450 

360 FOR D-B TO B+&H3A 

370 READ A$ : POKE D,VALC'&h'*A$) 

380 NEXT 

390 FOR D=B+&H3B TO B-*&HFF 

400 POKE 0,0 

410 NEXT 

420 DSK0$ 1,0,0,1 

430 RETURN 

440 "ーーーーーーーー tri 8c.1 ——— eee OE 
450 DATA 3A,02,00,FE,A0 , 28,08, AF ,D3,31 , 3E , CB, C3,FD, 77,21 
460 DATA 00,C1,01,01,03,3E,00,32,BA,EC,AF,3C,E5,C5,CD,9A 
470 DATA 36,C1,E1,38,0A,24,0C,79,FE,03,CA,00,C1,18,E6,3A 
480 DATA B4,EC,3C,32,B4,EC,FE,03,20,E0,C9 

490 * 

5002 

510 wHIGH.SPEED.IPL 

520 RESTORE 660 

530 FOR D-B TO B*&HFF 

540 READ A$ : POKE D,VALC'&h'*A$) 

550 NEXT 

560 DSKOS$ 1,1,1,1 

570 FOR D=B TO B*&H4B 

580 READ A$ : POKE D,VALC'&H'*A$) 

590 NEXT 

600 FOR D=B+&H4C TO B+&HFF 

610 POKE 0,0 

620 NEXT 

630 DSKOS$ 1,1,1,2 

640 RETURN 

650 '--------- t S: GED [xs ERI. uU rr 
660 DATA 21,4Е,С1,С0,42,С1,АҒ,32,В4,ЕС, 21,00 ,83,16,00,06 
670 DATA 06,CD,DA,C1,38,1E,14,D5,11,00,08,19,D1,10,F2,CD 
680 DATA 00,84,3E,30,D3,F3,21,FF, 7F,2B, 7C, B5,20,FB, AF ,D3 
690 DATA F3,C3,00,88,34,B4,EC,3C,32,B4, EC,FE,03,3E,00,38 
700 DATA D0,C9,7E,FE,00,C8,FE,22,C8,CD,0D,3E,23,18,F3,2A 
710. DATA. 25,2^,20,41,75, (4, 6F,6D, 61,74,69,63,20,515 75,69 
720 DATA 63,6B,20,4C,6F,61,64,65,72,20,2^,25,2^,0D,0A,31 
730: DATA 39,38,34,2F,35,2F,32,39,20,62,79,20,48,2bE,53,61 
740 DATA 6D,65,73,68,69,60,61,00,F5,DB,FE,E6,02,28,FA,F1 
750 DATA 18,10,F5,3E,0F,D3,FF,DB,FE,E6,02,28,FA,3E,0E,D3 
760 DATA FF,F1,D3,FD,3E,09,D3,FF,DB,FE,E6,04,28,FA,3E,08 
770 DATA D3,FF,0B,FE,E6,04,20,FA,C9,3E,0B,D3,FF,DB,FE,E6 
780 DATA 01,28,FA,3E,0^,D3,FF,DB,FC,F5,3E,0D,D3,FF,DB,FE 
790 DATA E6,01,20,F^,3E,0C,D3,FF,F1,C9,C5,D5,F5,7^,CD,2A 
800*DATA-C2,;F1,;CD,;EB;C1;D1,€1;C9, C5; E5, F5, 3E,02,CD,92,C1 
810 DATA 3E,08,CD,88,C1,F1,F5,CD,88,C1,78,CD,88,C1, 79,CD 
820 DATA 88,C1,CD,38,C2,38,1E, 3b5E,03,CD,92,C1,06,08,C5,06 
9S30*DATA- 00,CD;B9,61,77,23,10;F9,C1; 10,;F 3, CD, 38,C2,38,05 
840 DATA F1,E1,C1,18,21,F1,E1,C1,18,20,F5,CB,3F, 47, SE, 00 
850«DÀTÀA-12;17417,17;3C;4F,F1,C9,F513E,06,CD;92;C1; CD, B9 
860 DATA C1,CB,47,20,04,F1,37,3F,C9,F1,37,C9 
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先月 号 の マシ ン 語 特集 で も 述べ た よう に , 
本 誌 で は マシ ン 語 の ダン プリ スト を 毎号 掲 
ROCES, Z Ü У) 
スト を 打ち 込む 手間 を 軽減 する た め の ツ ーー 
ル を 紹介 し よう 。 

誌 8 月 号 に 発表 る れ た PC-800IMKK 
П, 8801 モニ タ に 組み 込ま れ て いる 機能 も 
ある が , 短い プロ グラ ム な の で 入力 専用 ツ 
ー ル と し て 手軽 に 利用 し て いた だ きた い 。 


は じ め に 


講座 」 が 掲載 され て い 


1984 年 10 月 掲載 


る が , 初心 者 の みな ら 6 ず , 内 蔵 モ ニタ で の 
16 進 数 入力 は 骨 の 折れ る 作業 で ある 。 
この ツー ル は マシ ン 語 入力 を サポ ー ト す 


る も ので, 次 の 特徴 を も っ て いる 。 
① マ シン 語 を テン キー か ら 6 入力 で き る 。 


マシ ン 語 入力 と 同時 に チェ ッ ク サ ム を 表 


示す る 。 
③16 バ イト 単位 の 縦横 す ム (Oh / PC 統一 
チェ ッ ク サ ム ) と 8 バイ ト 単 位 の 2 タイ 


929@ 
92А@ 


i5000-o07-2TXCc 


ES 
DF 
98 


SE 
DF 
ЗА 
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プ を セレ クト で きる 。 
④ リ ロケ ー タ ブル で ある 。 


プロ グラ ム の 
使用 法 


リス ト 1 が PC-8001 用 , リス ト 2 が PC 
-8801 用 ど だ 。 リ スト 1 は N-BASIC モー ド 
T, PC-8001MK II, PC-8801 で も 使用 可 
能 で ある 。 リ スト 1 を 例 に , 打ち 込み 方 法 
を 説明 し よう 。 
MON Q es 
S9000 © 
と し て 9000 番 地 か ら 
3E DD… 
と 打ち 込み , すべ て 打ち 込ん だ どら セ ー ブ し 
て チェ ッ ク サ ム を 確認 する 。 桑 走 の 危険 が 
ある の で セー ブ は 必ず 確認 の 前 に ! 
起動 方 法 は リス ト 1 が 


G9000 © 
リス ト 2 が 
GE000 © 


ET Е@С@ : 4D 28 10 FE 5@ 28 5С FE 53 01 

IJ |Eepe : 37 7e C9 01 2C 03 FF 08 16 10 

ス EE : FE 28 28 07 01 77 02 FF CD 37 

te E9F9 : 03 FF CD 37 79 15 7A A? 20 F1 

2 SUM : 1E 9C 5B 74 72 67 9E C1 E8 B1 
® 

(LO |ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 

Р. [E100 : од 01 pa @1 FF @1 co 02 FF FE 

С |Ei10 : @@ CC F8 F2 FE 20 20 СӨ ЗА 89 

(AM. |E120 : 01 18 C8 01 DC 02 FF 08 СВ 54 

| d, |E139 : EB ЗЕ 01 32 F4 F1 ЗА 89 EF FE 

“В елдә : 1C 92 FF CD 8A 6E CD 37 70 CD 

В E1580 : @1 CC 02 FF CD 8A 6E CD 37 70 

: E160 : E8 7D FE 00 20 E3 D5 01 64 01 

O  |Ei17e : 03 SE De CD 37 7e CD ВА 6E 18 

4 E180 : CD 37 7@ 16 00 7D 01 2D 01 FF 

|  |E190 : ЗА 89 EF FE 28 28 97 01 C4 01 

用 | E140 : E1 CD 9A éF CD 44 70 7A А? 28 

72 |E1B80 : 23 18 F1 01 84 02 FF ЗЕ 1D CD 

Е1С@ : CD 83 5E 01 0B 02 FF 38 FA FE 

Е10@ : FE 20 28 07 FE 1D 28 0D 57 18 

Е1Е@ : CD 29 71 18 69 01 CE 00 FF 38 

E1F9 : 29 71 10 FB 2B 18 BC 01 08 00 

SUM : 94 AE 55 SE 91 82 27 DE 4A 72 

ADRS : *0 +1 +2 +3 +4 +5 +6 +7 +8 +9 

E200 : 03 01 10 80 ED 42 ES FD El CD 

E210 : 18 4А 7A CD 29 71 CD A0 SE 77 

E220 : 02 FF 7E CD 83 SE 01 A8 01 FF 

E230 : 1C 28 0B FE 20 28 07 FE 1D 28 

E240 : 29 71 CD A0 5E 77 01 F5 01 FF 

E250 : 64 00 FF 38 07 CD 44 70 18 9B 

E260 : CD 29 71 10 FB CD 59 71 FE 7F 

E270 : FE 03 C8 ЗА 89 EF FE 28 28 21 

E280 : 37 70 01 49 00 FF CD 59 71 FE 


で ある 。 こ れ で , タイ トル メッ セー ジ の 表 
示 と 
= 
の プロ ンプ トマ ー ク が 現れ る は ず だ 。 以下 
に 使用 で きる コマ ンド を 示し て お こう 。 
W コ マン ド 「widgth」 
表示 画面 が 40 文 字 モ ー ド な ら , 
W 8 
80 文 字 モ ー ド な ら , 
W 4 
と し て みよ う 。40 文 字 な ら 680 文 字 , 80 文 字 
な ら 40 文 字 た な る 。 これ は , チェ ッ ク サ ム 
に は 大 きく 分 け て 2 通り の 方 法 が ある た め 。 
じ ね が っ て , 40xérse КВ, 
番地 の 上 位 十 番地 の 下位 + 8 バイ ト 
=SUM 
と が る 
80 文 字 モ ー ド は 16 バ イト 縦横 サム タイ プ 
だ が , と りあ え ず 80 文 字 に する 。 
M コ マン ド 「 メ モリ ダン プ 」 
PC-8801 版 な ら ば , 


図 1 テン キー の 配置 


と する 。 こ の プログ ラム が ダン シブ され る 。 
チェ ッ ク サ ム は 合っ て いる か な ? 

次 に RETURN キー を 押す と , 続き の 
256 バ イト が 表示 され る 。 | 一 | また は DEL 
キー を 押す と , 16 バ イト を 表示 し て チェ ッ 
クサ ム の と ころ で カー ツル が 点滅 する 。 こ 
れ は S コマ ンド に ジャ ンプ し た た めで チ 
ェ エッ クサ ム が 違っ て いる と き な ど は , カー 
ツル を 移動 し て 変更 する こと が で きる 。 

今度 は STOP キー を 押し て みる 。 

> 
が 表示 きれ, 再度 コマ ンド レベ ル に も と る 。 


ME000 Q 
PC-8001 版 な ら ば , 

M9000 © 

E290 : C? FE 03 

ini E2A9 : El CD 9А 

Е2В@ : 18 A6 CD 

Е2С@ : 28 02 AF 

Е20@ : 21 00 00 

E2E9 : 19 ЗЕ 2D 

E2F9 : 03 CD 8А 


99 CC F8 F2 CD : D8 
37 70 ЗА 89 EF : СЗ 
E3 FD E1 01 2E 34 
89 EF FE 28 28 BD 
63 04 D? BA 29 : CD 85 
+B +C +0 +Е +F :SUM 
CS РЕ 10 01 ЕЗ : 6C 
FE 28 20 B9 16 : ?B 
01 D4 02 FF D8 : BE 
28 0С 2E 00 01 : 7С 
SE DALES ED Ei i-E? 
89 EF FE 28 28 : 07 
D1 CD 8A 6E CD : 03 
01 84 02 FF D8 : 74 S 
04 2B 14 18 FS : BD 
CD 350 ES FD : 22 
01 8C 02 FF 15 : 2C 
ТАЦ 29 71 YE 1: 59 
C8 FE 1C 28 42 : 3A 
ЗЕ 1C"CD 29 71 + 85 
06 03 ЗЕ 1D CD : 2B 
89 EF FE 28 28 : AD 
80 DD B9 4E AD : 01 
+В +C +D +E +F :SUM 
70 01 10 02 FF : 8C 
21 02 FF 01 89 : 32 
FA FE 03 C8 FE : CF 
SF 18 01 78 CD : 16 
5D 02 FF 23 01 : 55 
9B 06 03 3E 1C : EC 
3A FE 1D 28 36 : 61 
FE 00 20 1C CD : 6E 
28 CD FE 1D 28 : 3C 


C8 CD 3? 70 01 C4 00 FF CD 37? 79 ES FD : 20 
6F 18 AF 2B 06 05 ЗЕ 1D CD 29 71 10 FB : 81 
29 71 18 A1 70 Еб OF FE 00 28 OF FE 08 : 8B 
C9 3A 89 EF FE 28 28 02 AF C9 3? C9 DD : F9 
54 15 1E 80 18 06 11 80 FF ES DD E1 DD : 56 
96 4B CD 29 71 10 FB ЗА F4 F1 FE 00 28 : 8C 
6E DD ES CD ЕӨ F2 DD 7E OE FE 99 28 OF : C? 
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それ で は , 40 文 字 モ ー ド に し て みよ う 。 

W 4 
と する 。 そして, 再度 この リス ト を ダン プ 
する 。 

PC-8801 版 な 6, 

ME000 © 

PC-8001 版 な 6, 

M9000 〇 
で 8 バイ ト デ ー タ 16 個 , つ まり 128 バ イト が 
ダン プ さ れる 。 

ここ で RETURN キー を 押す と, KD 
128 バ イト が ダン プ き され る 。 そ し て , スペ ー 
スバ ー を 押す と 次 の 8 バイ ト が ダン プ さ れ 
る 。 [=] と DEL キー の 操作 は , 80 文 字 モー 
ド と 同じ で , S コマ ンド へ ジャ ンプ する 。 
Palga (БА) 22292] 

P コ マン ド だ け は 終了 番地 も 入力 する 。 

РЕ000, E4FF © 
T, E000 番地 か 6 БАРЕ 番地 まで を プリ ン 
ドア ウト する 。 そし て , この コマ ンド も 80 
文字 モー ド で 16 バ イト 縦横 タイ プ , 40 文 字 
モー ド で 8 バイ ト タ イ プ の チェ ッ ク サ ム と 
ASC II ダン プ を 行う 。 PC-8801 版 で は 画面 
表示 と プリ ント アウ ト を 同時 に 行う が , PC 
-8001 版 で は 画面 表示 し な い 。 こ れ は , PC 
内 部 の サブ ルー チン の 違い に よる も の 。 
S コマ ンド 「 セ ッ ト メ モリ 」 

通常 は S ら コマ ンド だ け で 十分 な の で , し 
っ か り と 覚え て ほし い 。 


W 8 
で 80 文 字 モ ー ド に し て , 
ЅС00А Q 


と する と , C000 番地 か 6 C00A 番地 まで を 
表示 し て , C00A で カー ツル が 点滅 する 。 通 
常 の 縦横 タイ プ で は 00 か ら 6 FF まで の チェ 
ッ ク サ ム を 求め る の で , この 機能 を つけ て 
お いた 。 それ で は , カー ツル を C000 番地 ま 
RW we sawa ra 

また は DEL キー を 使う 。C000 番地 
に も どっ た だ ろう か ? それ で は , 入力 し 
で みよ 。 う 。 

S コマ ンド で は , テン キー が 図 1 の よう 
に な る 。 1 文字 入力 する と , チェ ッ ク サ ム 
と ASC II ダン プ が 変わ る 。16 バ イト の 入 
力 が 終わ る と , チェ ッ ク サ ム の と ころ で カ 
ー ソ ツル が 点 減 し て いる の で , サム を 確認 し 
T, 違う 場所 は [一 | また は DEL キー で も ど 
し て 訂正 する 。 正 し けれ ば , ほか の キー を 
押し て 次 の 番地 へ 進 。 
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また , 内 容 を 変更 し た 《 く な い ぃ 場合 は [=| 
また は スペ ー ス バー を 押し て 送る 。 

は 次 の 4 ビッ ト へ , スペ ー ス バー は 次 
の 番地 へ 進む 。 

こう し て , 入力 が 進み COFF 番地 を 入力 
し チェ ッ ク サ ム を 確認 する と, 縦 サム が 表 
示 き れる 。 これ を チェ ッ ク し , KOD C100 番 
地 か ら ふ だ た だ だ た だ び 入力 が 始ま る 。40 文 字 モ ー 
ド の 時 も , 縦 サ ム が 表示 されない だ け て で 使 
い 方 は 同じ で ある 。 ま た だ た , どの モー ド の 時 


で も STOP キー を 押す と コマ ンド 待ち レ 
ペル に も と どり, こ ご で さ 65) に STOP キ ーー を 
押す と PC の モニ タ へ も どる 。 


リロ ケー タブ ル に 
つい て 


リロ ケー タブ ルプ ログ ラム と は どの 番地 


; PC-8991 テン ソウ 9 35 


9999 ORG 


8500 210090 LD 
8503 1100C0 LD 
8506 91C194 LD 
8509 EDBO 

850B C3665C Je 


8599H 


HL , 9999H 
DE , 9C999H 
BC ,94C9H-8FFFH 


5C66H 


:" PC-8001 007-97“ JP.CALL.PRINT 
" by JAIPFX 
0000 ORG OF2EOH 
; アフ カーラ 0-6 
Е2ЕО АМСНОВ: 
F2EO DDE1 POP IX ; PCC7* 02^ 561273-) Э п-к” 
F2E2 DDE9 JP en ; RETURN 
F2E4 ORG ОҒ2ҒОН 
:7277- 3 ロー- ト * 
F2FO BOUNC: 
F2FO DDE1 POP ІХ ; PC 3 о-к" 
F2F2 DDES PUSH IX ; РС ^ -7 
F2F4 0009 ADD IX,BC IX レシ + BCL“ 
F2F6 DDE9 JP — (0 : 9 フル - チ ン ^ JP 
} JPA`229- ロ - ト * 
F2F8 JBOUNC: 
F2F8 DDE1 POP IX ; PC Э ロ - ト * 
F2FA DDO? ADD IX,BC ; IXL2` + вс” 
F2FC DDE? JP (IO ; L-49 ^ JP 
F2FE - ORG OCOOOH 
е. ; J07-57" & JP 
x 
` | | C000 011800 LD BC,RCALL-TBI ; RCALL 77° キョ リラ 547) 
СООЗ CDF8F2 CALL JBOUNC ; RCALL ^ JP 
C006 TBI: 
; リロ 9- タ フル PRINT 
с006 RPRINT: 
C006 CDEOF2 CALL ANCHOR ; TB2 ノ ポッ フチ 3 モト メル 
C009 TB2: 
Coo9 DD7EOD LO A,CIX+DATA-TB2); DATA 2 フチ 3 7472 
COOC FEOO CP оон 
COOE C8 RET 7 ; OOH 35 RETURN 
CDA640 CALL 40AeH { Abv* Э PRINT 
0023 INC IX PIX = 1X+1 
18F3 JR TB2 
; PRINT ノ DATA 
DATA: 
OC206F68 DM OC" oh!PC"00 
21504300 
s" UD)-92" É CALU 
СО1Е RCALL: 
COIE О1Е2ЕЕ LO ^ BC,RPRINT-TB3 ; RPRINT 37° / キョ リラ 7472 
C021 CDFOF2 CALL  BOUNC ; RPRINT Э CALL 
CO24 C3665C  TB3: JP ` 5C66H ; MON 2 ネット 29- ^ 


に Re ドド も て も 走る デジ ョ グラ タム の ここ sE て , 
本 プロ グラ ム も マシ ン 語 の 使用 可能 領域 
(Oh!PC84 年 9 月 号 120 ペ ー ジ の 「BASIC と 
マシ ン 語 共存 テク ニッ ク 」 を 参照 ) で あれ 
ば と どこ に で も ブロ ッ ク 転 送 で きる よう に な 
っ て いる 。 実際 に 試し て みよ 5. まず RC: 
8801 で は モニ タ に M コ ユマ ンド が ある の で 
この プロ グラ ム を あら か じ め ロ ー ド し て お き 
ME000, E4C2, C000 Q 
t C000 を 開始 アド レス に 転送 する 。 
GC000 © 
で 起動 する は ず だ 。 

一 方 , N-BASIC モー ド の モニ タ に は M 
コマ ンド が な い の で , リス ト 3 を 打ち 込ん 
で 使っ て ほし い 。 

G8500 Q 
で 同じ 〈 C000 番地 か ら 使 用 で きる よう に 
ブロ ッ ク 転 送 し て くれ る 。 リ スト 3 で は 

8503 1100CO_ 
の 波線 部 で 転送 先 の アド レス を 指定 し て い 
る (上 位 , 下位 が 送 に な っ て いる こと に 注 


意 )。 こ こ を 変え れ ば , 転送 先 を 変更 で きる 。 
ЖЕ, リロ ケー タブ ル の テク ニッ ク に つ 
いて 説明 し よう 。 ご 承知 の よ うに, Z-80 で 
は リロ ケー タブ ルコ ユ コール, ある い は ジャ ン 
プ な どの 命令 は 用 意 き る きれ て いな い 。 そこで, 
この 命令 に 見 合う ルー チン を 自分 で 作る 必 
要 が ある 。 

リス ト 4 に 示し た プ ブログ ラム が リロ ケー 
2 コール に た 当たる ルー カン だ AY 
ク に 注目 し て みて ほし い 。 リ ロケ ー タ ブル 
に する だ ため に は , ブロ グラ ム 自 身 が どこ の 
番地 に ある か を 常に 知っ て お く 〈 必 要 が ある 。 
©з Ty UV uel, xcd 
ー を コー ル す る と CALL ХоОЖОЖЊ (0 
スト 4 で は C009 番地 ) を IX レジ スタ に 入 
れ て も どっ て 〈 く る 。 こ の 番地 を 基 に し て , 
プリ ント デー タ の 番地 を 計算 し て 出力 する 。 
о РБ ЗВО 
vay XE 

サブ ルー チン の 番地 

CALL 文 の 次 の 番地 


1000 CLEAR 300,&H8FFF 
1010 REMOVE : DEFINT A-Z : PRINT CHR$(12) 
1020 PRINT ° マラ ンコ " 7-3 J ®-7" ----- 4" 
1030 PRINT ` マンコ" テ "ー タ / ü-M ーーーーー 2° 
1040 PRINT : INPUT ` A"X3 4 Э 327259"94 ';1 
1050 IF I>2 THEN ВЕЕР : GOTO 1040 
s 1060 PRINT : INPUT ° "%47" No 1 or 2 ';DN 
J 1979 IF DN>2 THEN BEEP : GOTO 1060 ELSE DN$=HEX$(DN)+":" 
x 1980 PRINT : MOUNT DN : IF I-2 THEN 1240 
А | 1090 ° 
Lt 1100 PRINT ° --- 3573" 7*-9 / t-7" --- ° : PRINT 
Б 1110 INPUT ` start address ` ; FADD$ : FADD=VAL(`&H`+FADD$) 
> | 1120 INPUT ` end address ' ; EADD$ : EADD-VAL('&H'«EADD$) 
м | 1130 INPUT ° file пате ; FILES : FILES-DNS4FILES 
P 1140 OPEN FILE$ FOR OUTPUT AS #1 
C 1150 FOR I-FADD TO EADD 
25 | 1160 MDAT = PEEK(ID 
8 | 1179 PRINT #1, MDAT 
0 1180 NEXT 
о 1190 CLOSE 
1 1200 PRINT : PRINT 'files ° : FILES DN 
マ 1210 BEEP 1 : PRINT "save 7297) "` : ВЕЕР 9 
X | 1220 REMOVE : END 
Si 1230 “ 
ОЛ | 1240 PRINT 'files ` : FILES DN : PRINT 
語 1250 PRINT ` --- マンコ" 7"-2 J ロー ト *" --- ^ : PRINT 
[1] | 1268 INPUT ` start address ` ; FADD$ : FADD-VAL('&H'*FADD$) 
+ 1270 INPUT ` file name ` ; FILE$ :FILE$=DN$+FILE$ 
、 | 1289 OPEN FILE$ FOR INPUT AS #1 


1290 IF EOF(1) THEN 1350 


& 1300 INPUT 41, MDAT 
+ 1310 POKE(FADD) , MDAT 
| 1320 FADD = FADD +1 

1330 GOTO 1290 
1340 ' 
1350 CLOSE 
1360 ВЕЕР 1 : PRINT : PRINT ° 
1370 REMOVE : END 
1380 ' 
1390 ' マミ ンコ" 2 t-7" & 0- b 


load 17) ° : ВЕЕР 9 


y JA1PFX 


を 入れ て , バ ウン サ ま だ は ジャ ンプ バッ ウン 
サ を コー ル す る 。 バ ウン サ で は 次 に プログ 
ラム カウ ンタ を IX レジ スタ に ポッ プ し 。 
も し リロ ケー タブ ルコ ユ コール な ら ば ふた だ た だ たび 
プッ シュ , リロ ケー タブ プル ジャン プ な ら ば 
КОЗЕ се С CINTA 
に BE レジ スタ を プシ ス し て 。 で の ジブ ラス 
され た 値 に 示 る れ た 番地 に ジャ ンプ する 。 
要する に , Z-8033 CALL 文 に で く わす 
と も どり 番地 も ス タッ ク に 積む こと を 利用 
し だ た わけ だ 。 こ の プロ グラ ム で は 一 時 的 に 
BC, IX レジ スタ を 使っ た の で , も し 必要 な 
ら 6 退 避 ふ る せれ ば よい だ ろう 。 ま ただ, アン カ 
ー バ ウン サ を あら か じ め 絶 対 番地 に ロー ド 
する 必要 が ある 。 


お わり に 
Е Sd 


PC-8001 DHA, BASIC 上 で マシ ン 語 
の ロー ド / セ エー ジ が で t OOT, I7 2E 
を シー ケン シャ ルフ ァイル と し て ロー ド / セ ー 
ブ す る プロ グラ ム ( デ ィ ス ク 版 ) を リス ト 5 
と し て あげ て お 《。 こ の プロ グラ ム を 走ら 
せる と ロー ド か セー ブ か を 尋ね て くる の で , 
どちら か 選ぶ 。 ス ター ト ア ドレ ス を 入力 す 
る と ファ イル 名 を きい て くる の で , 適当 な 
ファ イル 名 を 入力 すれ ば よい 。 
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жна en PC-8001/MKTI, PC WUMKI c O 


ファ イル 検索 


Ey am S > — : 
ABD. 


E FILES 


1984 年 11 月 掲載 


投稿 作品 
MN À og ale 


は じ め に 
E а. 


「 デ ィ ス ク 」 と 「 テ ー プ 」, みな る ん は ど ち 
ら を お 使い で すか ? 最近 の ディ スク の 普 
及 に は 目 あ を みはる も の が ある よう で す が , 
テー も 忘れ て も ら っ て は 困り ます 。Oh! 
PC の 読者 の みな る ん の 中 に も テー プ を おぉ 
使い の 方 は 大 勢い らっし ゃ る こと と 思い ま 
Fa 

と ころ で , テー プ を 使用 し て いる みな さる 
ん は いっ た だ たい , どの よう に 管理 を な る っ て 
Jos aA SBILES コマ ンド 
を 使え ば リス ト を 即座 に 見 る こと も で きま 
UN TTD, どう し て も こま め に 
記録 を と っ て お か な いと あと で 苦労 する こ 
と に な り ま す 。BASIC プロ グラ ム だ け の 場 
合 は 問題 は な い の で す が , 
タフ ァイル と な る と 話 は 違っ て くる わけ で 
す 。 こ ん な と き に 役立つ の が この 「TAPE 
FLIES」 な の で す 。 

8000 シ リー ズ か ら 8800 シ リー ズ ま で 幅広 
(利用 で きま す の で , テ ー プ を ゎぉ 持ち の み 
な る さん, 是非 1 度 お 試し くだ きい 。 


マシ ン 語 や デー 


プロ グラ ム の 概要 
— SUR. 


で は , 本 プロ グラ ム の 概要 に つい て 説明 し 
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СД ТАК 5 

「TAPE FILES」 と は , を その 名 の と お り 
FILES Л аЬ Лл zi- 
記録 きれ て いる ファ イル を 検索 し ,CRT 画 
面 に リス ト を 表示 する わけ で す 。 ディスク 
を 使っ た 場合 , ID お よび FAT が ある の で 
即座 に リス ト を 出力 する こと が で きま す 
25 テーd プ の 場合 シー ケン シャ ル 記 録 で 
ある た め テ ー プ を は じ め か ら 最 後 ま で 読む 
必要 が あり ます の で , スピ ー ド の 点 を 考え 
れ ば 比較 に は な り ま せん が , ファ イル に 関 
連 し た 情報 を 同時 に 表示 する た め , その 利 
用 価値 は 大 きい と 思わ れ ま す 。 

本 プロ グラ ム で 検索 可能 な ファ イル は 以 
下 の 4 種類 で す 。 
① BASIC プロ グラ ム 
⑨② マ シン 語 プ ログ ラム 
(27^ — At УЮЙ 
@PROT ソー ス フ ァ イル 
対象 機種 は PC-8001/MK II (N80-BASIC 
も 可 ), PC-8801/MK II (N - BASIC の 
み )。 

435, ①ー③ は PC の 標準 フォ ー マ ッ ト 
を 対象 と し て ぉ り , 特別 な が フォ ー マ ッ ト や 
ボー レー ト の 異な る も の に つい て の 検索 は 
不可 能 で す 。④ は PROT (PC-8001 用 マシ 
ン 語 ツー ル ) を 使用 し て いる の で , PROT 
自身 の 作る ツー ス フ ア イル も 検索 し ます 。 


プロ グラ ム の 説明 


まず , リス ト 1 を ご 覧 くだ きい 。 使用 番 
地 は E300H か ら 6 E5F9H で , ス タック エリ 
ア お よび ワー クエ リア は 未 使用 ほ を な っ て い ぃ 
る F2COH か ら 6 F2FFH を 使用 し て いま す 。 

メイ ン ル ー チ ン で は 画面 初期 設定 な よび 
各種 イニ シャ ライ ズ を 行っ た の ち , ファ イ 
ル ヘ ッ ダ の 先頭 文字 を CMT より 読み 込み , 
ファ イル の 種類 さと の 処理 ルー チン へ ジャ 
ンプ し ます 。 CUT, ELST Pasa 

ー が 生じ だ た 場合, エラ ー 表 示 ル ー チ ン に 
も どり エラ ー コ ユー ド を 表示 し , ファ イル 検 
索 を 継続 し ます 。 

処理 ルー チン は CMT より 1 文字 ずつ デ 
ー タ を 読み 込み , 各 フ ァイル 特有 の ヘッ 
ダダ ・ フ ォ ー マ ッ ト と 照合 し な が ら 6 アド レス , 
メモ リサ イズ な どの デー タ を ワー クエ リア 
Wi Z. し ます 。 HBO, ウイ ルレ モン 
ド ま で 正常 に 読み 込め 1 れ ば, ワー クエ リア 
内 の デー タ を 画面 に 表示 し , メイ ン ル ー チ 
ン に も どり ます 。 な おぉ お, 途中 で エラ ー が 発 
生 し た 場合 は エラ ー 表 示 ル シー チ ン へ ジャ ン 
i E FÊ 

画面 表示 な よび CMT 関 係 の 一 部 は 
ROM 内 の サブ ルー チン を 使用 し て いま す 。 
逆 ア セン ブル する と 分 か り ま す が , ROM 
内 の サブ プル ー チ ン は リー ド エ ラ ー が 生じ た 
と き 寺 まだ は STOPI や を 押 た と きる に 
BASIC, また は モニ タ に ジャ ング し て し ま 
いま す 。 

CMT か ら 6 読み 込ん だ デー タ は メモ リ に 
は ロー ド し て いま せん 。 こ れ は , デー タ 転 
送 に USART を 使用 し , また , ボー 
が 低 じ た めで , デー タ 入 力 の イン ター バル 
が 約 18m/ 秒 あり , この 間 に 多 く の 処理 が で 


レー ト 


1 フロ ー チ ャ ー ト (メイ ン ル ー チ ン ) 図 2 フロ ー チ ャ ー ト (BASIC プ ログ ラム 処理 ルー チン ) 


| WIDTH 40,25 


画面 ・ フ ァ ン クシ ョ ン キ ー 設 定 | چ‎ л CONSOLE 0,25,1,0 
KEY2, "GE300" + СНЕ $ (13) 


SDS E DS 人 (3 


diss 


perm senos | 1 B: 


| 


ファ イル 名 読み 込み ・ 表 示 6 バイ ト 長 


ОЗН 10 バ イト 


スタ ッ ク ボ ポイ ンタ セッ ト 
р бар. бе E 
タイ トル メッ セー ジ 表 示 


先頭 ポイ ンタ (アド レス ) ここ て 読み 込む アド レス は 次 行 の 先頭 ア 
読み 込み お よび メモ リア ドレ ス な の で 上 位 の 値 か ら I6K/ 32K を 判 
ドレ ス 補正 先頭 アド レス EL, 実際 の メモ リア ドレ ス を 得る 。 
スト ア (I6K…CO2IH, 32K--8021H) 


ファ イル 別 処理 ルー チン 
へ ジャ ンプ 


1-Е 393—572 行 番号 リー ド お よび スト ア 
ОЗН BASIC (先頭 行 番号 ) 
ЗАН - 機械 語 


асно 


ВН - PROT 


ESC 


次 行 の 先頭 アド レス ま て で 現 
在 行 の デー タ 読 み と ば し 


三 0 (プロ グラ ム エ ン ド ) 


サー チカ ウン ト ・ マ シン 語 マ ー ク 表示 2 М: 


行 番号 リー ド お よび スト ア 
(最終 行 番号 ) 


デー タ 表示 

・ 先頭 行 番号 

・ 最終 行 番号 

・ メ モリ サイ ズ 

(エン ドア ドレ スー スタ ー ト アド レス ) 


デー タバ イト 数 リー ド > 通常 FFH (255) 


= =0 て プロ グラ バエ ンド 3 
デー タ 表示 


#0 
デー タ 数 分 読 ・ 先 頭 ア ドレ ス 
Uoc) AERA. 最終 アド レス 
お よび アド レス イン クリ メン ト 


T 
MAIN 


239 


(DBASICZn 774 (3 デー タフ ァ ィ ル 
pU e ea LE EA V ORDRE а 


[ ヘッ タダ | ファ イル 名 | 2025226 | エン ド マ ー ク [52 [5-5 el = |2c 上 ----] 7-5 [ор [ол 
ヘッ ダ : ОЗН 10 バ イト ヘッ タダ :9CH 6 バイ ト 4 
ファ イル 名 1 6 バイ ト (6 バイ ト に 満た な いと き は 残り が 00) デー タ 1 各 デ ー タ が 2CH(^・” ) で 区 切ら れ て 記録 され て いる 
プロ グラ ム 本 体 E B54, 55 の 内 容 で 示す アド レス か ら EFA0, Al で デー タ の 終わ り は 0DH, 0AH, と な っ て いる 。 
示す アド レス マイ ナス | まで が 区 切り な し て 連続 し て 数 値 デ ー タ で あっ て も 画面 表示 と 同じ フォ ー マ ッ ト で ある 。 
書き 込ま れ て いる 。 最 後 の 3 バイト は 00H で ある 。 文字 列 の 前 後に ダブ ルク オー テー ショ ン (CHR$ (&H22) ) 
エン ド マ ー ク :00H 9 バイ ト を 付加 すれ ば 2CH(“・” ) も 文字 列 の 一 部 と し て 扱わ れる 。 
PRINT#—I, A: の よう に セミ コロ ン で 終わ っ た と き は 最後 の 0D, 


(2) マ シン 語 プ ログ ラム NM 0A は な い 。 こ の 場合 INPUT #— | で 読め ず が , エラ ー と な る 。 


(C フ 
3A | Hi == шт Jg [sur]. оро ا‎ YZAZ7 {Jk 


し 先頭 ブロ ッ ク ター リー デー タブ ロッ ク 1-1 2,6702 -] 
4387072 : 識別 コー ド 3AH に 続き , プロ グラ ム の 開始 アド レス 
の 上 位 ・ 下 位 ・ チ ェ ッ クサ ム が 書き 込ま れ て いる 。 チ 1 リード 数 ーー - デ ー タ プロ ッ ク ーーー 一 」 
ェ ッ クサ ム は 次 の 計算 式 に よる 。 ッ ダ ・B9H 10 バ イト 
SUM = 0 一 (( Hi 十 LOW ) MOD2 56) ファ : 30 バ イト (30 バ イト に 満た な いと き は , 残り が 00H ) 
・ 識別 コー ド 3AH に 続き , デー タ の バイ ト 数 (1 バイ ワー ド : デー タブ ロッ ク の バイ ト 数 で 上 位 ・ 下 位 の 順 
ト ) ・ デ ー タ チェ ッ ク サ ム が 書き 込ま れ て いる 。 デー タゴ ブロ デー タ (ソー スリ スト | 行 分 ) が орн て 区 切ら れ て 
デー タ 数 は 通常 255 バ イト (FFH) で ある が , 最終 の 書き 込ま れ て お り デ ー タ ブロ ッ ク の 終わ り は 00H 
プロ ッ ク で は 255 バ イト 未満 と な る こと も ある 。 
チェ ッ ク サ ム は デー タ の バイ ト 数 か ら デ ー タ の 終わ り 
の 合計 。 
エン ドブ ロッ ク : 識別 コー ド 3AH に 続き, 00H が 2 バイ ト 続 く 


表 1 ファ イル フォ ー マ ッ ト 


きる た だめ な の で す 。 しかし, シリ アル / フ パラ 
レル 変換 を 行う と この よう な 余裕 は な く な 
り ま す 。 

本 プロ グラ ム は PC-8001MK II の Nso- 
BASIC で も 使用 で きる よう , E600H の 前 
ЕДЮ $T. だ だ も し n 
ケー タブ ル で は な い の で , 別 な アド レス に 
移植 する に は 再 ア セン ブル する 必要 が あり 
ま 28(2 ミ た イレ フ ラキ ネー マッ ト に つい て は 表 
1 を , メイ ン ル ー チ ン , 処理 ルー チン に 
いて は 図 1 - 3 を 参照 ) 。 


+E +F SUM :0123456789ABCDEF : 
ЕЕ СО GA dé As 
CD C9 :# Ith を Q-9^7: 
75 OF 1X%A1 ! MAORAu : 
55-Е5 СЛ! ` ам: 
СА СС О FEN :^ 4 M7: 
31 OC 4 УЛАА (+OFA1 

ЕВ ES F¥RD(ALN АЛУ 
CA 5F ХА IMAACRAA 
ES CD 9$ Е へ jmDL 4^ MA: 
28 D2 = — ^ub0A^8b07 (Хх: 
30 B3 ! OCBS^8AD5: 
A4 23 "xe ++! ^EBD .#: 
CD D3 :^t^ M"OM^BAD K ^t: 
21 02 : ^87 MERON ‘#5 YI : 
CD 13 : WA hxX%A -A : 
5B F4 ТЬ 一 人 hx+%OC B: 


*E +F :0123456789ABCDEF : 
22 F8 :587O0R^ -^A x ##' 

FO F2 :my=4A8MXC3 1 eo" Xt: 
ES D2 :A MAX sO AE 
C202 ic オー ツ r ロ ゴ AEMXc キ ミツ レミ 
E5-D2 :3^ERXci7( GOAEMX : 
な DE :с1-0# ñ thxX%A2 °; 
48 CD i>HAU ^ & EFA2^5H^: 
L2. (t il 7 47 NjhXciYu: 


使用 法 
к з 


ЕЗ СО :3^ AT AukXc4A: 
ES D2 :8MXc4EL ゥ goM_AEMX : 
60 69 :c4 7( ## Sk Vi: 
13 Е5 ¿OR FP/r4^ MJA -^ h; 
05 CD AIHW 7 Á 6^: 
21 00 :JXc オ リオ へ Ai 


それ で は , 使用 方 法 に つい て 説明 し て い : ЕЕ 22 LOU ERN EE es: 


Ea rs 18 E4 (NH の , Ph 4: 
š ET Е +Е t D 
本 プロ グラ ム は , すべて マシ ン 語 で 構成 ЧЕТЕ d« 4f CAT 1 
c ЗЕ ОС JU FON A» : 
きれ て いま す 。 最初 に , x Е1 0С :п@ёче( пече" ^R : 
— Fé DA 4D SAT AUR Citi 
CLEAR300,&HE2FF © ES 20 04 39714010 жа! : 
と し だ の ち モ ニタ に 移り , リス ト 1 を 入力 ies dp ps a 
E5 18 
yta aga < ааг) 70 65 
30 31 Files ( PC-8001: 
GE300 Q@ 74 61 › шш i CNT Stai 
CAR—MU&3T, ki, 途中 で プレ ー ク 42 За 00 20 09 : GE300 "Bi: 
/ : 2 29 00 
し た と き は モニ タ に も どり ます が , ファ ン 5 00 00 


クシ ョ ン キ ー[| f・2 | を 押す と スタ ー ト で 
きま す 。 
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次 に , 画 面 お よび | f・2] を イニ シャ ライ 
ズ 後 , タイ トル が 表示 きれ ます 。CMT の 
(また は | LOAD |) ボタ ン を 押 
L, 任意 の キー を 押し て くだ さい 。 検索 が 
開始 きれ る と, 順次 テー プ に 記録 きれ て い 
る ファ イル が 表示 きる れ ます 。 表 示 内 容 は 以 
ド の よう に な つ : で いま すす 5 
БЕ л ысуу шс О 

ТАРЕ FILES 
の 表示 
RSE 

ファ イル リス ト は 各 フ ァイル に 関す る 情 
報 と と も に 画面 に 表示 され る 。 フ ァイル リ 
スト の 先頭 の 数 字 は サー チカ ウン タ の 値 。 
検索 中 に 各種 エラー チェ ッ ク を 行っ て お り , 
エラ ー が 検知 きれ る と エラ ー コ ユー ド を 表示 
する 。 


A 


BASIC プ ログ ラム 
B : dump 100, 270, 950…… 
o @ 29 0 09 
csave "dump" に よる ファ イル 
① BASIC プロ グラ ム 
② フ ァイル 名 
プロ グラ ム の 先頭 行 番号 
《④ プ ログ ラム 最終 行 番号 
メモ リサ イズ 
最後 の テキ スト ポイ ンタ を 含ん だ プ 
ログ ラム の 所 要 メ モリ サイ ズ 。 具 体 的 
に は ЕВ54, EB55 の 内 容 で 示す アド レ 
ス か ら EFA0, EFA1 の 内 容 で 示す ア 
ドレ ス - 1 まで の バイ ト 数 。 


B マシ ン 語 プロ グラ ム 


M : E00H, EOFFH 
o о @ 
өөө WE000, EOFF C に よる ファ イル 
① マ シン 語 プ ログ ラム 
プロ グラ ム の 先頭 アド レス 
プロ グラ ム の 最終 アド レス 


デー グン テイル 


D: 3 
© © 
көөнө PRINT#-1, A($), B($) 


C($) に よる ファ イル 


① デ ー タ ファ イル 
OFAR 
文字 デー タ , 数 値 デ ゲー タ の 合計 。 

PRINT#- 1 文 の 書き 方 に よっ て は 両 
者 を 明確 に 識別 で き な い の で 一 律 に カ 
ウン ト し て いる 。PRINT#- 1 文 が 何 
回 か 繰り 返る れる と き は , その 回 数 文 
HUD : ※※ が 表示 る れる 。 


PROT ソー ス フ ァ イル 


P: tapechecker 63, 02DAH 
Q © Ge 
①PROT ソ マソ ー ス ファ イル 
② フ ァイル 名 
ファ イル の 行 数 
《④ メ モリ サイ ズ 


テキ スト エリ ア の 先頭 か ら テ キス ト 
エン ド (00) まで の バイ トト 数 。 


а エラ ー コ ー ド 


① リ ー ド エラ ー (жж, RE) 
テー プ の デー タ が 正常 に 読め ゆな いこ と 
を 示す 。※※ で 表示 る れる 値 は USART 

の ステ ー タ で あり , 次 の 意味 を 持つ 。 
10…… オー バー ラン エラ ー 


ヘッ ダ エ ラー (HE) 

ZFA MEI =- (FE) 

ファ イル は それ ぞ れ 特有 の ヘッ ダ を 持 
b, デー タフ ォ ー マ ッ ト も 異な る 。 CMT 
か ら 6 入力 さ れる デー タ が ヘッ ダ ELTE 
め ら れ な いと き に ヘッ ダ エ ラー を , また 
規定 の フォ ー マ ッ ト に 合っ て いな いと き 
に ファ イル エラ ー を 表示 する 。 
③ フ ァイル の 途中 か ら 検 索 を 開始 し た と 
SP 何ら か の エラ ー を 生じ た と き は へ 
ッ ダ の 検索 の か ら 始ま きる の で , ファ イル 中 
の デー タ を ヘッ ダ の 先頭 と みな し て し ま 
$50), < タダ エ ラー まだ は ファイ ル エ 
ラー が 繰り 返し 表示 され る こと が ある 。 
まだ た だ, テー プス ター ト 直 後 で われ ば , テ 
ー プ 走行 が 安定 する まで リー ド エ ラ ー が 
表示 る れる こと が ある 。 
〈④ テ ー プ の ギャ ッ プ 部 分 (ファ イル の な 
の 5 は リー ドー ラニ の 生 ДИ, 
プロ グラ ム 中 で 無視 する 。 


な お , 途 中 で ESC キー を 押す と CMT を 
止め , 初期 画面 の 状態 に も どり ます 。 ま ただ た, 
STOP キー を 押す と PC の モニ タ に 復帰 し 
45 

本 プロ グラ ム で は , CMT か ら 6 読み 込ん 
だ デー タ を メモ リ に は ロー ド し な い の で 
ほか の プロ グラ ム が メモ リ 内 に あっ て も 使 
用 する こと が で きま す 。 しかし, ディ スク 
シス テム で は 使用 する こと は で きま せん 。 
ディ スク を 接続 し て いる と き は , ディ スク 
の 電源 を 切っ て リセ ッ ト 後 , ロー ド し て さく 
だ さい 。 


お わり に 
ab Baci Rs. 


EPIT L Tk k 5 uq 本 ブロ グラ 
ム で は , ファ イル に 関す る 情報 も 得 ら れ ま 
す の で , 単なる ファ イル リス ト と は 違っ た 
応用 範囲 が あり ます 。 

#7: 3? = УД 7-4 зер duco 
PRINT#-1 文 当たり の デー タ 件 数 ほそ の 
繰り 返し 回 数 が 分 か る の で , ロー ド す る プ 
ログ ラム を 容易 に 作る ゐ こ と も で きる の で す 。 
また , BASIC プ ゲロ グラ ム の アペンド を 行う 
と きも 利用 で きる と 思い ます 。 

本 プロ グラ ム で は , NEC 純正 の 3 種 の フ 
ァイル と プロ ッ ト ソ ツ ソース ファ イル を 検索 し 
ます が , ほか の ファ イル を 検索 する に は , 
自分 で フォ ー マ ッ ト を 調べ る 必要 が あり ま 
す 。 最 初 に 示し た フォ ー マ ッ ト に 対し て , 
ヘッ ダ の コー ド や , 文字 数 を 変え た 程度 の 
も の で あれ は 簡単 に わか り ま す が , 
USART (8251) の コマ ンド イン スト ラク シ 
ョ ン を 変更 し た も の で は , 大 変 な 作業 に な 
っ SC じまい ます. 

本 プロ グラ ム は バッ クア ッ プ を 作る こと 
が 目的 で は あり ませ ん の で , プログ ラム の 
か か っ た ファ イル に 対し て は エラ ー コ ー ド 
を 連発 し ます 。「 テ ー プ が 悪い 」 な ど LRA 
点 さ きれ な いよ うつ け 加 えて お きま す 。 
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ピッ トイ メー ジイ ラス ズ スト ツ ー ル 


1984 年 3 月 掲載 


投稿 作品 


は じ め に 
Eo л 


PC-8001 の グラ フィ ッ ク モ ー ド は 最大 
で 160X100 ド ッ ト で す 。 こ れ で は ビッ トイ 
メー ジブ プリ ンタ に 出力 させ る と せい ぜ い 名 
素 大 の 絵 に し か な り ま せん 。 を そこで, 拡張 
キャ ン バ ス に 画面 シフ クト し な が ら 6 絵 を 描く 
と いう 方 式 で , は が き 大 ( 図 1 参照 ) の イラ 
スト を プリ ント アウ ト で きる ツー ル を 作り 
76923 


操作 法 


で は , 具体 的 に この プロ グラ ムツ ー ル の 
使い 方 を 説明 し まし ょ 5. 

まず , プロ グラ ム が ロー ド さ れる と 画面 
は クリ ア さ れ , 作業 メニ ュー が 表示 され ま 
d 

1 を 選択 する と , Draw モー ド で す 。 


eDrawt-—F 


ディ スプ レイ 中 央 に ドッ ト が 1 つ 出 ます 
OC, 図 2 の よう な キー 操作 で , 絵 を 描い 
TRIO. H, V で 縦横 の 座標 が 示さ きれ 
duis 
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ここ で 注意 する こと は , Draw モー ド で 
描く 画面 の 6 倍 の 大 きる まで 画面 を セー ブ 
で きる こと で す 。 後述 する シフ ト 機 能 を 使 
отс, 画面 を シ を フト し な が ら 6 描く わけ で す 。 

ペイ ント する と き に は , ドッ ト を 塗り つ 
ぶし た だい 閉 曲 線 の 中 へ 移動 し て か ら P を 押 
u k. 

作業 が 終わ っ た ら テ ン キ ー の 0 を 押し , 
Draw モー ド を 抜け て メニ ュー に も どり ま 
す 。 

ここ で , 描い た 絵 の メ モリ 転送 。 デ イス 
ク な ど へ の セー プ ブ が で きま す が , これ は あ 
と で 説明 し ます 。 


@Clear 


描い た 絵 が 気に入ら な い 場 合 は , メニ ュ 
ー モ ー ド の 2 で 画面 を クリ ア で きま す 。 
念 画面 の デー タ の セー プ ブ , ロー ド 

描い た 絵 の 画像 デー タ を ディ スク に セー 
プー ローR ず る 選 き は 使い まず お 5 

メニ ュー の 3 を 選択 する と , 


Data file Name= ? 
と た ず ね て くる の で , 6 文字 以内 で 名 前 を 


図 1 拡張 ディ スプ レイ キャ ン バ ス 


指定 し て くだ きい 。 3 分 間 で セー プ ブ で きま 
す 。 ロ ー ド は メニ ュー の 4 か ら , 見 だい 画 
面 の ファ イル 名 を 入力 し ます 。 

ロー ド す る と , 拡張 キャ ン バ ス の 一 部 が 
画面 いじ っ ぱい に 表示 る きれ ます 。 つ まり , M 
面 上 に は 全体 像 の 6 分 の 1 が 表示 る れる だ 
け で す の で , 全体 像 を つか むために は シフ 
ト 操作 を し ます 。 


Memory 
モー ド 


セー ブ と は 別に , 画面 の データ を メモ リ 
に 転送 する 機能 が あり ます 。 メ ニュ ー モ ー 
ド の 7 で す 。 画 面 上 の デー タ を 瞬時 に 転送 
Ex eot 


M 
^ 


LN HEC NUM a RE 


エー 中 > コウ 


м 


1) 
А 
ト 
1 


| l куттин ———— C EC E 


10 REM Post Card (972° #) 
20 REM サク セイ ・・・ K.Harada 1983% 5 月 
30 CLEAR 300,&H9BBF:GOSUB 1070 


40 DEF USR9=&H2BEE :DEF USR1=&H2BC9 :DEF USR2-&H9BCE:DEF USR3-&H9CFA:DEF USR4=&H9D 
ad USRS-&H9D2F:DEF USR6=&H2D57 : DEF USR?-&H9D?F:DEF USRB=&H92DAF : DEF USR9-&H9D 
50 DEF FNPA (X,Y,C)=USR9(X+USR1( Y )+USR2(C) ) 

60 WIDTH 80,25 

70 CONSOLE 0,1,0,0 

89 COLOR 0,0,1 

90 PRINT CHR$(12) 

100 REM memory clear 

110 U=USR3(1) 

120 H-0:V-0:POKE &H9EFE,&H@:POKE &H9EFF,&H9F 

130 LOCATE 8,0:PRINT STRING$(80, ° °) 

140 LOCATE 0,0:INPUT `w Drau(1),Clear(2),Saue(3),Load(4) ,Print(5),End( 6) , Memory( 
T),Shift(8) ・・" 3S 

150 ON S GOTO 160,550,570 , 669 , 799 , 869 ,929 , 959 

160 REM === Drau = 

170 X-80:Y-50 

180 LOCATE 0,0:PRINT STRING$(80,' °) 

190 LOCATE 0,0:PRINT "mode: drau';TAB(40); 'Hz';H;'Vz';V 

200 PSET (X,Y) 

210 IF INP(1)-&HFE THEN GOSUB 319:GOSUB 470:FOR N= 
220 IF INP(0)-&HFB THEN GOSUB 339:GOSUB 489:FOR 
230 IF INP(9)=&HBF THEN GOSUB 359:GOSUB 499:FOR 
240 IF INP(0)-&HEF THEN GOSUB .379 :GOSUB 599:FOR 
250 IF INP(1)-&HFD THEN GOSUB 390:GOSUB 519:FOR 
260 IF INP(9)=&HF7 THEN GOSUB 419:GOSUB 529:FOR 
270 IF INP(9)=&HFD THEN GOSUB 439:GOSUB 539:FOR 
280 IF INP(9)=&H7F THEN GOSUB 459:GOSUB 549:FOR 
290 IF INP(4)=&HFE THEN X=X-1:C=0:Z=FNPA(X,Y,C): 
300 IF INP(9)=&HFE THEN 130 ELSE 210 

310 IF INP(9)=&HBF THEN YzY-1:RETURN 

320 IF INP(8)=&HBF THEN PRESET(X,YO:YzY-1:RETURN ELSE RETURN 

330 IF INP(9)-&HBF THEN YzY*1:RETURN 

340 IF INP(8)=&HBF THEN PRESET(X,Y):YzY*1:RETURN ELSE RETURN 

350 IF INP(9)=&HBF THEN X-X*1:RETURN 

360 IF INP(8)-&HBF THEN PRESET( X,Y ) :X=X+1 :RETURN ELSE RETURN 

370 IF INP(9)-&HBF THEN X-X-1:RETURN 

380 IF INP(8)-&HBF THEN PRESET(X,Y):X-X-1:RETURN ELSE RETURN 

390 IF INP(9)=&HBF THEN X-X*1:YzY-1:RETURN 

400 IF INP(8)=&HBF THEN PRESET(X。Y ) :X=X+1 : Y=Y-1 :RETURN ELSE RETURN 
410 IF INP(9)-&HBF THEN X=X+1 :Y=Y+1 :RETURN 

420 IF INP(8)=&HBF THEN PRESET(X,Y ) :X=X+1 : Y=Y+1 :RETURN ELSE RETURN 
430 IF INP(9)-&HBF THEN X=X-1 : Ү=Ү+1 :RETURN 


TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
TO 20:NEXT N:GOTO 190 
*1:GOTO 190 


メデ デデデ デデデ 
ビビ ロビ ビビ ビビ ロビ 


M uw won H H NH 


440 IF INP(8)=&HBF THEN PRESET(X,Y):X=X-1:Y=Y+1:RETURN ELSE RETURN 
450 IF INP(9)-&HBF THEN X-X-1:YzY-1:RETURN 

460 IF INR(8)-&HBF THEN PRESET( X。Y ) :X=X-1 :Y=Y-1 :RETURN ELSE RETURN 
470 IF Y<4 THEN BEEP :Y=Y+1 :RETURN ELSE RETURN 

480 IF Ү›99 THEN BEEP:YzY-1:RETURN ELSE RETURN 

490 IF X>159 THEN BEEP:X-X-1:RETURN ELSE RETURN 

500 IF X<9 THEN BEEP:X-X*1:RETURN ELSE RETURN 

510 IF Х>159 OR Y<4 THEN BEEP:X-X-1:Y-Y*1:RETURN ELSE RETURN 

520 IF X>159 OR Y>99 THEN BEEP :X=X-1 :Y=Y-1 :RETURN ELSE RETURN 

530 IF X<9 OR Y>99 THEN BEEP:X-X*1:Y-Y-1:RETURN ELSE RETURN 

540 IF X<9 OR Ү<4 THEN BEEP :X=X+1 :Y=Y+1:RETURN ELSE RETURN 


550 REM === Clear 
560 PRINT CHR$(12):GOTO 140 
570 REM Save 


580 REMOVE:MOUNT 1 

590 LOCATE 0,0:PRINT STRING$(80,' '):LOCATE 0,0:LINEINPUT ‘Data File Name -';0$: 

LOCATE 40,0:PRINT 'Hz';H;'V-';V:LOCATE 60,0:PRINT "Data 7 save シテ イマ ス " 

600 OPEN D$ FOR OUTPUT AS #1 

610 FOR I-&H9F00 TO &HCBFF 

620 A-PEEK(CI) 

630 PRINT #1,А 

640 NEXT I 

650 CLOSE W1:REMOVE 1:GOTO 130 

660 REM Load === 

670 REMOVE : MOUNT1 

680 H-0:V-0 д 

690 LOCATE 0,0:PRINT STRING$(80,' 'O:LOCATE @,@:1МРОТ ‘Data File Name';D$:LOCATE 
40,0:PRINT 'Hz';H;'V-';V:iLOCATE 60,0:PRINT ‘Data ?'load $7432" 

700 OPEN D$ FOR INPUT AS #1 

710 FOR J-0 TO 95 

720 FOR I-&H9F00*120*J TO &H9F77*120xJ 

730 INPUT 91,4 

740 POKE 1,A 

759 NEXT 1 

769 NEXT J 

770 CLOSE #1:REMOVE 1 

780 DEF USR3-&H9EAB:U-USR3(1):GOTO 130 

790 REM print ====== 

800 LOCATE 0,0:PRINT STRING$(80," °) 

810 LOCATE 9,9:INPUT ‘Set printer!  Y/N';P$ 

820 IF P$-'Y' OR P$-'y' THEN 830 ELSE 800 

830 LPRINT CHR$C&H1B)*'A' +CHR$( 8); 

840 O-USR9(1) 

850 LPRINT CHR$(C&H1B)*'A'*CHR$(12):GOTO 130 

860 REM —— end = 

870 PRINT CHR$(12) 

880 LOCATE 30,10 

890 PRINT "3%xx END sex" 

900 CONSOLE 0,25,0,0 

910 ENO 
920 REM 
930 T=USR4( 1 ) 

949 GOTO 139 

950 REM = Shift == 
960 LOCATE 9,9:PRINT STRING$(80,' °) 


memorize = 


図 2 


シフ ト 操 作 
EA ® 


シフ ト 操 作 を する と , 画面 の 縦横 の シフ 
ト が で きる よう に な り ま す 。 メ ニュ ー の 8 
が この モー ド で す 。 

RB, L-E, U… 上 , D… 下 
の 各 キ ー 操 作 で 上 下 左右 に 画面 を 移動 で き 
る わけ で す 。 移動 に と も な っ て , Ht VO 
座標 値 $ 変 化し ます 。 キ ャ ン バ ス の 端 に 達 
する と ビー プ 音 が 鳴り ます 。 

モー ド を 抜け る に は , テン キー の 0 を 
押し て くだ さい 。 

絵 を か き 足 し た い 場 合 に は , 
モー ド で , 移動 させ , 

Draw —> Memory > Shift 
の 順に モー ド を 切り 替え ます 。 そし て 絵 が 
完成 し た ら , セー ブ し て ディ スク に 納め ま 
す 。 


@ プ リン ト ・ ア ウト 


完成 し た 絵 を ビッ トイ メー ジ プ リ ンタ で 
出力 きせ る の が 作業 メニ ュー の 5 С, 

Set Printer Y/N ? 

と 確認 を 求め ます ので , OK な ら 

YO 

で す 。 約 30 秒 で 絵 を プリ ント アウ ト し ます 。 
終わ る と ふた た だ た び 作 業 メ ニュ ー に も どり ま 
358 

すべ て の 作業 が 終了 し た ら , メニ ュー の 
6 を 入力 し ます 。 


この Shift 
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970 LOCATE 0,0:PRINT ‘mode: shift';TAB(40); Hz" ;H; "V="; 

980 IF INP(3)=&HEF THEN H=H+1:GOTO 1030 

990 IF INP(4)-&HFB THEN H-H-1:GOTO 1040 

1000 IF INP(2)=&HEF THEN V=V-1:GOTO 1050 

1010 IF INP(4)=&HDF THEN V-V*1:GOTO 1060 

1020 IF INP(9)=&HFE THEN 130 ELSE 980 

1030 IF H>49 THEN BEEP:H-H-1:GO0TO 970 ELSE S=USRS( 1 ) :GOTO 970 

1040 IF Н<@ THEN BEEP:H-H*1:GOTO 970 ELSE R=USR6( 1 ) :GOTO 970 

1050 IF V<9 THEN BEEP:V-V*1:GOTO 970 ELSE Q-USR?7(1):GOTO 970 

1060 IF V>72 THEN BEEP:V-V-1:GO0TO 970 ELSE P-USR8(1):GOTO 970 

1070 REM = machine language of paint,clear,memorize,schift & print 
1080 1-0 

1090 READ A$:IF A$-'x*' THEN RETURN 

1100 POKE I*&H9BCO,VAL('&H'*A$) 

1110 I-I*1:GOTO 1090 

1120 DATA CD,?F,27,7C,B7?,C2,45,44,7D,32,BB, ED, 18, 18, CD, 7F 

1130 DATA 27,7С,В7,С2,А5,44,70,ҒЕ, 10,D2,45,44,32,BD, ED, CD 

1140 DATA EF,06,B0,32,BA, ED, 21,A8,F0,AF , 77,23, 7? ,C9,CD, TF 

1150 DATA 27,7C,B7,C2,45,44,70,32,BC, ED, 57,34, BB, ED, Е, 21 

1160 DATA 2F,B0,22,1D,EB,21,84,15,22,28,EB, 2A, A4, EF , 23, 23 

1170 DATA 3E,80,D3,51,CD,BE, 9C,FE,00,CO, CD, BE, 9C,FE, 00,20 

1180 DATA 03,15,18,F6,14,7A,32,F^,9C,D5,15, 1D, CD, BE, 9C, E6 

1190 DATA 01,47,D1,05,15,1C,CD,BE, 9C,E6,01,4F ,D1,D5, 1D, CD 

1200 DATA BE,9C,E6,02,B0,47,D1,05, 1C, CD, BE, 9C, E6,02,B1,4F 

1210 DATA D1,D5,14,CD,BE,9C,D1,F5,3A,FA, 9C, BA,CC,8D,9C, 78 

1220 DATA EE,01,CC,98,9C,79,EE,01,CC, 9C, 9C,F1,FE,00,20,07 

1230 DATA 14,CB,38,CB,39,18,C6,E5,CD,B3,9C,E1, 2B, 56. 2B, 5E 

1240 DATA ES,ED,4B, A4, EF, A7, ED, 42, E1,C8,D8,18,8D, 78, B7, CC 

1250 DATA 98,9C,79,B7,CC,9C,9C,C9,D5,1D,18,02,D5,1C, 73,23 

1260 DATA 72,23,E5,11,10,00,19,ED, 72,30,03,E1,D1,C9, 1E,07? 

1270 DATA C3,F9,3B,14,3A,FA,9C,3C,47,1C, 4B, C3,F8,14,E5,D5 

1280 DATA C5,CD,02,9C,20,03,CD,6B,07,3E,00,C1,D1,E1,D08,C8 

1290 DATA 3D,C9,14,28,21,3A4,4A,EB, 07, BA, 38, 1^, 7^, 32, BC, ED 

1300 DATA 1С, 28,13,3А,60,ЕА,47,3А,62,ЕА,80,07,07,ВВ, 38,06 

1310 DATA 7B,32,BB,ED,AF,C9,3E,FF,A7,C9 

1320 DATA AF,21,00,9F,06,2F,C5,06,FF,77,23,10,FC,C1,10,F6,C9 

1330 DATA 11,28,00,DD,21,78,F3,3A,FF ,9E,67,3A,FE,9E,6F,06,18,C5,06,50,DD, 7E, 00,7? 
7,DD,23,23,10,F7,0D,19,19,C1,10,EE,C9 

1340 DATA 11,28,00,DD,21,78,F3,3A,FF ,9E,67,3A,FE,9E,6F ,23,22,FE, 9E,06,18,C5,06,5 
0,7E,0D,77,00,0D0,23,23,10,F7,0D,19,19,C1,10, EE,C9 

1358 DATA 11,28,00,00,21,78,F3,3A,FF ,9E,67,3A,FE,9E,6F , 2B, 22, FE, 9E,06,18,C5,06,5 
9,7E,DD,?7,00,DD,23,23,10,F7,DD,19,19,C1, 10, EE, C9 

1360 DATA 11,28,00,DD,21, 78, ЕЗ, 3A,FF,9E, 67, 3A,FE,9E,6F,AF,ED,52,A^F,ED,52,AF, ED, 5 
2,22,FE,9E,06,18,C5,06,50, 7E,DD, ?7, өд, 00, 23,23,10, F7, DD, 19, 19,C1,10,EE,C9 

1370 DATA 11,28,00, 00, 21, 78, ЕЗ, 3A,FF,9E,67,3A,FE,9E, AB 19,19,19, 22, FE,9E,06,18,C 
5,06,58, 7E,DD, 77,00,DD,23,23,10,F? DD, 19,19,C1, 10, EE,C9 

1380 DATA 11,78,00,21,00,9F,06,30,C5,3E, 1B, CD, 9C, 9E, 3E, 4B, CD, 9C, 9E, 3E,F0,CD,9C,9 
E,3E,00,CD,9C,9E,06,78,7E,19 

1390 DATA 0E,00,CB,47,20,02,18,02,CB,F9,CB, 4F,20,02,18,02,CB,F1,CB,57,20,02,18,0 
2,CB,E9,CB,5F,20,02,18,02,CB,E1 

1400 DATA CB,46,20,02,18,02,CB,D9,CB, 4E,20,02,18,02,CB,D1,CB,56,20,02,18,02,CB,C 
9,CB,5E,20,02,18,02,CB,C1,08,79,CD,9C,9E,08 

1410 DATA 0E,00,CB,67,20,02,18,02,CB,F9,CB, 6F,20,02,18,02,CB,F1,CB, 77,20,02,18,0 
2,CB,E9,CB,7F,20,02,18,02,CB,E1 

1420 DATA CB,66,20,02,18,02,CB,D9,CB,6E,20,02,18,02,CB,D1,CB, 76,20,02,18,02,CB,C 
9,CB,7E,20,02,18,02,CB,C1,79,CD, 9C, 9E 

1430 DATA AF,ED,52,23,05,C2,F8,9D,3E,04,CD,9C, 9E, 19,C1,05,C2, E1,9D,C9 

1440 DATA D3,10,4F,D3,40,3C,D3,40,0B,40,E6,01,20,FA,C9 

1450 DATA 11,28,00,0D,21,78,F3,2A,FE,9E,06,18,C5,06,50, 7E, DD, 77,00, 23,00, 23,10, 
7,19,00,19,С1,10,ЕЕ,С9, жж 


49 DEF USR9=&H2BEE : DEF USR1=&H9BC0:DEF USR2-&H9BCE:DEF USR3-&H9CFA:DEF USR4=&H9D 
9B:DEF USR5=&H2D39 : DEF USR6-&H9D59:DEF USR7-&H9D82:DEF USR8-&H9DB6:DEF USR9-&H9D 
E2 

710 FOR J=0 TO 71 

720 FOR I-&H9F00*160xJ TO &H9F9F+160%J 

780 DEF USR3-&H9EC8:U-USR3(1):GOTO 130 

1030 IF М>8@ THEN BEEP:H-H-1:GOTO 970 ELSE S-USRS(1):GOTO 970 

1060 IF V>48 THEN BEEP:V-V-1:GOTO 970 ELSE P-USR8(1):GOTO 970 

1330 DATA 11,28,00,D0D,21,78,F3,3A,FF ,9E,67,3A,FE, 9E, 6F,06,18,C5,06,50,DD, 7E, 00,7 
7? ,D0,23,23,10,F?,DD,19,19,19,C1,10,ED,C9 

1340 DATA 11,28,00,DD,21,78,F3,3A,FF ,9E,67,3A,FE,9E,6F ,23,22,FE, 9E, 06,18,C5,06,5 
0,7E,0D,77,00,DD, 23; 23,10,F7,DD,19,19,19,C1,10,ED,C9 

1350 DATA 11,28,00,DD,21, ?8, F3,3A,FF,9E,67, ЗА, FE,9E,6F,2B,22,FE,9E,06,18,C5,06,5 
9,7E,DD,77。 ад, DD,23,23,10, Е?, 00,19, 19, 19, C1,10,ED,C9 

1369 DATA 11,28,00,0D,21,78,F3,3A,FF ,9E,67,3A,FE , 9E ,6F ,AF ,ED, 52,AF ,ED,52, AF ,ED,5 
2,AF ,ED,52,22,FE,9E,06,18,C5,06,50, 7E,DD, 77,00,DD, 23,23,10,F 7 ,DD, 19,19,19,C1, 10, 
ED,C9 

1370 DATA 11,28,00,DD,21,78,F3,3A,FF ,9E,67,3A,FE,9E,6F ,19,19,19,19,22,FE, 9E, 06,1 
8,C5,06,50,7E,DD, 77,00,D0,23,23,10,F7,DD,19,19,19,C1,10, ED,C9 

1380 DATA 11,40,00,21,00,9F,06,24,C5,CD,15,9E,06,50, 7E, 19,CD, 2A, 9E, AF ,ED,52,23,1 
9,F5,CD,15,9E,06,50,7E,19,CD, 2A, 9E, AF ,ED, 52,23, 10, F5, 3E, 0A,CD,B9,9E,19,C1,10,D6, 
C9,3E , 1B,CD,B9, 9E , 3E , 4B, CD, B9, 9E, 3E , A9 , CD , B9 , 9E, 3E , 00, CD, B9, 9E ,C9 

1390 DATA 0E,00,CB,47,20,02,18,02,CL ,F9,CB, 4F ,20,02,18,02,CB,F1,CB,57,20,02,18,0 
2,CB,E9,CB,5F,20,02,18,02,CB,E1,CB,46,20,02,18,02,CB,D9,CB, 4E,20,02,18,02, CB,D1, 
CB,56,20,02,18,02,CB,C9,CB,5E,20,02,18,02,CB,C1,08,79,CD,B9,9E,08 

1400 DATA 0E,00,CB,67,20,02,18,02,CB,F9,CB, 6F,20,02,18,02,CB,F1,CB, 77,20,02,18,0 
2,CB,E9,CB,7?F,20,02,18,02,CB,E1,CB,66,20,02,18,02,CB,D9,CB, 6E, 20,02,18,02,CB,D1, 
CB,76,20,02,18,02,CB,C9,CB, 7E, 20,02,18,02, CB,C1, 79 ,CD, B9, 9E,C9 

1410 DATA D3,10,A4F,D3,40,3C,D3,40 „ОВ, 40, E6,01,20,FA,C9 

1420 DATA 11,28,00,D0D,21,78,F3,24,FE,9E,06,18,C5,06,50, 7E, DD, 77,00, 23,DD, 23,10, F 
7,19,19,00,19,C1,10,ED,C9, xx 
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。 投稿 作品 


長い プロ グラ ムリ スト の 打ち 込み は めん 
どう な も の 。 だ が , デバ ッ グ する の は る ら 
に 骨 が 折れ る 。TRON コマ ンド で 行 番号 を 
追跡 し て エラ ー を 探す の も , 行 が 増え る と 
お 手 上 げ 。 

そこ で , 特定 の 変数 な ど を 含む 行 を ピッ 
クア ッ プ する サー チ ・ ツ ー ル を , 使用 例 を 
交え て 紹介 し て みよ う 。BASIC プロ グラ ム 
の デパ ポッ ンク 2 だけ がく マシ ン 語 プロ グラ 
ム の 解析 に 便利 な マシ ン 語 コー ド を サー チ 
する 機能 も 備え を て いる 。 


フロ グラ ム の 


この プロ グラ ム は リス ト 1 の よう に , 
E000 番地 か 5 EAFD 番地 まで と 短い 。 打 
ち 込 む に は まず , 

CLEAR, &HDFFF Q 

CONSOLE 219 0) 

t Lib 

MON Q 
で モニ タモ ー ド に 入り , S コ マン ド か ら 6E 
コマ ンド で , リス ト の デー タ を E000 番地 
か ら 順 に 打ち 込む 。 そ れ が すん だ ら 65 すでに 

BSAVE "search" 
&1HE000, &H4FE О 
(CUZ ni LIU m 4 NAM 
ラム で 打ち まち が い が な いか 確認 する 。 

セー ブ し た プロ グラ ム を ロー ド す る に は 

BLOAD “Search” (О 
£ L G; 

MON Q 

GE000 Q 


て 起動 する 。R オ プシ ョ ン を 使っ て も よい 。 
コマ ンド の 種類 


CMD NEW 

プロ グラ ム の ジャ ンプ テー ブル を 初期 化 
まる スー ンー88 シ リー ズ な が МО 
ログ ラム で CMD を 使用 し て いる も の を 利 
用 し た い 場 合 は , その 前 に CMD NEW a 
マン ド を 実行 する こと 。 
CMD ON/OFF 

タイ ム 表 示 (後述 ) 
CMD 数値, バサー チマ シン 語 コ ー ド ? 
マン ジン 語 の ュー ド を サー チ す る 。 
CMD 0 

BASIC プロ グラ ム の キャ ラク タ を サー 
チ す る コマ ンド だ 。 次 項 を 参照 の こと 。 


BASIC コ マン ドサ ー チ 
E з 


CMD 0 Q 
を 実行 する と , 
>search character — 
と 表示 が 出る 。 こ こ で BASIC プロ グラ ム 
の 中 で サー チ し た い コ マン ド な ど を 指定 す 
れ ば いい 。 た だ し , BASIC の プロ グラ ム に 
は この 「Searcher88」 を ロー ド す る 前 に , 
あら か じ め ロ ー ド し て お くく こと 。 
ば 
>search character - DSKO $ 
と する と 
420 DSKO$ 1, 0, 0, 1 


560 DSKO$ 1, 1, 1, 1 


この よう に , 変数 DSKO$ を 含ん だ 行 が す 
べ て 表示 る れる 。 注意 し て ほし い の は 
dsko $ (小文字 で 入力 ) 

DSKO$ (空白 あり ) 

と し た 場合 』 サー チ し て くれ な いと ゅ うこ 
と だ 。 なお, 指定 で きる 文字 列 は 16 字 まで 。 
また , 画面 に 表示 する メッ セー ジ の 位置 

を 決め た いと き , た と えば 

1700 LOCATE 49 一 LC( 0 ), 19 十 LC( 1 ) 
と し て 位置 が ずれ て いた と き に , LC( 0 ) や 

LC( 1 ) の 値 を 追跡 する の に 利用 で き る 。 

一 般 に 変数 の 値 を まち が える と エラ ー に 
な ら ず に , プロ グラ ム の 動作 だ けが お か し 
く な る 場合 が あり や っ か い だ 。 こ ん な と き , 
特定 の 変数 の チェ ッ ク が で きる と デバ ッ グ 
効率 が 上 が る わけ だ 。 

ボー デリ し た 行 を ぷ ブ プリ ンタ で ブリ ン 紅 
ウト し だ た いと き に は 

CMD 0, P 
を 実行 すれ ば いい , プリ ント アウ ト は 

CTRL-S… 一 時 停止 

CTRL-C… ス トッ プ 

#1, この CMD 0 コマ ンド で サー チ す 
る と , 行 の は じ め の 検索 文字 列 の み 緑色 で 
表示 る れる 。 上 の 場合 で いえ ば DSKO $ が 
画面 で は 緑色 に な る 。 

も ちろ ん , これ は 画面 が カラ ー モ ー ド の 
と き に 限る 。 こ の 緑色 は 好み に よっ て は ほか 
の カラ ー に 変更 も で きる 。 表 1 の よう に , 
アド ンス E4B4 の 値 を , 好き な カラ ー に 対 
応 し た 値 に 変更 すれ ば いい 。 
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マシ ン 語 コ ー ド サー チ 
p oo 


表 2 に サー チ す る エリ ア の 一 覧 を 示す 。 
これ も 例 を あげ た 方 が 分 か りや すい だ ろ 
yas d. 
CMD 2, "CD 50 55" 
と する と , ROM3, 4 の エリ ア で 
CD 50 55 
の コー ド の 並び を 探す 。 ち な み に こ の コー 
ド は 
CALL 5550H 
を 意味 する が , サー チ し た 結果 は 該当 アド 
レス と その アド レス 以降 16 バ イト を ダン プ 
形式 で 表示 する こと に な っ て いる 。 結 果 を 
プリ ンタ に も 出力 し た いと き に は 
CMD 2 "CD 50 55^, P 
と P ォ プシ ョ ン を つけ れ ば いい 。 プ ブリ ント 
さる れる の は サー チ し た 該当 アド レス の み 。 
この コマ ンド は マシ ン 語 の 特定 の 命令 を 
勉強 し た いと き な ど に も 便利 だ ろ う 。 ア セ 
ンプ ブラ , 逆 ア セン ブラ と 合わ せ て 利用 し て 
も ら え ば 効果 が 上 が る 。 


ST, マシ ン 語 ユー ド の チー チ で の 注意 
点 い くつ か ヵ か 述べ て お こう 。 
① ュ ー ド の 入力 は 大 文字 (AF), 小文字 
(Ga = f DE bT 
ュー ド 列 の 入力 で 1 バイト ご と に スペ ー 
ス を 入れ て も よい 。 
入力 で きる コー ド は 16 バ イト 分 まで 。 
(《④ サ ー チ する 先頭 アド レス を 指定 し た いと 
き に は CMD 2 の 直後 に 
ICH х ра 
を 挿入 する 。 た と えば , 
CMD- 2 "SFU CHIU. DD と 
と する と , 2300 番 地 以降 を サー チ す る 。 
⑤⑥ リ スト 中 で は 
CTRL-S… 一 時 停止 。 入力 待ち 
CTRL-C… 実 行 の 中 断 
の 2 つの キー が 使用 で きる 。 
⑥ エ リア の 範囲 外 を 指定 し た と き は 
Missing Operand 
の エラ ー 表 示 が で る 。 
⑦ 数 字 と アル ファ ベッ ト の AF 以外 の 入 
力 は すべ て 0 と みな さる れ る 。 
O ӨМӘ TARAI ZELIM EF 3$» t 
いる と き は 刻々 と デー タ が 変化 し て いる 


OC, 表示 アド レス と デー タ が 異な る 。 


タイ ム の 表示 
E ы E 


この ツー ル で は , 実行 中 の 日 づけ と 時 間 
が 表示 され る 。 こ の 2 つの 表示 は 内 蔵 の タ 
イマ を 利用 し て いる の で , 変更 に は それ ぞ 
れ DATE$ t TIME $ を 使え ば よい 。 

ュ マ ンド 待ち 状態 の と き に タイ ム 表 示 を 
fiv, キー 入力 する と 表示 が 中 断 さ れる 。 
また , コマ ンド 待ち の 状態 で は 画面 が 
CONSOLE 1 の 状態 に な が っ て いる が , 


CMD OFF Q 
で 解除 る れる 。 ま ただ, 
MON Q 


で モニ タモ ー ド に 入る と 自動 的 に CON- 
SOLE 0 の 状態 と な b, CTRL-B で 
BASIC モ ー ド に も どる と ふた た だ び CON- 
SOLE 1 の 状態 に も と る 。 
時 間 を 表示 し た 《 な っ だ ら 
CMDON 0 
と すれ ば よい 。 


3 mk 


ж 


E 


m ж HJ 


6000— 7FFF 


6000— 7FFF 


£ 称 ADRS : +0 

E200 : 23 

E210 : E2 

8000—F3C7 |( 通 常 の )RAM E230 : CS 

Е24@ : BC 

0000—7FFF |N。-BASIC ROM E200 мг 
E270 : 
0000- 5FFF |N-BASIC ROM E290 : 


グラ フィ ッ ク ROM 


モニ タ ROM 


PC-HIIMKIISRO 
ЕЮФЕМУ УБ ЕВ, 5 


19852485 一 1985 年 6 月 号 
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FM 音源 の 原理 を 探る 


SR に タッ チ 
A 


前 号 で その 全容 を レポ ー ト し た 4 つの 
SR に は 音楽 機能 を 実現 する FM 音源 を 使 
用 し た LSI と し て OPN が 搭載 され て いま 
Bis 

音楽 用 の LSI と し て は , PSG (プロ グラ 
マブ ル サ ウ ンド ジェ ネ レ ー タ ) が 有名 で す 
33, ОРМ に は , 

@ FM 音源 方 式 の 本 格 的 な デジ タル シン セ 
サイ ザ を 3 音 分 内 蔵 し て いる 

@ PSG と 同等 の 機能 を も ち , PSG と ソフ 
トウ ェ ア コ ン パ チ プ ブル で ある 

e 2 つの 汎用 1/O ポー ト を も っ て いる 

と いっ た 特徴 が あり , 音楽 用 LSI と し て 画 
期 的 な も の で す 。 

FM 音源 は ヤマ ハ が 実用 化し た 方 法 で , 
同社 の シン モ サ イザ , ある い は エレ クト ー 
ン に 使用 きれ て お ぉ おり , こと に シン セ サ イ ザ 
DX シリ ー ズ が 電子 楽器 業界 , 音楽 産業 界 
に 与え を た イン パク ト は 非常 に 大 きか っ た よ 
ETE 

と ころ で , FM 音源 で は どの よう な 音 を 
合成 し て いる の で し ょ うか 。 

FM と は frequency modulation (周波 数 
変調 ) の 略 で す 。 そう で す 。 ラジ オォ の FM と 
同じ こと な の で す 。 も っ と も , 言葉 は 同じ 
で す が , や っ て いる こと は 多少 異な り ま す 。 
ラジ オォ の FM は その 言葉 どおり 周波 数 (1 
秒間 に 波 が 振動 する 回 数 ) を 変調 , つま り 
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自由 に 変化 きせ る こと (自由 に 変化 させ る 
こと が で きる 量 を パラ メー タ と いう ) СЗ 
と ころ が , FM 音源 で は 周波 数 を 変調 する 
の で は な く , 位 相 を 変調 し て いる の で す ( コ ユ 
FATT). 

$C, 何 が 何だ か 分 か ら な く な っ て し ま 
っ た か も し れ ま せん が , と りあ え ぇ ず 音 を 出 
053 Е 1555 
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FM 音源 は ラジ オ の FM 放送 の よう 
に 周波 数 を 変調 する の で は な く , 位相 を 
変調 する の で す が , これ を 数 式 で 表現 す 
る と 次 の よう に な り ま す 。 

F(t)=A(t)sin(o-t +I(t)sin gr も 一 一 ① 
ここ で A(t) は 出力 の 振幅 , I(t) は 変 
HORS, ос, wm は キャ リア (変調 を 受 
ける 側 ) お よび モジ ュ レ ー タ (変調 を す 
る 側 ) の 角 周 波数 で す 。 こ の 式 を 展開 す 


の きた 
F(t)=A(t)(Jo(I(t)sinact + Ji(1(t))- 
(sin(ac-- wm)t— sin(wce— @m)t) 
+J(I(t))[ sin(we+20n) t+sin 
Lo don ase @ 
の よう に な り ま す 。 た だ た だし, Ј.(х) п 
次 の 第 1 種 ベ ッ セ ル 関 数 で , 


кыз т) 


т=0 
で 表 る れる 関数 で す 。 し た が っ て , 出力 


FM 音源 の 解析 


PC - 8800MKIISR の 場合 は Ns = BASIC 
V2 モー ド で て , 
NEW CMD @ 

CMD PLAY い @1 cde” の 
ング ツー ド RW で くだ さい 。 

どう で すか ? な か な か リア ル な プ ブラス 
(トラ ン ペ ッ ト な ど ) の 音 で すね 。 こ の よう 
に , 4 つの SR で は , PLAY x tf c ffi 
HU, あら か じ め 用 意 さ る れ た FM 音源 の リ 
アル な 音色 を 楽し か こと が で きま す 。 メ ー 


F(t) に は ② か ら 
@ ゅ 三 @c 十 n の nm,。n の mー の c(n 三 1, 2,3, …) 
で 表 る れる 倍音 が 現れ る こと に な り ま す 。 
と ころ で , ① 式 の 場合 は 各 倍音 の 振幅 
が ベッ セル 関数 で 表 る れる の で 特定 の 楽 
器 の 音 の 合成 に は 向い て いる の で す が , 
許 音 の 分 布 が 一 様 に な ら な いた め , だ と 
えば 弦楽 器 系 な どの 音 に は 不向き な の で 
+, CET, この 点 を 改良 する た め に 次 
の よう な 変調 の 方 法 が 考え られ て いま す 。 
F(t)=A(Dsin[ gt+I」(Dsin( の ait 二 2(t) 
sineaatÀ)]|1Ñ— a]. — —— —— (3) 
Е(0)=А(0) ѕіп(о+8Е(0)) @ 
③ を 二 重 変調 、① を フィ ー ド バッ ク ЕМ 
と 呼び ます 。OPN で は 最大 三重 変調 ま 
С, また フィ ー ド バッ ク FM は 1 音 (4 
つの オペ レー タイ で 構成 され て いる ) 4R 
り 1 つ の オペ レー タ で 可能 と な っ て お おり, 
幅広 い 音 作 り が で きる よう に な り ま す 。 


カー 側 で 用 意 し た 音色 は PLAY 文 の 中 の 
@ (アッ トマ ー ク ) の 後ろ の 数 字 で 指定 し 
i) 

今 の 例 で は すでに ある 音色 ユー ザー が 
選ぶ だ け で し た が , せっ か 本格 的 な シン 
も セ サイ ザ と し て の 機能 を も っ た 石 を 使っ て 
いる の に , これ で は 何と も も っ だ いな い 話 
で す 。 実は , N。。SR- BASIC に は SOUND, 
N。。SR-BASIC に は VOICE, N。。-BASIC, 
V2 モー ド に は CMD VOICE t と いう 命令 
が あっ て , これ ら を 活用 すれ ば パソ ツユ コン を 
デジ タル シン セ サ イ ザ に する こと すら 可能 
に な る の で す 。 も っ と も , FM 音源 を 使っ た 
シン セ サ イ ザ は , シン モ サ イザ の 中 で も 使 
い 方 が 難し い 部 類 に 属す る の で , 使い こ な 
す た め に は ある 程度 の 知識 が 必要 で す 。 

を そこで, 今月 か ら 6 数 回 に わた っ て ,OPN を 
使い こなす た め に 必要 な 知識 と , 応用 例 を 
紹介 し て いき た いと 考え て いま す 。 


FM 音源 の 
原 


だ いぶ 前 置き が 長く な っ て し まい まし た 
が , FM 音源 の 原理 に つい て 説明 し て いき 
まし ょ う (数 学 的 な 解析 に つい て は コラム 
を 参照 し て くだ さい )。 

いま , メモ リ 上 に 三角 関数 (サイ ン ) の デ 
ー タ が 1 周期 分 , 順に 記憶 きれ て いる と し 


ます 。。 こ の と き , X を メモ リ の アド レス , 
у を デー タ の 値 に すれ ば , 
y=A sinx (A は 定数 ) 


の 関係 だ ある わけ で す ( 図 1 参照 )。 

も し この デー タ を アド レス の 順に 正しく 
( ?) ア クモ ス し て いけ ば , サイ ン 波 が 表現 
され る の は 分 か が り ま すね 。 つ まり , MID 
形 の まま デー タ が 読み 出さ れる わけ で す 。 
読み 出さ れ た デー タ が どの よう に 音 と な っ 
て 聞こ える か は , コラ ム 2 を 参照 し て くだ 
きい 。 

と ころ が , この 読み 出す 順番 を めちゃ く 
ちゃ に し て し まえ ぇ ば, 表現 され る 波形 も め 
ちゃ くち ゃ に な っ て し まい ます 。 もっとも, 
本 当 に 不 規則 に 読み 出せ ば , それ こる 収拾 
の る か な いこ と に な っ て し まい ます よる る 
で , FM 音源 で は 読み 出す 順番 を 規則 的 に 
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1 デー タ と アド レス の 関係 


چ ت کو 


や 
—— 


周波 数 の デー タ 


CE 


めちゃ くち ゃ に し て いる の で す 。 話 は 前 後 
し ます が , デー タ の 入っ て いる アド レス を 
この 場合 , 位相 と 呼び ます 。 前 に あげ た 「 位 
相 を 変調 する 」 と いう の は , こう いっ た こ 
と か らき て いる わけ で す 。 


エン ベロ ー プ 
デー タ 


トー タル レベ ル 


ST, 規則 的 に 読み 出す 順番 を めちゃ さく 
ちゃ に する , つま り 位 相 を 変調 する こと に 
よっ て 表現 きれ た 波形 は , 正しい 順番 で 読 
み 出し た 場合 の 波形 (サイ ン 波 ) に 比べ て ま 
る で いび つ な 形 を し て いる こと で し ょ 2 う 。 


249 


デー タ が 音 に な る まで 


OPN の 出力 か 6 合成 され た 波形 の デー 
タ が 次 々 と 出 て きた と し ます 。 こ の 時 点 で 
ij, デー タ は あく まで も 何 ビ ッ ト か で 表現 
さる れる 数 値 で し か あり ませ ん 。 も と も と デ 
ジタル と いう 言葉 は 「 数 字 」 と いう 意味 な の 
Eie 

これ を D/A コン バー タ (デジ タル / ア ナ 
ログ 変換 器 ) と いう ユニ ッ ト に 入力 し ます 。 
する と , 出力 に は 数 値 の 大 きる が 電圧 の 大 
きる に 変換 きれ て 出 て きま す 。 電 上 圧 は アナ 
ログ (連続 ) 量 で すか ら 6, デジ タル か ら ア ナ 
ログ に 変換 きれ た こと に な る わけ で す 。 4 
つの SR に は YM-3014 Ł © 5 D/A а 
ン バ ー タ が 使わ れ て いま す 。 

と ころ で ,D/A コン バー タ を 出 て きだ ば 


か り の 信号 は 連続 量 に は 違い な い の で す が , 
完全 な 形 を し て いま せん 。 ど うい うこ と か 

と いう と , 本 来 な ら ば な め ゆら か で ある べき 
信号 に , 階段 の よう な 段 が つい て いる の で 
+, を そこ で この 信号 を フィ ル タ と いう ユニ 
ッ ト を 通し , 階段 状 の 部 分 を な が らし て な め 
ら か に する こと に よっ て デー タ が 完全 に 変 
換 き れる こと に な る の で す 。 

ST, フィ ル タ を 出 た 信号 は 「 電 圧 の 変 
化 」 と いう 形 で 音 を 表し て いる わけ で すか 
6, これ を 実際 の 音 に する に は アン プ ( 増 
幅 器 ) と スピ ー カ を 使う こと に な り ま す 。 
この 2 つ に つい て は 周知 の こと と 思い ます 
OC, 説明 を 加え る 必要 は な いで し ょ う 。 


図 3 オペ レー タ を つなぐ と …… 

これ が 音 と な っ た 場合 に は , どの よう な 特 
徴 を も つの で し ょ うか 。 

結論 か らい いま す と ,「 読 み 出 し の めちゃ 
くち ゃ さる の 度合 が 大 きい ほど , 出 て くる 音 
は 明る く , また と げ と げ し く , 金属 的 な 音 
に な る 」 と いう こと に な り ま す 。 

逆 に いえ ば , めちゃ くち ゃ さ の 度合 ( こ 
れ を 「 変 調 の 深き 」 と いう ) が 最も 小さ い , 
すなわち 正しい 順番 で 読み 出し た 場合 は く 
せ の な い , 丸み の ある , や わら か い 音 に な 
る と いう こと を 意味 し て いま す 。 

この 結論 は , FM 音源 を 理解 する 上 で 重 
要 な ポイ ント と な り ま すか ら , よく 頭 に 入 
れ て お いて 《 く だ さい 。 

と ころ で , いま まで "規則 的 に 」 読 み 出 す 
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(n, m は 自然 数 ) 


順番 を めちゃ くち ゃ に する と いっ て きま し 
だ が , どう いっ た 規則 な の で し ょ うか 。 こ 
の こと を 理解 する た め に は , オペ レー タ と 
いう 考え 方 を 使う と 便利 で す 。 

図 2 を 見 て くだ きい 。 いま まで の 話 を 実 
際 に ユニ ッ ト 化 し た も の で す 。 加 算 器 , 乗 
算 器 は それ ぞ れ 入っ て きた 複数 の デー タ ど 
うし を 足し た り , か けた りす る も の で す 。 
メモ リ に は いま まで の 話 と 同様 に サイ ン 波 
が 記憶 し て あり ます 。 フ ェ イ ズ ジ ェ ネ レー 
タ は 周波 数 の デー タ に 比例 し た 速 き で , E 
し い 順 座 の アド レス を 出力 し ます 。 た と を 
Ії, 図 1 の 場合 な ら 6, 


と いう よう に 出力 し ます 。 こ の 出力 が 周波 


数 の デー タ に 比例 し た 速 る で 出 て くる の で 
すか ら , オペ レー タ の 入力 が で ど ロ で あれ ば , 
メモ リ か ら 出 て くる デー タ は 周波 数 の デー 
タ に 比例 し た 周波 数 ( 音 の 高き ) の サイ ン 流 
に な る は ず で す 。 

ФСТ, エン ペロー プ お よび トー タル レ 
ベル の 各 デ ー タ が 時 間 に 対 し て 一 定 な ら ば , 
オペ レー タ の 出力 に は サイ ン 波 が 現れ る は 
PEF 

と ころ が , この オペ レー タ の 入力 に これ 
と 同じ , つま り 入 力 が ゼロ で エン ベロ ー グ , 
トー タル レベ ル の 各 デ ー タ が 時 間 に 対 し て 
一 定 の 値 で , し か も 周波 数 の デー タ と この 
オペ レー タ の それ と が 整数 比 で 表 き れる よ 
うな オペ レー タ を つなぎ ます ( 図 3)。 

する と , オペ レー タ 1 の 方 は 入力 に 自分 
の 周波 数 と 整数 比 を もつ よう な サイ ン 波 が 
加わ っ た こと に な り ま す 。 こ うな る と , 加 
算 器 が ある の で , オペ レー タ 1 の メモ リ に 
与え を られ る アド レス の 順序 は めちゃ くち ゃ 
な 順序 と な り ま す 。 

し か し , 注意 し て ほし い の は めちゃ くち 
や と は いっ て も , 

「 入 力 に 加え られ た 波形 の 周波 数 と 加え 

られ た 側 の オペ レー タ の 周波 数 と は 整 
数 比 を な す 」 

と いう 規則 が ある 点 で す 。 こ れ が いま まで 
使っ て きた 「 規 則 」 と いう 言葉 の 意味 で す 。 

それ で は , この 規則 と 先ほど の 「 変 調 を 
深 《 す る と 音 は 明る 〈, 金属 的 に な る 」 と 
いう 結論 を 実際 に 音 を 出し て 確か め て み ま 
РОУЗ.) 
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タ は 一 定 の 値 に 固定 し て あり ます 。 し た が 
っ て , 変調 の 深き は オペ レー タ 2 の トー タ 
ルレ ベル で 決ま り ま す 。 い い ぃ 遅れ まし た が , 
トー タル レベ ル と いう の は オペ レー タ の 出 
力 の 大 きる を 決め る パラ メー タ で , エン で 
ロー プ デ ー タ と の 違い は 時 間 に 関 係 な く 一 
定 の 値 ど ある と いう 点 で す 。 い うな れ ば , 
ボリ ュー ム の よう な も の で す 。 

172, や っ か いな こと に OPN で は トー 
タル レベ ル を 減衰 量 と 定め て いる の で す 。 
トー タル レベ ル を 大 きく する と , 

より 減衰 が 大 きく 《 な る つ 
出力 が 小さ く な る 
と いう わけ で , 普通 の ボリ ュー ム で は な く , 
逆 回 転 の ボリ ュー ム と いう こと に な り ま す 。 
また だ, 周波 数 の デー タ に は F ナ ン バ ー と 


マル チ デ プル の 2 種類 あっ て , F ナ ン バ ー は 
音階 を 定め る も の で , 3 音 そ れ ぞ れ に 別々 
に 有効 な も の で す 。 一方, マル チ プ ル は , 
「 規 則 」 で いう と ころ の オペ レー タ ど うし の 
周波 数 の 比 を 定め る も の で , オペ レー タ 別 
に 有効 な も の で す 。 し た が っ て , 最終 的 に 
周波 数 の デー タ と し て オペ レー タ に 与え ら 
れる の は , 
(EU eS XI Cr) 

と いう こと に な り ま す 。 実際 に は まだ 別 の 
パラ メー タ も ある の で す が , それ は 後ほど 
くわ し くく 説明 し ます 。 

この プロ グラ ム で は , F ナ ン バ ー は 固定 
し て ある の で , 画面 に 出 て くる 周波 数 は , 
ルレ デジ ジン と の に こ tc, 

それ で は 実行 し て み ま し ょ 2 う 。 

パラ メー タ に 値 を 代入 し て RETURN 
キー を 押す , これ を 3 つの パラ メー タ に つ 
いて 行っ た あと , スペ ー ス バー, EDO 
キー を 押す と 音 が 出 ま す 。 
パパ ラメ ー タ の 値 を 書き 替え た だい とき は , 
ЕЕС SE ti 
タ の 値 の 範囲 は , 

トー タル レベ ル : 0 ~127 
2 ウレ ラジ ジレ OS 
と な っ て いま す 。 

また , プロ グラ ム を 終了 る せ た い と き は 
E を 押し て くだ さい 。 STOP キー で も 終了 
る せる こと は で きま す が , N。。SR-BASIC 
の 場合 は 

CONSOLE; 0 30) 

を 実行 し て , キー クリ ッ ク 音 も を ふた たび オ 
ン に し て お いた だ 方 が よい で し ょ う 。 
トー タル レベ ル の 値 を 小さ きく し て いく と 

音 は 明る 〈, 金属 的 に な り ま す 。 マ ル チ プ 
ル の 値 を 変え て も 音色 は それ に 応じ て 変化 
し ます 。 いろいろ な 値 を 代入 し て , 変化 の 
感じ を つか ん で くだ る きい 。 

EDL лел РЕСІ 
が つい た と 思う の で す が , 出 て くる 音 を 聴 
いて みて も , どう や っ だ たら こん な 音 で 楽器 
の 音 が 合成 で きる の か 思う ほど 「 楽 器 ら し 
‹ な い 」 音 だ っ だ は ず で す 。 そ れ も そ の は 
ず , い まま で の 話 で は FM 音源 の 原理 の 50 
% 位 に し か な ら な い の で す 。 図 2 を も う 1 
度 見 て て だ きい この 図 の 中 で まだ 説明 し て 
いな い フ パラ メー タ に 。 エン ベロ ー プ デー タ 
と いう の が あり ます 。 こ の エン ベロ ー プ を 
よく 理解 で きれ ば , FM 音源 の 原理 は ほぼ 


== 
Е 
の 
大 
き 
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図 4 エン ベロ ー プ 
Яя Т АЛ ES T. E L4. 

図 4 を 見 て て だ さい 。 こ れ は トラ ン ペ ッ 
ト の 鳴り 始め か ら 鳴 り 終 わり まで の 音量 の 
変化 を 表し て いま す 。 縦 軸 は 波 の 振動 の 大 
きる き (振幅) を 表し , これ が 大 きい ほど 音 が 
Ж Мило ЕДЕ b Ed cR с 
の 曲線 の こと を エン ベロ ー プ と いう の で す 。 

エン ベロ ー プ は 4 つの 部 分 に 分 け られ, 
A の 部 分 を アタ ッ ク , D の 部 分 を ディ ケ ィ , 
S の 部 分 も サス ティ ン , R の 部 分 も リリ ー 
ス と 呼び ます 。 こ の よう に , だ いて い の 楽 
器 は 鳴り 始め か ら 鳴 り 終 わり まで の 間 で , 
音量 が 時 々 刻々 変化 し て いる の で す 。 こ の 
変化 を 作り 出す の が エン ベロ ー プ ジェ ネ レ 
ー タ で す 。 エ ン ベ ロ ー プ "を ジェ ネン レー ト (fE 

り 出す ) す る も の と い 2 意 味 で す 。 し た が っ 
て , エンベロープ "デー タ と いう の は , あ る 明 
間 の エン ペロー プ ' の 大 きる の こと で , この 
デー タ を 時 々 刻々 変化 きせ る こと に よっ て , 
音 の 立ち 上 が りや 減衰 が シミ ュ レ ー ト され 
る こと に な る わけ で す 。 

と ころ で , 時 々 刻々 変化 する の は 必ず し 
も 音 の 大 きる だ け で は あり ませ ん 。 音 色 も 
実際 の 楽器 で は 変化 し て いく の で す 。OPN 
は この 変化 も 当然 の こと な が ら シ ミュ レー 
ト す る こと が で きま す 。 図 3 の オペ レー タ 
p @ == а tu Se b. z 
+, エン ペロ ー ア デー が 大 を で な れれ は 
オォ オペレータ 2 の 出力 が 大 きく な っ て , オペ 
レー タ 1 か ら 出 て くる 音 は 明る 〈 金 属 的 に 


な り , 反対 な ら ば 逆 の 現象 が 起こ る と いう 
わけ で す 。 実際 の 楽器 で も , 音色 の 明る さる 

音 の 大 きると 対比 し た いい 方 を すれ ば , 
この よう に , 「 エ ン ベ ペロー プ 的 に 」 音 色 が 変 
{ET p 

た と えば , トラ ン ペ ッ ト の 場合 を 考え て 
みる と , 吹き 始め か ら だ ん だ ん と 音色 が 明 
る く 《 く な っ て いき , ある ピー ク を 過ぎ る と 少 
し 音 が こも っ た 感じ に な っ て 演奏 者 が 吹き 
終わ る と 音色 が お きら に や わら か くく な りな が 
ら 音 が 消 を えて いく わけ で す 。 こ の と き の 音 
色 の 変化 を 視覚 化す れ ば 図 4 に 似 た 形 に な 
DS app 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


REM ЖЖЖЖ fA?°L-2- J "WY XXXXxxxxxxx 
REM xxxxxxxxxxx For N88v2-BASIC xxxxxxxxxxx 
CLS: NEW CMD 

FOR I=0 TO ? 

READ A B: CMD VOICE REG A,B 

NEXT I 

INPUT 'op-1 / 215A25 (0 to 15)';F1 

IF F1<9 OR F1>15 THEN 160 

INPUT 'op-2 / 219A29 (0 to 15)';F2 

IF F2<9 OR F2>15 THEN 180 

INPUT 'op-2 / ト - タ ルル へ "ルル (127 to д)" Ті 

IF TL<9 OR TL>127 THEN 200 

CMD VOICE REG 52,F2: CMD VOICE REG 69,F1 
CMD VOICE REG 68,TL 

A$=INKEY$: IF A$-'' THEN 240 

IF A ま =" ° THEN 310 

IF A$-'e' OR A$-'E' THEN END 

CMD VOICE REG 40,240 

FOR Т=@ TO 100: NEXT T 

CMD VOICE REG 40,0 

GOTO 240 

CLS 

PRINT 'op-1 / »195A29-';F1 

PRINT 'op-2 / 519A29=";F2 

PRINT 'op-2 / トー- タ ルレ ^* ル =" ; TL 

GOTO 16@ 
DATA?6,20,84,31,92,31,132,31,140,31 
DATA164,35,160,56,176,0 
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コ つ の SH__ PART2 


OPN の 本 質 に せま る 


連載 第 1 回 で FM 音源 の 原理 あ ひ と と 
お り 説 明 し まし た 。 今 回 か 6, OPN の 本 質 
EIT BUST UE TOS 
設定 する の か ? と いう 具体 的 な こと を 見 
で いき まま て しょう 。 


OPN の 
使い 方 


前 回 で も 述べ た だ たよ うに, Nas- BASIC V2 
モー ド に は CMD VOICE, N。。SR-BASIC 
に は VOICE, N。。SR - BASIC に は 
SOUND な ど OPN の 各 レ ジス タ に 音色 の 
デー タ を 書き 込む 命令 が あり ます 。 こ れ を 
使っ て , きま ざま な 音 を 出す こと が で きま 
xa 

レジ スタ と いう の は , 一 種 の メモ リ と 考 
えん 私 ば よ ぬ で も よう 高 も た が っ て メモ リ 


OPN の パラ メー タ に , そし て を の 番地 の 
レジ スタ に 記憶 きれ て いる 数 値 が その パラ 
メー タ の 数 値 に 対応 し て いる の で す 。 
レジ スタ の 番地 と 2 パラ メー タ の 対応 に つ 
いて は ひと まず 置い て お く こ と と し て , š 
こ で は 各 パ ラメ ー タ が どの よう な 意味 を も 
つか を 中 心 に 話 を 進め て いき だ た いと 思い ま 
+ 
リス ト 1 一 3 は , 簡単 な モノ フォ ニッ ク 
(単音 ) シ ン モ サイ ザ の プロ グラ ム で す 。 マ 
シン に 合わ せ て BASIC プロ グラ ム を 入力 
し て 《 だ さい 。 た だ だ し , 6001MK II SR を お 
使い の 方 は リス ト 3 の 後ろ に ある 該当 行 を 
変更 し て くだ さい 。 こ の プロ グラ ム を 使っ 
て 自分 で 音 を 合成 し . キーボード で 演奏 す 
る こと も きま す 。 また と オペ レデ ダ の 挟 
続 は 前 回 の 図 3 の まま 固定 し て あり ます 。 
で は , プロ グラ ム を 実行 し て くだ さい 。 
画面 に 各 パ ラメ ー タ の 名 前 と その 値 が 表 
に な っ て 表示 る され ます 。 その 中 に は , 525 
すでに 説明 し た トー タル レベ ル や マル チン 


て いな い パ パラ メー タ が か な りあ る と 思い ま 
す 。 こ の 説明 は あと に 回 す と し て , ブロ グ 
ラム の 使い 方 か 6 説明 し て いき まし ょ う 。 

実行 直後 は デット モー ド (音色 作成 モ 
ー ド ) で す 。 表 中 の 数 値 を 書き 替え を る こと 
に よっ て , 音色 を 決定 する わけ で す 。 

表 の 左上 隅 の 数 字 (0 が 表示 され て いる 
は ず ) だ け 色 が 違い ます ね 。 こ の 色 の 違う 数 
字 だ けが 書き 替え 可能 で , その 値 は X を 押 
す と 減少 , Z を 押す と 増加 し ます 。 同じ キ 
ー を 押し 続け た 場合 は リピ ー ト 機能 が 働き 
ます 。 ま た だ た, パラ メータ の 最大 (最小 ) 値 以 
上 に 増加 (減少 ) き せよ うと する と , ふた た 
び 最 小 (大 ) 値 に も どり ます 。 

書き 替え る パラ メー タ を 選ぶ に は , 
8801MK II SR, 8001MK II SR の 場合 は 
テン キー 部 の 「,」, 1, 3, 5 を , 6001SR, 
6001MK II SR の 場合 は カー ソル 移動 キー 
を 押し て その 方 向 に 色 の 違う 部 分 を 移動 し 
£ 

HELT, 電気 ピア ノ (ロー ズ の つも 5 


と 同様 に 番地 を もって いま す 。 こ の 番地 が ル な どの パラ メー タ の ほか に , まだ 説明 し な ん で す が ) の 音 を 出し て み ま し ょ う 。 表 
ME OA а p xm トラ ン ペ ッ ト | クラ リネ ッ ト | エレ キ ギ ター | Е 8 
2 | パラ メー タ Же 2 | 2 | 2 | 2 | 
TA uS ЭЙЕ; 10 | Жо Доу reu | | 2 | | | | 4 
Jy oun ota 0 0 デ チ ュー ン 7 3 | 0 0 EN GST | 
トー タル ・ レ ベル 45 25 トー タル ・ レ ベル | 26 16 3I 16 20 16 4 12 
アタ ッ ク ・ レ ー ト 3I 3I アタ ッ ク ・ レ ー ト 17 17 17 17 3I 3I 3I 24 
ディ ケイ ・ レ ー ト 18 10 ディ ケイ ・ レ ー ト 7 8 7 8 12 8 10 12 
サス ティ ン ・ レ ー ト 0 8 サス ティ ン ・ レ ー ト 5 0 0 2 | 8 9 
サス ティ ン ・ レ ベル 15 5 サス ティ ン ・ レ ベル | | 2 | 10 15 9 9 
リリ ー ス ・ レ ー ト 0 8 リリ ー ス ・ レ ー ト 7 6 7 6 6 5 0 8 
表 1 音色 デー タ の 例 (電気 ピア ノ ) 表 2 音色 デー タ の 例 
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1 の よう に 値 を セッ ト し て くだ さい 。 音 
の デー タ が で きた ら , 次 は プレ イモ ー ド で 
実際 に 音 を 出し て 音色 を 確認 し ます 。 テ ン 
キー の 2 を 押し て くだ さい 。 表 の 数 字 が す 
べ て 白く な りり まし た ね 。。 こ れ で プレ イモ ー 
ド に な り ま し た 。 キー の 配列 は 図 1 の よう 
に な っ て いま す 。 こ の よう に , キー ボー ド 
を 自 鍵 と 黒 鍵 に 見 立て て 弾く わけ で す 。 

どう で すか 。 それら し い 音 で は ある と 思 
う の で す が 。 

この 時 点 で , 音 が 自分 の イメ ー ジ し て い 
る 音 に 合わ な けれ ば , テン キー の 1 で ふた 
だ たび ぴ エディ イッ トモ ー ド に も どっ て パラ メー 
タ の 値 を 変更 し ます 。 こ の 作業 を 納得 の い 
《 ま で 繰り 返し , 自分 の も っ て いる 音 の イ 
メー ジ を 具体 化し て いく の が 音 を 作る プロ 
セス な の で す 。 

この プロ グラ ム を 使う 上 で 注意 し な けれ 
ば な ら 6 な いこ と は キー ボー ド が アル ファ で ベ 
ッ ト の 大 文字 の モー ド ,。 ある い は カナ モー 
ド に な っ て いな いこ と を 確認 する こと で す 。 
も し カナ キー が ロッ ク さ る され て いた ら , 必ず 
解除 し て お きま す 。 そ うし な いと , プレ イ 
モー ド で キー を 受け つけ な く な っ て し まう 
か ら 65 で す 。 また, 同じ キー を 何 度 も 押し た 
場合 に 音 が 出 な に こと が あり ます が , これ 
は バグ で は あり ませ ん 。 キ ー 入 力 を 
INKEY$ で 読ん で いる た め に , や む を ぇ ず 
こう な っ て し まっ た の で す 。 悪し か ら ず 。 

$C, 表 の 中 に まだ 説明 し て いな い ノ パラ 
メー タ が あり ます の で , これ に つい て 説明 
Cello heure by 

まず デ チ ュー ン で す が , これ は マル チ プ ル 
で 決ま る 各 オ ペレ ー タ の 周波 数 比 え ほん の 
わずか だ けず ら す 働き を 持っ て いま す 。 周 
波数 比 を 少し だ けず ら す と , フラ ンジ ング 
効果 の よう な うな りや 複数 の 楽器 が 鳴っ て 
いる よう に 聞こ える コー ラス 効果 を 出す こ 
Lb m3. 

残り の デー タ は すべ て エン ベロ ー プ の 形 
を 設定 する パラメータ で す 。 図 I OPN 
で 作れ る エン ベロ ー プ を 一 般 化 し た も の で 
す 。 ア タッ クレ ー ト は 図 の アタ ッ ク 部 分 の 
жо, つま り ど の くら い の 時 間 で アタ ッ ク 
の 部 分 を 出力 し 終わ る か を 示し て いま す 。 
タッ クレ ー ト が 天 き けり ば ビ ガ ク の よう 
に 立ち 上 が り の 鋭い (速い ) 音 に な り ま すし , 
小さ けれ ば バイ オリ ン の よう に 立ち 上 が り 
の ソフ ト な (遅い ) 音 に な り ま す 。 以下, O 
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図 1 キー の 配列 


kk» S 8 — ¥ Y— DO AVH 


KEY OFF 


M2 エン ベロ ー プ ジェ ネ レ ー タ の パラ メー タ 


〇 レー ト は すべ て 「 〇 〇 の 速 き 」 と い うぅ 5 意味 
の パラ メー タ で す (v—htkiikSO-L 
で すか ら )。 

最後 に サス ティ ン レ ベル が 残り まし た が , 
これ は 図 2 の よう に ディ ケイ か ら サ ステ ィ 
ン に 移る と き の エ ン ベ ロ ー プ の 大 き さ を 表 
し て いま す 。 た だ だし, 同 図 を 見 て も 分 か る 
よう に , この パラ メー タ は トー タル レベ ル 
と 同様 , 減衰 量 で すか ら 注 意 し て くだ さい 。 

いずれ に し て も , エン ベロ ー プ の 設定 は 
慣れ な いう ち は 大 変 で びす から 6, エン ベロ ー 
プ の 図 を 実際 に 書い て それ を 数 値 に 直し て 
いく の も 1 つの 方 法 だ と 思い ます 。 

ELEC, 各 パ パラ メー タ の 説明 を 終わ り ま 
す が , 最後 に 音 作 り の 具体 的 な 例 を いく つ 
か あげ て お きま す ( 表 2)。 

大 切な の は , ここ に あげ た パラ メー タ を 
その まま 使う こと で は あり ませ ん 。 い ろ い ぃ 
ろ と デー タ の 数 値 を 変 た て みて , それ が ど 
の よう に 音 に 反映 する か を 自分 な り に 確か 
め る こと で す 。 そ うす る こと が ,FM 音源 を 


理解 する 近道 だ から で す 。 


今月 の プロ グラ ム で は オペ レー タ を 2 つ 
し か 使い は せん で し た が , OPN に は 1 音 
当たり 4 個 , 計 12 個 の オペ レー タ が 用 意 き 
れ て お り , これ ら を 組み 合わ せ た 使 用 が 可 
能 な の で す 。 組み 合わ せ 方 は 8 通り あり , 
それ ぞ れ 合成 する 音 に 向き , 不向き が ある 
の で す 。 

この よう に , OPN に は まだ 使っ て いな 
い パ ラメ ー タ や 機能 が た くる ん あり ます 。 
そこ で , 来 月 は 今月 の プロ グラ ム の 拡張 版 
を 使っ て , OPN の 能力 を フル に 活用 し た 
場合 の 音 作り の 方 法 を 解説 し て いく 予定 で 
Hs 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1109 
1118 
1120 
1130 
1140 
1150 
1160 
1178 
1130 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1318 
1320 
1330 
1340 
1350 
1360 
1378 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1518 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1600 
1618 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
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REM * Monophonic Synthesizer x 
REM + ж 
REM + For PC-8801mk2 v2 MODE x 


REM  33€3 E E 3€ эе E E ЭЄ ЭЕ E ЭЄ  K ЭЄ E € ЭЕ ЭЄ ЭЕ E E ЭЕ E E ЭЕ ЭЕ JE ЭЕ JE ЭЕ ЭЕ ЭЕ 
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REM »eexexxxxx* initialize wwwwwwww 


NEW CMD 
DEFINT V 
DIM A(11),C(255).D(255).E(3.10).F(255).MÀX(1.7).V(4.9) 
FOR I=0 TO :37 
READ C$: N=ASC(C$): READ C(N),D(N) 
NEXT 
FOR 1=1 TO 7 
READ D: F(D)*I 
NEXT 
FOR 1=0 ТО 1 
RESTORE 2190 
FOR J=0 TO 7 
READ MAX(I,J) 
NEXT 
NEXT 
CONSOLE 0,25.0.1: WIDTH 40.20: COLOR 5: CLS З 
LINE(56.5)-(576,145),5,B 
LINEC312.5)-(312..145),5 
LINEC312125)*(572525) 45 
LINE(C56,45)- (572.452.7.5 


PRINT 

PRINT " Operator" 
PRINT " Parameters" 

PRINT " 2 I^ 
PRINT е 

PRINT " Multiple 

PRINT " Detune 

PRINT " Total Level 

PRINT " Attack Rate 

PRINT " Decay Rate 

PRINT " Sustain Rate 

PRENT =" Sustain Level 

PRINT " Rerease Rate 

PRINT " 

COLOR 7 

FOR J=0 TO 7 


FOR 120 TO 1 

LOCATE 24*6xlI.5*J: PRINT "0" 
NEXT I 
NEXT J 


e x3xo0000000€ カー ソル ルー チン xooo00099x** 


1=0: J=9: X-22: Y=5 

COLOR 6: LOCATE X,Y: PRINT USING"###";E(I,J); 
A$=INKEY$ : IF A$4»"" THEN 1540 

A$=INKEY$ : IF A$-"" THEN 1550 ELSE A-ASC(A$) 
IF F(A)=0 THEN 1558 

COLOR 7: LOCATE X,Y: PRINT USING"iHHI" ;ECI J2 ; 
ON F(A) GOTO 1636,1650,16780,1699.1710,1738.1760 
Х=22+6%1 

Y=5+J 

LOCATE X.Y: COLOR 6:PRINT USING"###";E(1,J);: GOTO 1540 
J=J-1: IF J<9 ОВ J>7 THEN J=J-SGN(J)#8 

GOTO 1600 

1=1+1: IF 1<0 OR 1>1 THEN I21I-SGN(CI)«2 

GOTO 1688 

J=J+l: IF J<9 OR J?7 THEN J2J-SGN(J)*8 

GOTO 1600 

1=1-1: IF 1<0 OR I?1 THEN 1=1-563(1)%2 

GOTO 1600 


ECI JJ El E, J)*1: IF ECI.J)€0 OR ECI.J)oMAXCI.J) THEN ECI.J)7ECI,J)-SGN(CE(I, 


J))w(MAX(i,J)+1) 


1720 
1730 


GOTO 1600 


ECI.J)5ECI ,J)-1: IF E(1.J) く <9 OR E(I.J)>2MAXt(I.,J) THEN ECI.J)7ECI.J)-SGNCE(CI, 


J))w(MAX(I.J)+1) 


1740 
1758 
1760 
1770 


GOTO 1600 


xu EIEI ルー チン xxx**«xx* 
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V(0.0)=0: V(2.5)=127 

FOR K=3 TO 4 
VCK, 7) 5ECK-3, 0) 
V(K,8)=E(K-3.1) 
V(K.5)=E(K-3.2) 
V(K,0)=E(K-3.3) 
V(K,1)=E(K-3,4) 
V(K,2)=E(K-3,5) 
V(K,4)=E(K-3,6) 
V(K,3)=E(K-3,7) 
NEXT K 

CMD VOICE V 

— HHHH キー ホ ~ー ト ~ ルー チン xxxxxxx* 

A$=INKEY$ : IF A$-"" THEN 2000 ELSE A9=ASC(A$) 

IF A9=49 СОТО 1530 

B=A: A-AQ 

IF C(A)=9 GOTO 1938 

IF A=B THEN 2020 

CMD VOICE REG 40,0: CMD VOICE REG 164,C(A): CMD VOICE REG 160,D(A) 
C=0: CMD VOICE REG 40,240: N=0: GOTO 1930 

N=N+1: IF (N>4 AND N<25 AND С=1) OR №35 THEN CMD VOICE REG 40,0 
GOTO 1938 

IF (N>4 AND М<25) OR N>35 THEN CMD VOICE REG 40,0: GOTO 1990 

C=1: N=0: GOTO 1930 

` KR P-R- 7 テー ター HHHH 

DATA Z.20,14,s,20,76,x,20,142,c,26,105,f,26,142,v,26,181,g,26,222,b,27,18 
DATA n,27,56,j,27,105,m,27,157,k,27,212,",",28,14.1,28,76,".",28,142,/,34 
DATA 105,":",34,142,q,34,181,2,34,222,w,35,10,e,35,56,4,35,105,r,35,157,5 
DATA 35,212,t,36,14,6,36,76,y,36,142,u,42,105,8,42,142,i,42,181,9,42,222 
DATA 0,43,10,P,43,56,-,43,105,@,43,157,^,43,212.[,44,14,¥,44,76 


HHHH 7)—\)], / テー ター 5533435333 


РАТА 53,51,44,49,120,122,50 


3yX300000000€ CID 7 テー ター )(X9xxex 


DATA 15,7,127,31,31,31,15,15 
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は じ め に 


前 回 は で は オペ レー タ を 2 つ だ け 使 用 し 
て , FM 音源 の 原理 を 探っ て きま し た ( 図 
1 ) 。 オペレータ 2 つ だ け で , こん な に も る 
ま ざ ま な 音 が 出る も の だ と いう こと も 分 か 
ら て で てい だ だ けた だ と 二 い ます 。 

この よう に , オペ レー タ の 数 を 限定 し た 
音 作 り は FM 音源 を 使い こなす 上 で 最も 
基礎 的 な も の で すか ら , る さらに 2 オペ レー タ 
に よる 音 作り の コツ に つい て 触れ て お こう 
と 思い ます 。 そ し て , その あと で FM 音源 
を 理解 する 上 で の 最大 の ヤマ 場 で ある コネ 
クシ ョ ン に つい て 説明 し て いき ます 。 


マル チ ブ ル と 
トー タル レベ ル 


まず , 音色 を 決定 する 上 で 最も 大 き な 影 
響 力 を も つ パ ラメ ー タ と し て , マルチ プル 
と トー タル レベ ル が あげ られ ます 。 フ パラ メ 
ー タ に つい て の くわ し い 説 明 は 前 々 回 に あ 
り ま す が , この 2 つ は 主として 持続 音 , エ 
ン ベ ロ ー プ で いえ ば サス ティ ン 部 分 ( 図 2 ) 
の 音色 に 大 き な 影 響 を 与え を ます 。 さ ら に く 
わし くい えば , 持続 音 の 音色 の 大 体 の 傾向 
は マル チ プ ル で ほとん 決ま り , トー タル 


斉 作り の ポイ ント 


図 1 オペ レー タ の 接続 例 


レベ ル は その 傾向 を 強め た だ た り 弱 め た だ た りす る 
役目 を 果たす と いう こと で す 。 

前 回 の 音色 デー タ の 中 に , それ を よく 表 
し て いる 例 が あり ます ( 表 1)。 

トラ ン ペ ッ ト と クラ リネ ッ ト の デー タ を 
ょ よく 見 比べ て 《 だ さい 。 こ の 2 つの 音色 デ 
ー タ の 違い は , ご く 大 ざっ ぱに いっ て オペ 
レー タ 2 の マル チ プ ル だ け で す 。 こ の よう 
に , 値 が 1 違う だ け で まっ た く 別 の 楽器 の 
よう に 聞こ を て し まう ほど , 音色 に 与え る 
影響 が 大 きい の で す 。 

また , マル チ プ ブル の 値 は 一 般 に 変調 を か 
ける 側 , この 場合 は オペ レー タ 2 を か けら 
れる 側 よ り も 大 きく し ます 。 

こう いっ だ こと は 言葉 で 説明 し て も 分 か 
り に くい の で , マル チ プ ブル が 変わ る と 実際 
に 音色 が どう 変化 する の か を , 前 回 の モノ 
フォ ニッ クシ ン セ サイ ザ の プロ グラ ム て で 試 
LC c CE Sv. 

まず クラ. ネッ ト の デー タ を セッ ト し 
て か ら , オペ レー タ 2 の マル チ プ ブル を 0 か 
ら 15 ま で 順に 変 た を, それ ぞ れ の 場合 の 音色 
を 確か め ま す 。 こ うし て 実際 に 音 を 聞い て 


みる と, 楽器 の 斉 を まね る と いう こと に 限 


っ て いえ ば, オペ レー タ 1 の マル チ プ ル が 


1 で ある 場合 , オペ レー タ 2 の マル チ プ ル 
を 1 一 4 程 度 に し た 音 が , 普段 耳 に する 楽 
器 の 音 に 近い と いえ ます 。 
ご の よう に , 多く の 場合 
オペ レー タ 1 の マル チ プ ル 

< オペ レー タ 2 の マル チル 
な の で す が , この 関係 を 逆 に する と いっ た な だ 
い ど うな る の で し ょ うか 。 実際 に や っ て み 
て 《 だ さい 。 


(実際 に は この 部 分 が 
圧倒 的 に 長い ) 


KEY ON 
(弾き 始め ) 


KEY OFF 
(弾き 終わ り ) 


図 2 エン ベロ ー プ の サス ティ ン 
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どう で す ? 独特 の 音 に な っ た と 思う の 
で す が …。 音色 デ ー タ 表 に も この 効果 を 利 
用 し た 例 が あり ます 。 琵琶 の データ が それ 
本 当たり の ます 

この よう 8 

オペ レー タ 1 の マル チ プ ルル 
> オペ レー タ 2 の マル チ プ ル 
に し た 場合 , 琵琶 や シタ ー ル , ある い は ハ 
ー モ ニカ の よう な タイ プ の 倍音 (コラ ム 1 ) 
を も つ 楽 器 を まね る こと が で きま す 。 

ЖЕ, トー タル レベ ル に つい て の 注意 点 
сдаст D. 

何 度 か 触れ た よう に , トー タル レベ ル は 
減衰 量 で す 。 一 言 で いえ ば , 値 に マイ ナス 
符号 を つけ て 考え る と いう こと で す 。 つ ま 


り , 値 が 大 きい ほど オペ レー タ の 出力 は 小 
る きく な る の で す 。 したがって, トー タル レ 
ベル の 値 が 0 の と き に , オペ レー タ の 出力 
は 最大 に な り ま す 。 

まだ た , トー タル レベ ル の 値 を あま り 小 きる 
《 し すぎ な い , すなわち オペ レー タ の 出力 
を 大 きく し な いよ う 気 を つけ ます 。 音 が 歪 
ん だ で 、 じ まう の 3 ら て 338 

も っ と も , 場合 に よっ て は この 歪み を 音 
作り に 積極 的 に 利用 する こと も あり ます 。 
だ た と えば , 琵琶 の 音色 デー タ は 明らか に わ 
る と 條 ま は ませ て いる 6 の で す 。 と そう する こと 
に よっ て , より リア ル な 琵琶 の 音 に 近づけ 
て いる わけ で す 。 

さら に , 既成 の 楽器 を まね る の で は な く , 


まっ だ た 《 オ リ ジ ナ ル な 音 を 求め る 場合 で も , 
歪み を 増し て 力強い 音 を 作り 出す と いう こ 
と が 考え られ ます 。 も っ と も , や りす ぎ は 禁 
物 で す が …。 

いずれ に せよ , トー タル レベ ル を いろ い 
ろ な 値 に 変え て , 歪ん だ 場合 し そう で な い 
場合 の 音 を 聞き 分 けら れる よう に する こと 
が 大 切 で す 。 な ぜ か と いう と , ある 具体 的 
な 値 以 下 で 音 が 歪む と 簡単 に は 決め つけ 6 
れ な いか ら で す 。OPN に は オペ レー タ が 
1 音 あ た り 4 個 あ り (これ まで は を その 中 の 
2 つ だ け を 使用 し て きた わけ で す ), その 接 
続 方 法 ( コ ネ ク シ ョ ン ) が 8 通り あり , それ 
に よっ て 人 輸 み や すい 場合 し そう で な い 場 合 
が ある の で す 。 


トラ ン ベ ペッ ト クラ リネ ッ ト エレ クト リッ クギ ター | EE = 
r 
2 2 | 2 | 2 | 
р + + 
| 2 | | | | 4 
7 | 0 0 0 3 | 
トー タル レベ ル 26 16 31 16 20 16 4 12 
アタ ッ ク レ ー ト 17 W 17 17 31 31 31 24 
ディ ケイ レー ト 7 1 8 12 8 10 12 
サス ティ ン レ ー ト 5 7 0 2 | 8 9 
サス ティ ン レ ベル | 2 | 10 15 9 9 
リリ ー ス レー ト " 7 6 6 5 0 8 
表 1 音声 デー タ 例 
クト リッ クギ ター の デー タ に 注目 し て くだ どの 差 が あり ませ ん 。 も ちろ ん 。 まっ た く 
さい 。 トー タル レベ ル や マル チ プ ル に は 大 差 が な が いわ け で は あり ませ ん し , 音 に よっ 
` At 
エン ベロ ー プ き な 差 は あり ませ ん が , エン ペロ ー プ デー て は 音色 の 時 間 的 な 変化 と 音量 の 時 間 的 変 


デー タ 


この よう に , マル チ プ ブル や トー タル レベ 
ル は 音色 を 決定 づけ る 最も 重要 な パラ メー 
タ で す が , エン ベロ ー プ デー タ も 大 切 で あ 
る こと は いう まで も あり ませ ん 。 エ ン ベ ロ 
PAT ACRI Ay Z CEN ディ ケイ 
ЕО AU AU WATA TE 
—h リリ ー ス レー ト の 5 つの パラ メー タ 
が あり ます 。 

一 言 で いえ ば , エン ベロ ー プ デー タ は 音 
の 表情 に 影響 を 与 を る パラ メー タ で す 。 
表 1 の 音色 デー タ の トラ ン ペ ッ ト と エレ 
258 


AEI oR RIP GER じ だ が づ で , ト こ 
の 2 つの 楽器 の 違い は エン ベロ ー プ デー タ 
に 集約 され て いる わけ で す 。 

ix, 図 1 の 接続 で は オペ レー タ 2 の エ 
ン ベ ロ ー プ デー タ が 音色 の 時 間 的 変化 を , 
オペ レー タ 1 の エン ベロ ー プ デー タ が 音量 
の 時 間 的 変化 を 与え を て いる こと に な り ま す 


「 Фао p RUN ЖА $ 


時 間 的 変化 は 同時 に 起こ る の で す 。 これ は 
音 の 大 きる と 音色 の 明る さる を 対応 づけ た 表 
現 で す が , この 2 つの エン ベロ ー プ デー タ 
は ある 程度 一 致す る は ず で す 。 

た と えば , トラ ン ペ ッ ト , クラ リネ ッ ト 。, 
エレ クト リッ クギ ター と も エン ベロ ー プ デ 
РА ВЕ, КОЗЕ АРА ев" 


化 が 同時 に 起こ ら な いも の も 当然 あり ます 。 
そして, この わずか な 差 が その 楽器 の 音色 
を 特徴 づけ て いる 場合 も 多い の で す 。 

トラ ン ペ ッ ト の デー タ の オペ レー タ 1 の 
уд л Ал ү Ж. шу тел, OES АЙ 
バイ オリ ン ら し き 音 に な り ま す 。 


倍音 の は な し 


お よそ 音程 の ある 音 と いう も の は , JH 
波数 の 異な る サイ ン 波 の 集まり と 考え ら 
れ ま す 。 し か し , 音程 すなわち 周波 数 は 
1 つの 音 に 対し て 1 つ 存 在 す る も の で す 。 
し たがっ て , 異な る 周波 数 の 集まり と い 
う の は お か し いで は な いか , そう 思わ れ 
た 方 も いる か も し れ ま せん 。 

と ころ が , この 異な る 周波 数 と は 単に 
周波 数 が 違う と いう の で は な く , 集まり 
の 中 で 最も 低い 周波 数 に 対し て 整数 倍 の 
周波 数 を も つと いう 大 き な 特 徴 が あり ま 
+. 

人 が 音程 を 感じ る の は この 最も 低い 周 
波数 の サイ ン 波 に 対し て な の で す 。 を そし 
C, この サイ ン 波 を 基 音 と 呼び 。 これ よ 
b 周波 数 の 高い ほか の サイ ン 波 を 倍音 と 


呼び ます 。 

音 の 高き (音程 ) は 基 音 の 周波 数 で 決ま 
る わけ で す が , で は 倍音 は 何 の 役割 を 果 
し て いる の で し ょ うか 。 

音色 が それ に 当たり ます 。 こ こ で いう 
音色 どい 2 言葉 は 音色 パラ メー タ な ど で 
使う 意味 合い と は 若干 異な り ま す 。「 明 る 
ode, 暗い 音色 」 と いっ た と き の 音 色 
で す 。 前 者 を 「 な ん し ょ く 」, 後者 を 「 ね 
いろ 」 と 読み た いよ うな 気 が す る の で す 
AMI S 5 азр m 

この 音色 , 正確 に は 倍音 の 周波 数 と 音 
量 で 決ま り ま す 。 色彩 に な どら えれ ば , 
許 音 の 周波 数 が 色 (色相) を , そし て 倍音 

音量 が 明る さる (明度 ) を 決め る と いえ ま 
U 143 


デ チ ュー ン 


前 回 の モノ フォ ニッ クシ ン セ サイ ザ の プ 
ログ ラム に 使用 し た パパ ラメ ー タ の 中 で , を 
の 効果 が 音 に 表れ に くい も の が あり ます 。 
„Н РЕ Жы 4. 

この パラ メー タ は 前 回 説明 し た と お り , 
オペ レー タ の 周波 数 を ほん の わずか ずら す 
こと に よっ て , うな る よう な 効果 を 出す こ 
trg sic 

i mnt S RIN の は 5 に オペ ルー る о, 
し か 用 いな い 場 合 に は , あま り は っ きり と 
し た 効果 が 期待 で きま せん 。 


以上 が , オペ レー タ を 2 つ 使 用 し た 場合 

の 音 作り の 注意 点 で す 。 も ちろ ん , ここ に 
あげ た 注意 点 は これ か ら の オペ レー タ を 4 
っ と も 使用 し た 場合 に も 通用 する こと が は 
К УОК ОЛ 


も っ と 自然 な 
響き を 
E ND 


これ まで の 話 の 中 で 使っ て きた オペ レー 
タ の 接続 ( 図 1) で は , どう し て も 出 な か っ 
た 音 が 随分 あっ た は ず で す 。 

た と えば , アコ ー ス ティ ッ ク な 弦楽 器 の 
音 や フル ー ト を 吹く と き の 息 の も れる 音 な 
EES SEDE е А Je. ERE 
の 厚み と いう 点 で も , いま 1 つも の 足り な 
か っ た と 思い ます 。 そ うい 2 う 意 味 で は , v 
か に も 電子 音 と いっ た 感じ の 軽い 音 で し た 。 

で は , この よう な 欠点 を 改良 する に は ど 
ЭС 6 1050€ EID 

その た だ め の 方 法 ほ と し て 考え ん られ る こと は 
まず ,「 図 1 の オペ レー タ 2 の 入力 に さら に 
別 の オペ レー タ の 出力 を 接続 する 」( 図 3 - 
A) と いう こと で す 。 これ で , さら に 複雑 
な 倍音 を 発生 きせ られ る の で す 。 を その 理由 
は FM 音源 の 原理 に 立ち も どっ て 考え れ 
ば 分 か り ま す 。 


4 月 号 に も 書い た よう に , オペ レー タ の 
中 に ある メモ リ に は サイ ン 関 数 の 値 が 順に 
記憶 きれ て いま す 。 

この デー タ を アド レス の 順に アク セス せ 
T, めちゃ くち ゃ な 順序 一 一 と いっ て も 規 
則 性 は あっ た わけ で す が (4 月 号 参照 ) 一 一 
に 読み 出す こと が , FM 音源 の 原理 で し た 。 

と ころ で , 図 3-A の オペ レー タ 3 と オペ 
レー タ 2 の 部 分 どけ を 見 れ ば , これ は 図 1 
の 接続 と 同じ も の で すか ら オ ペレ ー タ 2 の 
出力 は すでに か な り 複 雑 な 形 を し て いま す 。 

オペ レー タ 1 の 入力 に は この よう に 複雑 
な 波形 が 加わ る わけ で すか ら , オペ レー タ 
1 の メモ リ を アク セス する アド レス の 順番 
の めちゃ くち ゃ き は 図 1 の 接続 の 場合 に 比 
べ れ ば は る か に 複雑 と いえ る で し ょ う 。 す 
る と , オペ レー タ 1 か ら は 図 1 の 接続 に 比 
べ で て より 複雑 な 波形 が 出 て くる こと に な る 
の で す 。 こ の よう な 接続 を 二 重 変調 と 呼び 
Чү 

こう し て 複雑 な 倍音 を 発生 きせ る こと が 
で きる よう に な る わけ で す 。 

まだ, 二 重 変調 より も る ら に 複雑 な 倍音 
を 発生 きせ る た め に , 三重 変調 ( 図 3 -B) も 
考え られ て いま す 。 複雑 な 倍音 を 発生 で き 
る 理由 は 二 重 変調 の 場合 と 同じ で す 。 

ST, この よう に オペ レー タ を 直列 に 接 
続 す る こと を , 直列 接続 と 呼ぶ こと に し ま 
Lx う 。 直 列 接続 が ある の で すか ら , 並列 
接続 びあ っ て も よい の で は な いか , そう 考 
える の は ご 自然 な こと で す ( 図 4)。 

問題 は を の よう な 接続 を し た 場合 , どの 
よう な 音色 に な る か と いう 点 で す 。 結果 は - 
非常 に 単純 で , 接続 きれ た 複数 の オペ レー 
タ か ら の 出力 が 同時 に 聞こ える と いう だ け 
“ы Мк = 

し か し , 複数 の 音 が 同時 に 聞こ える こと 
は 確か な の で す が , 私 た ちの 脳 は その よう 
に 認識 し ませ ん 。 1 つの 音 と し て 聞い て し 
まう の で す 。 な ぜ か と いう と, 接続 きれ た 
オペ レー タ ど うし の 周波 数 比 は 整数 で す が , 
その よう な 音 が 同時 に 聞こ えた 場合 は その 
中 で 最も 周波 数 の 低い 音 を 基 音 と し て , Z 
れ 以 外 の 音 は (その 基 音 の ) 倍 音 し し て 認 
する か ら で す 。 

また だ, 仮に 並列 接続 きれ た だ オペ レー タ の 
周波 数 が すべ て 等 し けれ ば 1 つの 音 と し て 
聞こ を ます が , 周波 数 が ほん の 少し ずつ (1 
Hz 以下 で も 可 ) ず れ て いた 場合 は 複数 の 同 
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じ 高 き の 音 が 鳴っ て いる よう に 聞こ ぇ ます 。 
これ を デ チ ュー ン 効 果 た い いま す 。 こ の 効 
Rl, オペ レー タ の デ チ ュー ン を 使え ば 出 
すこ と と が で きま す 。 

この よう に , オペ レー タ を 接続 する 方 法 
と し て は , 基本 的 に は 直列 接続 と 並列 接続 
が あり ます が , 実際 に は どちら か 一 方 の み 
で 音 作り を する と いう の で は な く , この 2 
つの 接続 を 組み 合わ せ て 使用 し ます 。 そ し 
T, コネ クシ ョ ン と いう パラ メー タ で どの 
接続 を 選ぶ か を 決め る の で す ( 図 5)。 

この 図 を 見 る と , オペ レー タ の 番号 の つ 
け 方 が いま まで と は 異な っ て いま す 。 し か 
L, OPN の マニ ュ ア ル な ど で は この 番号 
の つけ 方 を 採用 し て いる の で , 今後 は こち 
ら の 番号 を 使用 し ます 。 混乱 し な いよ うに 
し て 《 だるい 。 

ST, 図 5 で は どの コネ クシ ョ ン で も オ 
ペレ ー タ 1 の 出力 が 入力 に も どき され て いる 
よ うに 書か れ て いま すね 。 一般 に , 出力 を 
入力 に も どす こと を フィ ー ド バッ ク と いい 
ます が , この 場合 は 元 ほ オペ レー タ 自 身 に 
も ど し て いる の で セル フフ ィ ー ド バッ ク と 
いい ます 。 

この よう に する と , 音色 は どう な る の で 
Uy лыклы Шш Е cC:o& 
に する べ でき な の か 考え て み ま し ょ う 。 

実は , これ も より 自然 な 響き を 得る た め 
の 方 法 の 1 つ な の で す 。 こ の よう に し た 場 
合 の オペ レー タ の 出力 は , ノコ ギリ 波 と 同 
じ 倍 音 構成 に な り , 音色 が 独特 の 明る さ を 
も つよ うに な り ま す 。 出力 が ノコ ギリ 波 と 
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同じ 倍音 構成 に な る こと を 説明 する に は 
数 学 を だ 用 いな けれ ば な り ま せん の で ここ で 
は 省略 し ます が , 直列 接続 の 場合 と 同じ よ 
う に FM 音源 の 原理 に 立ち も どっ て 考え 
れ ば 感覚 的 に は 理解 で きる で し ょ う 。 

つま り , その オペ レー タ 自 身 の 出力 が 入 
MEZA а РАКС Su sus b Sto G; 
サイ ン 関 数 を 読み 出す 順番 が めちゃ くち ゃ 
に な る の で す 。 た だ し , その めちゃ くち ゃ 
き の 質 が 直列 接続 の 場合 と は 異な る の て, 
出力 結果 も 異な る わけ で す 。 

OPN で は フィ ー ド バッ ク の 量 を セル フ 
フィ ー ド バッ ク と いう パラ メー タ で 表 じ , 
0-7 の 8 段階 の 調節 が で きま す 。 0 の 場 
合 は セル フフ ィ ー ド バッ ク が な いこ と に な 
り ま す 。 


お わり に 
к к — 3 


これ で , や っ と FM 音源 を 理解 する 上 で 
の 峠 を 越え を まし た 。 あ と は , どの よう な 音 
を 作り た いと き に どの コネ クシ ョ ン を 選べ 
ば よい の か を 考え る だ け で す 。 

ih, 先月 の 予定 で は モノ フォ ニッ クシ 
ン セ サイ ザ の プロ グラ ム を 掲載 する 予定 で 
し た が , 誌面 の 都合 で 今回 は 掲載 びき ませ 
ん で し た 。 来 月 発表 いた し ます 。 


図 3 二 重 変調 と 三重 変調 (数 字 は オペ レー タ 番 号 ) 


直列 接続 (n<4) d 


並列 接続 (0PN で は m ミ 4) 


図 4 オペ レー タ の 直列 ・ 並 列 接続 


オペ レー タ の 接 統 


オペ レー タ の 接続 


コネ クシ 
ョ ン の 値 
0 
1 
2 
3 


図 5 コネ クシ ョ ン 


SP 
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RE. 


ハバード を 製作 する 


1984 年 9 月 号 
1984 年 10 月 号 
1985 年 2 月 号 


1985 年 3 月 号 
1984 年 7 月 号 


1984 年 / 月 号 一 1985 年 3 月 号 


拡張 ROM ボ ー ド の 製作 < ハー ドウ ェ ア 編 > 
拡張 ROM ボ ー ド の 製作 < ソフ トウ ェ ア 編 > 
音声 認識 ボー ド の 製作 

音声 合成 / 認 識 シ ステ ム の 製作 

「 マ ジッ クス ティ ッ ク 」 の 製作 と 「 マ ジッ クベ ペイ ント 」 
PC-8801 に CMD SING ボ ー ド を 


で 
dá 
а жшше 8 


ê 崎 E 


\ー ド で マシ ン 8 


1984 年 9 月 掲載 


/ 語 に 強く な ろう / 


ハー ドウ ェ ア 編 


2 А52 `ЕР-КОМ 54 5" の 製作 記事 
を 発表 し て , 早く も 半年 が 過ぎ まし た 。 Z 
回 は , ROM ライ タ で プロ グラ ム を 書き 込 
ん だ ROM を PC-8801 上 で 利用 する た め 
D “ROM ボー ド ” を 作っ て み ま し ょ う 。 
ROM ボー ド は パッ コン 周辺 機器 の 工作 の 
中 で も 作り や すい も の の 1 つ で , マシ ン 語 
の 勉強 に も な り ま す 。 テ ー プ ユー ザー の 人 
は と くに プロ グラ ムロ ー ド の 手間 が 必要 あ 
り ま せん か ら 便 利 で し ょ う 。 


ROM ボ ー ド 
と は 


ユー ザー ズ マ ニュ アル に も ある よう に , 
PC-8801 に は 7 バン ク 分 の 拡張 ROM エリ 
ア が あり ます 。 バ ンク 切り 替え ん によって, 
テキ スト エリ ア の 6000- 7 FFFH が この 
拡張 エリ ア と し て 使用 で きま す 。 8 KK バイ 
ト 単 位 で 7 バンク, つま り 56K バ イト 分 を 
ROM で 使用 で きる わけ で す ( 図 1)。 

前 回 (2 月 号 ) で 2764EP-ROM 専用 の 
ROM ライ タ を 作り まし た の で , 今回 は 8 
K バ イト ROM を 7 バンク 分 , つま り 2764 
を 7 個 使用 し た ROM ボー ド を 製作 し ます 。 

写真 が ROM ボー ド の 外観 で 一 見 複雑 を 
う で す が , 基本 的 な IC の み を 使っ て いま 
す 。 配線 も 同じ よう な パタ ー ン の 繰り 返し 
が ほとんど で す 。 根気 よ く ピ ン と ピン を 接 
続 す れ ば で きま すか ら , 工作 の 練習 の つも 
り で 作っ て くだ さい 。 な お , 今回 は ROM R 
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ー ド の ハー ド 製 作 ほ と ROM ボー ド 使 用 の た 
め の コ ント ロー ル ソ フ ト の 紹介 を し , 応用 
ツン フ ト の 詳細 は 来 月 解説 し ます 。 


製作 開始 
E パ 


ROM ボー ド の 回 路 図 が 図 2 で す 。 工作 
に 慣れ た 方 な ら 6, この 回 路 図 と 図 3 の ピン 
コネ クシ ョ ン か ら 製 作 で きる と 思い ます 。 
も ちろ ん , 初心 者 に も 製作 で きる よう , て 
いね い に 説 明 し て いき ます 。 だ だ し , ЕР- 
ROM ライ タ を 作っ た 方 と いう の が 前 提 で 
ў. тж 

製作 に 必要 な 部 品 を や 表 1 に まとめ て み ま 
し た 。 この ROM ボー ド は PC-8801 の スロ 
ッ ト に 差し 込ん で 使い ま は すか ら 6, 8801 用 ユ 
ニ バ ー サ ル ボ ー ド を ベー ス と し ます 。8801 
用 で あれ ば どの メー カー の も の で も いい の 
で す が , 私 は ガラ スエ ポキ シ 製 の 両面 スル 
ー ホ ー ル 基板 で あり な が ら 価 格 の 安い 秋月 
電子 の ボー ド を 使い まし た 。 ま た , この ボ 
ー ド は 穴 が 蛇の目 状 な の で , IC を 配置 し や 
まい よう で す 。 

ST, 部 品 が そろ っ た ら 6 配線 で す 。 実体 
配線 図 は 線 が 多 す ぎ て か えっ て 分 か り に 〈 
いと 考え , 代わ り に 部 品 配置 図示 し ます 。 
① 部 品 の 配置 

図 4 の 部 品 配置 図 に 従っ て , IC を ユニ バ 
ー サ ル ボ ー ド 上 に 配置 し て みて くだ さい 。 
この 工作 で は , EP-ROM 問 が で きる だ け 短 


Ç 簡潔 な 配線 に な る よう に , また 周辺 の IC 
間 の 配線 も 同様 に 短く な る よう に し まし た 。 
(② 電 源 部 の 配線 

誤 配線 で も, IC 間 の ピン の まち が いな ど 
は 大 丈夫 で す が , 電源 関係 の エラ ー は 致命 
的 で す 。 を そこで 私 は , 電 源 ・GND 関係 の 配線 
は 最初 に すべ て すま せ て お く こ と に し て い 
23: 

念入り に 配線 ミス を も チェック し て くだ きる 
ЫРА 
@ IC 間 の 配線 

電源 関係 が 終わ っ た ら , あと は 回 路 図 t 
ピン 配置 図 を 見 比べ な が ら , ピン と ピン の 
接続 を 行い ます 。 回 路 図 を 1 枚 コ ピー し て 
お き , 1 本 配線 する ご と に 回 路 図 の 該当 部 
РУЫ УА k 542 2 
Fo これ で , 配線 も れ を 防ぐ こと が で きま 
+ 
④ 配 線 チ ェ ッ ク 

配線 の チェ ッ ク の 仕上 げ は VCC—-GND 
間 で す 。 シ ョ ー ト し て いな けれ ば ほ ば ぼ 大 丈 
夫 で す 。 
スロ ッ ト 装 着 テ スト 

で きた ボー ド を 拡張 スロ ッ ト に は め て み 
ます 。 まず , ROM を の せ ず に 周辺 IC のみ 
で 電源 を 入れ , PC-8801 が うま く 動 く か ど 
うか 確認 し て くだ きい 。 大 丈夫 の ょ うな ら 
書き 込み ずみ の КОМ を ツケ ッ ト に 差し 込 
AGUA Ud. テス ド の 旋法 な ど に つ 
いて は あと で まとめ て 説明 し ます 。 


ROM ボ ー ド の 
選択 


PC-8801 の ROM エリ ア は , バス スロ ッ 
ト の ROM KILL 信号 の 働き で , 拡張 
ROM に 切り 替 を た を る こと が で きま す 。 

ここ で , ШЕ КОМ の た め の 1/O ポー ト 
アド レス と デー タ ( 図 5) を 紹介 し ます 。 
この 1/O ポート の デー タ が 1 ビッ ト で も 
LOW に な っ て いる と, 入力 信号 で ある 
ROM KILL 信号 に よっ て 拡張 ROM の 1 
つが セレ クト きる れ ま す 。 

Ax 


OUT &H71, &HFF 


で は 図 5⑦ の よう に な っ て いる の で , 拡張 
ROM は セレ クト る れ ま せん 。 そこ で 
OUT &Н71, 


& HFD 


を 実行 し ます 。 拡 張 ROM の 1 が モレ クト 
され る は ず で す ( 図 5⑦)。 表 2 に デー タ 対 
応 表 を 示し て お きま す 。 セ レク ト し た い 
ROM に 応じ た 値 を 入れ て くだ きい 。 

KU Nsas-BASIC の 働き を 説明 し ます 。 
BASIC で は , 電源 投入 時 に 拡張 ROM が ボ 
ー ド 上 に の っ て いる か の チェ ッ ク を する の 


で す 。 図 6 の よう な 処理 フロ ー で 動作 し ま 
す 。 つ まり , ROM の 先頭 に ^R 4” が 書き 
込ま れ て いる と, 自動 的 に 3 バイ ト 目 以降 
を 実行 し ます 。 を そし て , すべ て の КОМ に 
つい て チェ ッ ク を 終了 する と , BASIC に も 
どる よう に な っ て いま す 。 

一 方 , ボー ド 側 か ら 見 る と , 電源 投入 直 


IC 唱 名 а 数 
74LS04 の 
7407 | 
741 530 2 
74LS32 6 
74LS74 4 
Е 7415125 2 
7415245 | 
M5L2764K er | 


FFFF 
G-VRAMO 
( 青 ) 
C000 
83FF 
8000 
7FFF 
6000 
` N-BASIC 
ROM 


表 1 部 品 表 ( こ れ に 加え , ボー ド , ROM ソ ケッ ト , パス コン デン サ が 必要 ) 


кер Гу gemi 

Nas- BASIC IROMI КОМІ ROM | ROM 1 ROM! КОМІ ROM | 
ROM | qb o? 3*4 kus E 64 71 
L. нең кигу кашу уңа коша 


拡張 ROM(7 バ ンク ) 
8K バ イト メ 7=56K バ イト 


G-VRAMI G-VRAM2 
(Ж) (Ж) 
Nss-BASIC 
ROM 


図 1 PC-8801 メ モリ レイ アウ ト 
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0057101 - ty 159 
01 
о | E 
E, pci 257101 
Басра 
шы 
2. mE 
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EE RN 
dm 
CA EE 
: r БЫ: еа 8 
[его 20 
ыза 
287101 28701 ESL OE ® Ш 
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図 2 全 回 路 図 
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VCC PWM NC A8 A9 All OE А!0 CS D7 D6 D5 D4 D3 


2164 


VPP AI2 A7 A6 А5 A4 АЗ A2 АІ AO DO DI D2 GND 


VCC 4B 4A 4Y 3B ЗА 


74LS74 


74LS30 


図 3 使用 IC の ピン コネ クシ ョ ン 


74LS32 


74LSI25 


74LS04 
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後 は 74LS74 の Q の 値 が L し に な っ て いま す 。 
こ の 74LS74 は 1 ~7 の ROM 選択 の デー 
Z を 保持 し て いま す 。 74LS30 は 値 が に な 
っ て いま すず 。 ここ で 先ほど の 。 

OUT &H71, &HFD 
を 実行 する L, DB1 に つなが っ て いる 74 
LS74 の Q が H に 変わ り , 74LS30 の 方 は L 
に な り ま す 。 こ れ で ROM KILL 信号 が 出 
力 さ れ , 通常 の ROM エリ ア が マス ク さ れ 
ます の で , 拡張 ROM に アク セス で きる も 
け で す 。 


ソフ トウ ェ ア 
に つい て 


ROM ボー ド 製 作 後 の テス ト プ ロ グラ ム 
と し て , Nss-BASIC か ら ATN 関数 を 使用 
する 例 リ スト 2 に 示し まし た 。 こ の プロ 
グラ ム を ROM ライ タ で ROM に 書き 込む 
と , 拡張 ROM か ら 5 RAM 上 の E500 番 地 
以降 に ロー ド る され ま す 。 

ここ て で 一 言 。 拡張 ROM に 制御 を 移す 場 
合 は 必ず レジ スタ と PSW の 退避 を 行い , 
RET 命令 モニ タ に も どる と き は 退避 し 


た レジ スタ お よび PSW の 復元 を し て くだ 
さい 。 そ うし な いと , モニ タ か ら 6 呼び 出し 
だ も の の 実行 後 モ ニタ に も どれ な く な っ て 
し まい , リセ ッ ト ス イッ チ の お 世話 に な る 


さる て, 話 を も ど し ま し ょ う 。ROM 1 に プ 
ログ ラム が 書き 込ま れ て い ぃ る 状態 で , 
BASIC か ら の 直接 起動 を 考え て み ま す 。 

まず , 電源 投入 直後 は ATN 関数 が 使用 
で きる の で , わざ と E コ ユマ ンド を 使っ て E 
500 番 地 か ら の プロ グラ ム を 破壊 し て お ぉ き 
ます 。 Wi, モニ タ よ り リ スト 1 の ブロ グ 
ラム を 打ち 込み , BASIC モ ー ド に も どり ま 
SSR U. Gy 

DEF USR= & HD000: PRINT USR (0) 
を 実行 する と OK が 表示 きれ る は ず で す 。 
ここ で , ATN 関数 を 使っ て み ま し ょ う 。 次 
の プロ グラ ム , 

10 A=ATN (5) 

20 PRINTA: END 
を 実行 し て 数 字 が 表示 され まし た か ? b 
な み に , リス ト 1 の A レ ジス タ の 値 を FD 
か ら 表 2 に 示し た 任意 の 値 に 変え る と, E 
の ROM に で も アク セス が で きま す 。 し か 
L, この プロ グラ ム を いち いち 打ち 込ま な 
けれ ば いけ な いと いう の は 不便 で すね 。 こ 
れ で は ROM 化 の 意味 が あり ませ ん 。 そこ 


T, BASIC か ら 6 の 制御 を 考え て み ま し た 
が , 問題 が ある の で す 。 
試し に , 次 の プロ グラ ム を 打ち 込ん で み 
て くだ さい 。 
10 OUT &H71, &HFD 
20 DEF USR- &H6002: 
PRINT USR (0) 
30 END 
実行 し て も うま 走ら な い は ず で す 。 なぜ 
c pod 

実は 10 行 で 1/O ポー ト の 設定 を し て b, 
20 行 の DEF USR 文 を 実行 する と き は 1/O 
ポー ト の 71H は FEF? に 設定 され て し まう 
の で す 。 し た が っ て , BASIC の 6002 番 地 に 
制御 が 移り , 拡張 ROM の プロ グラ ム は 走 
ら な い の で す 。 あ えな く 〈 枝 走 し て し まい ま 
す 。 

ご 承知 の よう に , PC-8801 で は バン ク 切 
り 替 え の 手法 を と っ て いま す 。 こ の バン ク 
制御 は I/O ポー ト の 71H で 行っ て いま す 。 
BASIC は 通常 の ROM 空間 で 実行 可能 で 
すか ら , どの ROM が 直前 に 設定 され て い 
сь, 自動 的 に ポー ト の 71H を 通常 の 
КОМ 空間 に な る よう 設定 し な お し て いる 
の で す 。 

これ は マル チ ス テー トメ ント に し て も 同 
じ で す 。 で すか ら , BASIC で の 制御 は と り 


図 4 部 品 配置 図 
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あ ぇ を ず あ きる ら め て て だるい 。 

また , リス ト 3 ~5 に ROM 制御 アロ グ 
ラム を 示し ます 。 なお, 解説 は 誌面 の 関係 
て 次 回 の ツ ソフト ウェ ア 編 で 行い ます 。 


注意 事項 
E A 


この 拡張 ROM ボー ド は , 拡張 ROM の 
チッ プ セ レク ト を する 際 の ガー ド を 行っ て 
いま せん 。 つ まり , プロ グラ ム で 誤っ て 2 
つっ 以上 の ВОМ を モレ クト する と , 動作 が 
保証 で き な い わけ で す 。 だ だ し , ROM OR 
択 状態 を 読み 込む 機能 は 設け て あり ます 。 
拡張 ROM を アド レス 指定 で 直接 読み 込む 
場合 , 拡張 ROM を 選択 し た あと に DB1 
7 の デー を 読み 込ん で 出羽 まし だ デー 
タ と 比較 し , 一 致し て いる か どう か を チェ 
ッ ク し て みれ ば いい で し ょ IS 


の モニタ 解析 と BASIC 中 か ら の 拡張 
ROM の アク セス 法 を くわ し く 紹 介する 了 予 
定 で す 。 


お わり に 
к з 


この ボー ド の 場合 配線 を て いね い に す 
る こと が ポイ ント で あと は 難し て な い は ず 
で す 。ROM ボー ド は 活用 法 が むし ろ 問 是 
CU x う 。 次 回 の ソフ ト 編 で は Nss-BASIC 


参考 文献 
・NEC PC ノー ト 


⑦ OUT &H7I, &HFF 


LOW に な っ て いな い 


Bit 


拡張 ROM 用 |/0O ポ ボー ト へ ROM デ ー タ 出力 


ROM の 先頭 (6000H) は "RA" か ? 
(6000H = “R” 6001H— "4") 


ROM の 先頭 3 バイ ト 目 (6002H) 以 降 を 実行 する 


ROM 上 に RET 命 令 が ある か ? 


ROM 上 に JMP0I54H が ある か ? 


次 の ROM デ ー タ を |!/0 ポ ー ト へ 出力 


図 6 
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ЕТ 


FE 


DF 


B7 


ТЕ. 
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ЗЕ FD LXI A,FD 
D3 71 OUT 71H 
CD 02 60 CALL 6002H 
С? КЕТ 


D000 


52 34 CD 00 68 00 CD 00 6A C9 FF FF FF FF FF FF 


ADRS : *0 +1 +2 +3 +4 +5 +é +? +8 +9 +A +B +С +D «E +F :SUM 
D899 : C5 D5 E6 F5 21 51 68 11 89 EE 01 03 00 ED BO 11 88 
D810 : F8 FF 01 04 00 ED BO 11 20 F2 01 C2 00 ED BO 21 3D 
D820 : 38 69 11 20 ЕЗ 01 75 00 ED BO F1 El D1 C1 C9 FF 04 
D839 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F0 
D849 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F9 


D880 : F2 00 00 00 99 00 00 06 РЕ АҒ C2 20 F3 23 7E FE : ВЗ 
D890 : 44 C2 20 ЕЗ 23 7E FE 44 C2 20 F3 23 7E FE 2C C2 : 5E 
D8A9 : 20 F3 ЗЕ 01 D3 ТЕ 00 00 EB E1 EB 23 ?E FE 12 C2 : CE 
D8BO : ?F F2 06 FD СЗ B8 F2 FE 13 C2 89 F2 06 FB СЗ B8 : АВ 
D8C9 : F2 FE 14 C2 93 F2 06 F? СЗ B8 F2 FE 15 C2 9D F2 29 


ADRS : *0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
D900 : 03 23 TE 32 F9 FF 23 ТЕ 32 FA FF C5 05 Е5 F5 CD : DB 
D910 : F8 FF F1 E1 D1 C1 07 СЗ 96 09 FF FF FF FF FF FF : ВЕ 
D920 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
0930 : FF FF FF FF FF FF FF FF Ei ЗЕ 00 03 ТЕ ЗЕ FD D3 : 77 
0940 : 71 11 00 61 OE 30 D5 ES 06 QC 7E FE 00 CA 50 ЕЗ : 76 
0950 : FE ЗА CA 50 ЕЗ FE ЭВ CA 50 ЕЗ 1A 96 C2 SE ЕЗ 13 : 61 
D960 : 23 05 C2 32 ЕЗ СЗ 70 ЕЗ 1А FE 20 C2 SE ЕЗ 13 05 : 98 
U40 £2 50 ЕЗ СЗ 70 ESSET D1 Е5 21 10 00 19 EB Ei 00 : ES 
D980 : C2 2E ЕЗ СЗ C1 4D 00 00 22 94 ЕЗ El 01 21 0С 00 : ЗС 
D998 + FF 7E D3 CF 23 48223 ТЕ 32-F9 FF 23 7E-32 FA FF : EJ 
D9A80 : 78 D3 71 CD F8 FF 2A 94 ЕЗ СЗ 96 09 00 00 FF FF : 91 
U ツ B り : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
D2C9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
D900 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
D?EQ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
D2F9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
DA99 : CS DS E5 F5 21 50 éA 11 CC EA 01 02 00 ED BO 11 : C? 
DA10 : F1 EA 01 02 00 ED BO 11 54 E6 01 02 00 ED BO 11: 77 
DA20 : C8 EE 01 03 00 ED BO 11 00 E5 01 49 00 ED BO F1 : 25 
DA39 : E1 D1 C1 C9 FF FF FF FF FF FF FF FF FF FF FF FF : 30 
DA49 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
0450 : 00 ЕЗ 00 ЕЗ 00 ES СЗ 00 ES EF FC 00 2E FC AB 20 : 33 
DAGO : ЗА 44 EC FE 81 38 0C 01 00 81 51 59 CD В? íF 21 : 10 
DA79 : E3 10 ES 21 24 ES CD D8 2E 21 ӨР 30 C9 09 4A D? : 35 
DASA : ЗВ 78 02 6E 84 78 FE C1 2F 7С 74 31 70 9A 84 3D : 09 
0498 : 5A 7D C8 ТЕ 91 ТЕ EA BB 4C 7E 6С AA АА 7F 00 өө : DS 
DAAG : 00 81 FF FF FF FF FF FF FF FF FF FF FF-FF FF. FF 1 73 
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OAR ОН 


1984 年 10 月 掲載 


ハー ド で マヤ マシン 語 に 強く な ろう / 
ソフ トウ ェ ア 編 


前 回 の ハー ド 編 に 続き , 今回 は 拡張 
ROM ボー ド を BASIC か ら コ ント ロー ル 
する 手法 を くわ し く 紹 介し ます 。 併 わせ て , 
Nss-BASIC イ ンタ プリ タ の 解析 も 行い ます 。 


BASIC 
イン タブ リタ 
に つい て 


Nss-BASIC は マイ クロ ッ フ ト 社 の 40K 
バイ ト BASIC を 基 に , PC-8801 用 に 開発 
し た 非常 に 強力 な イン タプ リタ で す 。 

ここ で は , この イン タブ リタ の 働き に つ 
いて , メモ リ 関 連 を 主体 と し た 説明 を 行い 
duo 

メモ リ 関 連 の 1/O ポー ト 一 覧 を 図 1 に 
ыз, 

まず , PC-8801 の 電源 を 入れ る と 初期 設 
52 ニー チョ シン 2 利和 人 ま あま 。 ここ で は シス テ 
ム ワ ー ク エリ ア E600 一 FEFFF ( 図 2 ) の 初 
期 設 定 を 行う し と も に , シス テム ワー クエ 
リア 内 に ジャ ンプ テー ブル を ROM より ュ 
セー し ます 。 

Nss-BASIC は この シス テム ワー クエ リ 
ア 内 に 初期 設定 し た 情報 に より , HEREME 
LiT, し だ た が っ て , この エリ ア を 破壊 す 
る と 即 暴走 に つなが り ま す 。 

し か し , 逆 に これ ら の 情報 を 十分 に 理解 
し て コン トロ ー ル すれ ば , BASIC で は 不可 
能 な 動作 が 可能 な り ま す 。 

それ で は , これ ら を 順 を 追っ て 説明 し て 
а 9. 

272 


メモ リボ ー ド 
E  、 T 


PC-8801 に は 以下 の 3 つの メモ リモ ー ド 
が あり ます 。 
N-BASIC モ ー ド 

この モー ド は PC-8801 の N-BASIC と [i] 
ー で す 。 た だし, PC-8001 で は 6000- 7 FFF 
番地 は 拡張 ROM エリ ア と し て 使え まし た 
が , PC-8801 で は N-BASIC の 追加 ROM 
が 搭載 され て いる ただ め 使用 不可 能 で す 。 
Nss-BASIC モ ー ド 

この モー ド で は Nss-BASIC が 動作 し ま 
す 。 今回 の ROM ボー ド は , この モー ド で 
の み 動 作 可能 で す 。 
64K RAM モー ド 

この モー ド は メイ ン RAM と テキ スト 
RAM を 1 つ に し て , 64K の アド レス 空間 
の すべ て を RAM と し て 使用 し ます 。MZ- 
80B な ど と 同様 な 使い 方 が 可能 と な り ま す 。 
以上 3 つの モー ド の 切り 替え は , MSR 
(モー ド セ レ クト レジ スタ ) と OUT 命 令 に よ 
っ て 制御 し ます 。1/O アド レス は 31H で す 。 
Nss-BASIC で は , 31H に 出力 し た デー タ 
を シス テム ワー クエ リア の E 6 C 2 番地 に 
退避 し て お きま す 。 し た が っ て , モー ド を 
変更 する 場合 に は E 6 C 2 番地 の 内 容 と 該 
当 ビ ッ ト の 論理 和 を を とり, それ を 31H に 出 
力 す れ ば ほか の 制御 ビッ ト に 影響 も 与え ず 
に 変更 が で きま す 。 


テキ スト 
ウイ ンド ー 


Nss-BASIC で は , テキ スト エリ ア が 
BASIC КОМ と 同じ 空間 に 存在 し ます 。 し 
た が っ て , イン タプ リタ が 直接 テキ スト エ 
リア に アク セス する こと は 不可 能 で す 。 

これ を 解決 する た め に , PC-8801 で は テ 
キス トウ イン ドー と 呼ば れる 考え 方 を 導入 
SC ir RET АЛЕ インド NER 
8000—83FFH の 1 K バ イト の 空間 に 存在 
し , この 空間 を 通し て テキ スト エリ ア を 投 
影 し ます 。 投 影 は OAR( オ フ モ セッ ト ア ドレ 
スレ ジス タ ) を 制御 し て 行い ます 。OAR は 
IO ポー ト の 70H に 割り 当て られ て お ぉ り , 
ここ に デー ズ を 出力 る と その デー ズ E 
位 し し た アド レス か ら 1K バ イト 分 が テキ 
スト ウイ ンド ー に 出現 し ます 。 

モニタ より 

h] O70, 10 

と すれ ば ,8000 一 83FFH に テキ スト エリ ア 
01000—13FFH が 現れ ます 。 こ の エリ ア は 
リー ド / ラ イト が 可能 で す 。 つま り , ERO 
状態 で モニ タ の E コ マン ド に より 8000-83 
ЕЕН が 何 か が デー タ を 書き 込め ば , 実際 は テ 
キス ト エ リア の 1000 一 13FFH の 内 容 が 書 
き 替 を えら れる こと に な り ま す 。 

ОАК を 制御 する I/O ポー ト に は も う 1 
つ 78H が あり ます 。 こ の 78 古 に デー タ を 出 
JS 5 t5 OARD IODA ry; >s 


まで の 空間 は 可変 で す 。 
じ だ が っ て 。 こ れ ら 6 の 
領域 を 示す ポイ ンタ が 
シス テム 作業 域内 に 存 
在 し ます 。 

BASIC Z5nmo 74A 
を 入力 する と, ブロ グ 
ラム を テキ スト RAM 


れ ま す 。 な お , 出力 する デー タ は 何で も か 
まい ませ ん 。 


メモ リ の 構成 
e 


に 格納 する と と も に 
Nss-BASIC で は, 電源 投入 後 の メ モリ の TXTEND の ポイ ンタ 
状態 が 図 3 の よう に な っ て いま す 。 テ キス も それ に つれ て 更新 き poop 
トウ イン ドー か ら ユ ー ザ ー マ シ ン 語 エリ ア nid. 


図 2 メモ リマ ッ プ 


シス テム コン トロ ー ル ポー ト (31H) 


p :640X 400X | 
| :640X 200X 3 
non RAM モ ー ド 
1:64KRAM モ ー ド 
n *Nas- BASIC E — К 
1:N-BASIC モ ー ド 
[MENDA Lee кг 
「: グ ラフ ィ ッ ク 画 面 に 表示 する 
з Дь: 
1: カ ラー モー ド 
qute ド 
1:25 行 モー ド 


OAR (70H) 


テキ スト ウィ ンド ー ア ドレ ス の 
上 位 ア ドレ ス を 示す 


ROMO (Nss-BASIC で 使用 ) 


ROM 2 


ROM 3 0 : セレ クト され る 


1: セレ クト され な い 


G Í 


—ROMT 


4THROM の バン ク 制 御 (7FH) (Ж) 今回 の ROM ポ ー ド の た め に 追加 し た 1/0 ボ ー ト 


CT т |) | | TT 
・EVEN 側 ROM ボ ポー ド 


I: ODD 側 ROM ボ ー ド 


1 メモ リ 関 連 |/O ポ ー ト 一 覧 


Nss -BASIC 
拡張 ROM 0 
Nas -BASIC 
ROM 


mi 御 
RHOM に つい て 


$C, いよ いよ 本 題 の BASIC か ら の 制 
御方 法 に つい て 説明 し まし ょ う 。BASIC か 
ら 制 御 す る に は , 何 か わか コマンド を 与え を なけ 
れ ば いけ ませ ん 。 

Nss-BASIC の 中 で ROM BASIC が 使用 
し て いな いも の を 探し た 結果 , 適当 な も の 
が みつ か り ま し た 。CALL コマ ンド で す 。 
CALL コマ ンド は DISK BASIC TOA} 
ポート し て お ぢ おり ,ROM バー ジョ ン で この っ コ 
マン ド を 実行 する と 未定 義 エ ラー と な り ま 
す 。 そこで, この 部 分 を PC-8801 の 電源 投 
入 直 後に 自動 的 に 初期 設定 し , 新た に 拡張 
ROM を 制御 する CALL コマ ンド を 実現 
Ld 35565bUX3. 

リス ト 1 が ROM の 全 内 容 で す 。 ま た , 
図 4 CALL コマ ンド が 使用 する 制御 
ROM の 構成 を 示し ます 。 

制御 ROM の フォ ー マ ッ ト は 図 4 に 示し 
な た Er DSKP 
① 初 期 設定 ジャ ンプ テー ブル 
Q ROM 選択 テー ブル 
初期 設定 ルー チン 
に 分 類する こと が で きま す 。 以下 に , それ 
ぞ れ の 説明 を 行い ます 。 
① 初 期 設 定 ジ ャ ンプ テー ブル 

この テー ブル は PC-8801 が 自動 的 に 初 
期 設 定 を 行う 必要 が ある ルー チン を 呼び 出 
す だ た め の ジ ャ ンプ テー ブル で , 63 個 の エン 
トリ が 登録 可能 で す 。 
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登録 し た ルー チン の 最後 に は 必ず RET 
(C9) を 置か な けれ ば いけ ませ ん 。 25 
し て お か な いと , 電源 投入 時 に Nss-BASIC 
に も どれ な く な っ て し まい ます 。 

本 テー ブル は 1 エン トリ 4 バイト て 構成 
され て お り , 初期 設定 ルー チン へ の 移行 に 
は 必ず CALL 命令 (CD) を 使用 し て くだ さき 

い 。 初期 設定 ル シ ー チ ン か ら は RET 命令 (C 
9) に よっ て 復帰 する こと / 

ジャ ンプ テー ブル に 複数 の 初期 設定 ルー 
チン を 登録 する 場合 に は 個別 部 分 の 最後 の 
1 バイ ト を 必ず NOP L L, 次 の 呼び 出し 
処理 が で きる よう に し て お きま す 。 

図 5 に 設定 例 を 示し ます 。 

Q) ROM 選択 テー ブル 

表 1 の テー ブル は 今回 の CALL ユマ ン 
ド の 制御 の た め の メ イン テー ブル で す 。 Y 
21207 777 ACIIJ し ます 。『 1 エン 
トリ は 16 バ イト で 構成 され て お り , 48 個 の 
エン トリ を 登録 どき ます 。 

1 エン トリ 中 , 名 標 は 12 バ イト で 構成 き 
れ て いま す が 登 録 す る デー タ は 12 バ イト 以 
下 の 英 数 仮名 記号 すべ て 使用 可能 で す 。 た 
だ し , スペ ー ス は 名 標 の 終わ り を 判断 する 
た め , 使用 で きま せん 。 名 標 は 12 バ イト 以 
下 で 登録 する 場合 , 残り は すべ て スペ ー ス 
を 設定 し な けれ ば な り ま せん 。 ま た , HE 
に は Nss-BASIC で 使用 きれ て いる 予約 語 
は 使用 で きま せん 。 テ ー ブ ル に は 予約 語 も 
登録 び でき ます が , CALL コマ ンド で 予約 語 
を 名 標 と し て 使用 する と 予約 語 は 1 また は , 
2 バイ ト の 中 間 言 語 に 変換 きれ て し まい ま 
す 。 し た が っ て , この 方 法 で 検索 し て も , 
中 間 言 語 と し て 探す た め 同 一 名 標 が みつ か 
ら ず ,NA エラ ー と な っ て し まい ます 。 選 択 
テー ブル に 中 間 言 語 と し て 登録 し て お け ば 
可能 で す 

К, ROM-NO は ROM 1 — 7 に 対応 
し た 該当 の プロ グラ ム が 格納 され て いる 
ROM の デー タバ ス 値 を 指定 し ます 。 デ ー 
タバ ス 値 に つい て は ハー ド 編 で 説明 し まし 
た の で , ここ で は 割愛 し ます 。 

EVEN/ODD は EVEN 側 ROM ボー ド 
また は ODD 側 ROM ボー ド を 選択 する た 
め の 指定 で す 。 指 定 値 は 次 の と お り で す 。 

EVEN 側 : 00 
ODD 側 : 01 

この 指定 は 前 回 の ハー ド 編 で も 少し 触れ ま 
し た が , 本 ROM ボー ド は 論理 仕様 の 一 部 
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テキ スト VRAM エリ ア 
шз EME Н 


まま キス ドウ イ シド トー 


BASIC プ ログ ラム 


8400 


8000 


0000 


( 注 ) か っ こ 内 は シス テム ワー クエ リア 内 の ポイ ンタ アド レス 


図 3 メモ リ の 状態 
変更 に より 112K バ イト まで 容易 に 拡張 が 
可能 で す 。56KK バ イト を 1 バン ク と し て 2 
バン ク に 分 割 し 。 これ を CALL コマ ンド の 
EVEN/ODD 指定 で バン タク 制御 し ょ うと 
いう わけ で す 。 

理論 的 に は 8 バン ク (488K バ イト ) まで 
制御 可能 で す が , ハー ド が 相当 複雑 に な っ 
て し まう こと と ボー ド 上 へ の 搭載 も 考え る 
と 2 バイ ト く ら 5 い が 妥 当 で し ょ う 。 拡張 し 
な い 場 合 は EVEN/ODD を 指定 し て も 無 
視 る され ます 。 

移行 アド レス は 該当 ROM 内 (6000— 7 
FFF) の どこ に 制御 を 移す か を 指定 し た ア 
ドレ ス で す 。 

設定 例 を 図 6 に 示し ます 。 

同 図 の 設定 例 で は , 

CALL BRCV 
に より EVEN fill ROM? の 6000 番 地 へ 
CALL ROMATN 

に より EVEN fill КОМІ の 6A00 番地 へ 移 
行 し ます 。 
③ 初 期 設 定 ル ー チ ン 

PC-8801 の 電源 投入 時 に , 初期 設定 を 行 
う 必 要 が ある プロ グラ ム を 格納 し て お く エ 


< MAXMEM (Е?Е8,Е719) 
< TOPMEM (E654,E655) 
< STRTOP 
< FREEND 


— FRETOP 


(EACC,EACD) 
(EAFI, EAF2) 
(EBIF,EB20) 
< ARYPTR (EDID,EDIE) 
< VARPTR (EBIB,EBIC) 
< LBLPTR (EBI6,EBI7) 


< FILPTR (EC7F,EC80) 


< TXTEND (EBI8,EBI9) 


< TXTTAB (E658,E659) 


リア で す 。6400- 7 FFF の 空間 を 使用 す 
る こと が で きま す 。 別 の ROM に また が っ 
た 制御 を 行う こと は で きま せん 。 ま た , こ 
の 空間 は 初期 設定 ルーチン だ け で な く , Ж 
常 の プロ グラ ム を 置い て も か まい ませ ん 。 
プロ グラ ムッ 構 成 を 次 の よう に し て くだ る 
いな 

PUSH B 

PUSH D 

PUSH H 

PUSH PSW 


POP PSW 
POR: H 
РОР D 
POP В 
RET 


コマ ンド に つい て 


CALL コマ ンド に は 次 の 2 通り の 記述 
方 法 が あり ます 。 
① ダ イレ クト に 該当 ROM を 呼び 出す 場合 
② 名 標 に より 制御 を 移行 する 場合 
以下 に CALL コマ ンド の フォ ー マ ッ ト を 
示し ます 。 

EVEN 、, ROM-NO, 呼 

CALL , бр Т vcl 


名 標 


① EVEN/ODD 
EVEN : EVEN 側 ROM ボー ド 
ODD : ODD 側 ROM ボー ド 
な お , ROM ボー ド を 拡張 し て いな い 場 
fri EVEN に 固定 し ます 。ODD を 指定 し 
C$, VO ポー ト が 存在 し な いた め 和 無視 3 
れ ま す 。 
@ ROM-NO 
ボー ド 内 の ROM 番号 で す 。 
1 : 拡張 ROM 1 
(CALL ュ マン ド の 制御 ROM) 
” 2 


ユー ザー ROM 


л & c N 
= = 
Q A c 


7FFF 


ROM 選 択 テ ー ブ ル 


初期 設定 ルー チン 


図 4 制御 ROM の 構成 


6003 


空き 領域 (すべ て FF) 


図 5 初期 設定 ジャ ンプ テー ブル の 設定 例 


6400 番 地 へ 移行 


6800 番 地 へ 移行 後 
Nss-BASIC へ 復帰 


6: n 6 
TÉXR Д 7 
③ 呼 び 出 し アド レス 


該当 ROM 内 の 移行 アド レス で す 。 錠 
Hx xxx (メメ メメ は 6000 一 7 FFF) で 
指定 し ます 。 

DLR 

制御 ROM の ROM 選択 テー ブル に 登録 
され て いる 名 標 を 指定 し ます 。12 バ イト 以 
内 の 英 数 仮名 記号 を 使用 し ます 。 

以下 に 設定 例 を あげ ます 。 

CALL EVEN, 7, &Н6000 
っ EVEN 側 ROM 7 の 6000 番 地 ち も コール 
CALL BRCV 

> ROM 選択 テー ブル の 指示 に 従う 


CALL. ВАСУ 
ROM 7 の 
6000 番 地 を コー ル 


CALL_JROMATN 
ROM I の 
6A00 番 地 を コー ル 


空き (すべ て FF) 


図 6 ROM テ ー プ ブル の 設定 例 


275 


CALL コ マン ド 
プロ グラ ム に つい て 


CALL ユマ ンド の 実行 ルー チン は 制御 
КОМ 内 に 格納 され て いま す 。 

PC-8801 の 電源 投入 時 に この 実行 ルー チ 
ン を シス テム ワー クエ リア の 空 エ リア ム 移 
送 し , Nss-BASIC の ジャ ンプ テー ブル を 変 
更 する 。 

移送 先 お よび 変更 箇所 は 次 の と お り で す 。 

QO F220—F2E1 : 

CALL コマ ンド の メイ ン 処 理 

Q@ F320— F393 : 名 標 処理 

(3) EE89 

JMP テー ブル (CALL コマ ンド ) 

次 に CALL コマ ンド の 実行 ルーチン に 

つい て 少し 説明 し て お きま し ょ う 。 
sg-BASIC で は, CALL ユマ ンド が 出 
現す る と ジャ ンプ テー ブル に 登録 きれ て い 

る CALL ユマ ンド の 実行 ルー チン に 制御 
が 移行 し ます 。 

通常 , この ジャ ンプ テー ブル は 4 DC 1 
と な っ て お り ,UN エラ ー と な り ま す 。 し か 
L, 電源 投入 時 の 初期 設定 処理 で ここ を FE 
220 に 書き 替 を て いる た め , う まく 実行 ルー 
チン へ 移行 で き る わけ で す 。 

実行 ルー チン で は , まず 先頭 の パラ メー 
タ が EVEN/ODD の 判定 を 行い ます 。 
EVEN なら 1I/O ポ ー ト の 7 FH に 00 を , 
ODD な 601 を 出力 し て バン ク の 設定 を 行 
いま す 。 第 2 パラ メー タ は 指定 され た 
ROM 番号 を デー タバ ス の 選択 デー タ に 変 
換 し , I/O ポー ト の 71H に 出力 し ます 。 第 3 
パラメータ は 指定 され た 移行 アド レス を シ 
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ステ ム ワ ー ク エリ ア 上 の 移行 先 ア ドレ ス 格 
納 域 に 設定 し , 該当 アド レス へ 移行 し ます 。 
拡張 ROM か ら の 復帰 後 は BASIC に も 

と どり, 次 の 文 を 実行 し ます 。 

本 プロ グラ ム で は ROM 番号 が 1 ~ 7 の 
範囲 内 に ある か どう か の チェ ッ ク で 行っ て 
いま す が , 移行 アド レス の チェ ッ ク は し て 
いま せん 。 し た が っ て , 移行 アド レス を ま 
ち が え ぇ たり ROM 番号 と 移行 アド レス の 対 
応 を まちがえ た りす る と 指定 アド レス ム 移 
行 で きず , ダン マリ と な る か リセ ッ ト さ きれ 
て し まう の で 注意 が 必要 で す 。 

次 に , 先頭 が EVEN/ODD 以外 で あれ ば 
名 標 処理 へ 移行 し ます 。 

名 標 処理 で は 制御 ROM の 選択 テー ブル 
に 登録 きれ て いる ジャ ンプ テー ブル の 全 エ 
ント リ を 参照 し , 指定 され た 名 標 と 一 致す 
る も の を 探し ます 。 一 致し な けれ ば UA = 
ラー と し , 一 致す れ ば 当該 ROM 選択 テー 
ブル に 登録 され て いる EVEN/ODD, 
ROM 選択 デー タ , 移行 アド レス に よっ て 
利 定 され だ た プロ グラ ム を コール し ます 。 

名 標 を 使え を ば ほ ち が えて も UA エ ラー 
と な る だ け で すか ら , で きる だ け ROM € 
択 テ ー ブ ル へ 登録 し て 名 標 指定 で 呼び 出し 
た 方 が 無難 で す 。 

図 7 に 概要 フロ ー を 示し ます 。 


注意 事項 
E on 


① 制 御 ROM は EVEN 側 第 1 ROM (2 8 
定 で す 。 

また , 今回 の ROM ボー ド は 56K バ イト 
で , EVEN/ODD の 区 別 は あり ませ ん 。 し 


た が っ て , EVEN/ODD を 指定 し て も 該当 
の 1/O ポー ト が 存在 し な いた だ め 無 意味 と 
な り ま す (112K バ イト に 拡張 時 に 有効 )。 
図 8 に 拡張 を 行う た め の 参 考 例 を も あげ て お 
аф 
ディ スク バー ジョ ン を 使っ て いる 人 は 
CALL コマ ンド を DISK BASIC が 使用 し 
て いる た だ ため, 次 の 対処 を 行い ます 。 
ФИЯ КОМ で JMP テー ブル を 初期 設 
定 し て も DISK BASIC で 再 設定 され 
て し ま ウ た め 。 ディスク 記 の AE 宅 
マン ド の ジャ ンプ テー ブル を F220H 
に 書き 替え る 。 
⑤ 上 記 措 置 ど だけ で は DISK BASIC で の 
CALL コマ ンド が 使用 不可 能 と な っ 
て し まう た め , CALL コマ ンド の 実行 
ルー チン の NA エ ラー と し て いる 部 
分 は すべ て , DISK BASIC の ジャ ンプ 
アド レス ^ ム 移行 する よ うに 実行 ルー チ 
ン を 変更 する 。 変更 個所 は 次 の と ぉ り 
で ある 。 
F36C 4р0С1 = A916 
以上 の 変更 に ょ より DISK BASIC C b 
САШ. ユマ ンド に よる 制御 を 同時 に 行う 
こと が で き 計 的 58 
今回 で PC-8801 の ROM に 関す る 記事 
(EPROM ライ タ , ROM ボー ド の 製作 ツ 
フト 編 / ハ ー ド 編 ) は 終了 で す 。 
56K バ イト と いう 大 容量 の ROM ボー ド 
に より アセ ゼン ジラ ョ エー ティ リティ ラジ ロジ! 
ラム な どの 開発 が 一 段 と 容易 に な り ま し た 。 
本 ROM ボー ド お よび ソフ ト が PC-8801 
ファ ン の みな さん の お ぉ 役に立て ば 幸い で す 。 
今後 機会 が あれ ば 112K バ イト の 拡張 
ROM ボー ド も 紹介 し た いと 考え て お り ま 
Fa 


әти 


ADRS : +9 
C999 : 52 
Ce10 : FF 
C020 : FF 
C030 : FF 
C040 : FF 
C050 : FF 
C969 : FF 
C070 : FF 
C080 : FF 
C990 : FF 
C9A9 : FF 
C9B9 : FF 
Ceca : FF 
CODO : FF 
C9E9 : FF 
C9F9 : FF 


SUM : 43 


ADR 
C10 


S e 

9 
C118 

9 

9 

9 


+ 
52 
42 
C12 45 
C13 42 
C14 47 
C150 : 47 
C160 FHKE 
C1r8 s» FF 
C180 : FF 
C190 : {RF 
C1A9 : FF 
C1B9 : FF 
CICO: t FE 
C1D9 : FF 
C1E9 : FF 
CIFQ т FF 


ADRS : +0 
C808 : C5 
C810 : 20 
C820 : ED 
C830 : C3 
C840 : 23 
C850 : FE 
C860 : 00 
C870 : ТЕ 
C880 í ТЕ 
C890 : B8 
C8A9 : F2 
C8B0 : FE 
C8C9 : BF 
C8D0 : FE 
C8E9 : ЕЗ 
C8F0 : C1 


+1 
34 
FF 
FF 


Z9 


*1 
4F 
52 


ЕЕ 


+5 +6 
99 CD 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 


F13993R13BE 


+3 
41 
56 
4F 
41 
53 
44 
FF 
FF 
FF 
FF 
FF 
FF 
FF 
FF 


+5 +6 
4E 20 
20 20 
20 20 
20 20 
20 20 
20 20 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 


C200~C7FF, CD00 て CFFF は FF で 埋め て くだ さい 


+E 


F9 


+Е 
99 


ADRS : +0 
C900 +881 
C910 : 06 
C920 : 50 
C930 : 1А 
C940- ("B5 
C950 E1 
C960 32 
C970-4"7E5 
C980 : FF 
C990- EF 
C9A0 : FF 
C9BO : FF 
C9C9 : FF 
E9SDO EEE 


. ee oo 


+F :SUM 
FF : A8 
FF : F8 
FF : FO 
FF : FQ 
FF : F0 
FF : F8 
FF : F8 
FF : FO 
FF : F9 
FF : F8 
FF 1: IED 
FF t F8 
FF 1: FB 
FF : F8 
FF : F8 
FF : FQ 
F0 : B9 
+F :SUM 
6A : F8 
6C : 96 
60 : 22 
70 1: AB 
60 : 69 
73 1 9E 
ЕК FQ 
FF : Fe 
FF ¢ FO 
FF : F9 
FE 1 F8 
FF 1 F8 
FEI FQ 
FECT FO 
FFTY F8 
FF : F8 
6F 1: C2 
*F 1SUM 
1133-67 
00 1 9E 
FF--4--C1 
Fy PB 
Eee きま 
99 : B4 
23 t ЕП 
D3 : 47 
СЗ : EQ 
93:3 CD 
F2: 22 
06 : 41 
TE ТЄ 
9913 $1 
DI*T-E2 
FF HEE 
AC : 03 
+F SUM 
だ Oc у 
CA 1 E3 
ЕЗДЕ 
D1. : 21 
4D : 40 
CE 8T 
00 : 1B 
FEES B2 
FF : FQ 
FE + RO 
FF : FO 
FF 1: FO 
FF 1 FO 
FF : F0 
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ЗА 44 EC FE 81 38 OC 01 00 81 51 5? CO B? 1F 21 : 10 

$:39 

CA80 3B 78 02 6E 84 7B FE C1 2F 7C 74 31 ?D 9A 84 30 : 09 
CA90 SA 7D C8 7F 91 7E E4 BB 4C 7E éC AA AA 7F 00 00 : D5 
CAA9 99 81 FF FF FF FF FF FF FF FF FF FF FF FF FF ЕЕ 1 73 
CAB9 C5 DS E5 FS 21 DO éA 11 54 E6 91 02 00 ED BO 11 : CB 
CACO 99 ES 01 51 00 ED BO F1 E1 Di C1 C9 FF FF FF FF : FD 
CAD9 00 Е5 2A 99 ЕЗ AF 32 1А ЕВ 7E 32 58 Eé 23 7E 32 : 42 
CAE9 59 Еб 23 ТЕ 32 18 EB 23 ТЕ 32 19 ЕВ 23 ZE AF 23 : FF 
CAF0 7E 47 23 ЗЕ 00 ОЗ 79 ES 60 69 11 00 04 ED 52 38 : АЗ 


ADRS : +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +С «D «E +F 1SUM 
CBOO : 18 44 4D El C5 91 00 O4 11 60 80 ED BO Ci D3 78 í 8E 
CB10 i 03 78 03 78 03 78 СЗ 25 ES E1 11 99 80 ED BO AF : 6C 
CB20 : C3 7C OB FF FF FF FF FF FF FF FF FF FF FF FF FF 1 3D 
CB30 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
СВ4@ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
СВ5@ i FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CB60 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
СВ7@ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CB80 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CB90 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 

1 1 

1 1 

1 1 

t 1 

1 1 

t 1 


ADRS 1 +0 +1 42 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
CC96 : C5 05 ES F5 21 20 6C 11 00 EQ 01 17 00 ED BO CD + 94 
CC10 : 00 EO F1 E1 D1 C1 C9 FF FF FF FF FF FF FF FF FF : 04 
CC20 : 2А 58 Eé 36 01 CD BD 95 CD BB 1B CD 05 44 23 22 ! FC 
CC30 : 18 EB AF 32 1А EB C9 FF FF FF FF FF FF FF FF FF : A9 
СС4@ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CC56 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
CCéQ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
CC70 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CC80 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CC90 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
CCA@ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
ССВ@ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
CCCQ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
CCD9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
CCE9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
Н 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 «A +В +С +0 +E +F :50М 
Deoa : 21 10 70 11 00 EQ 81 FF 02 ED BO C3 99 EG 99 99 : DA 
D919 : C5 DS ES CD ВЕ SF СО 20 E9 ЗЕ pA 32 86 EF E1 D1 : 27 
09020 : C1 СЗ 7B 04 өе 99 ве 99 ве вө OG OO OO OO өө OO : өз 
0939 : 21 02 06 CO 90 42 01 18 00 11 00 E2 EB ED B9 2A 1 93 
D949 : 58 Eé 44:40 2A 18 EB ED 42 44 40 CS CD 50 El 7A 1 F9 
D050 ·: 32 30 E2. 7B, 32 31 Е2-7С-32 32. E2 70 32 SIE 215 (AB 
0060 : 04 QA CD 90 42 01 14 99 11 20 E2 EB ED B9 99 99 + 6A 
D979 + C1 21 FF DF ED 42 2E 00 ЗЕ FC A4 67 CS ES 11 00 t 10 


0080 : 90 ED 52 DA 20 El E1 ES 44 4D CD 50 El 7A 32 50 1 FB 
0090 : E2 ТВ 32 51 E2 7C 32 52 E2 70 32 53 E2 21 05 ВА : B8 
D9A9 : CD 9D 42 01 14 00 11 40 E2 EB ED BO El C1 11 58 : 87 
D9B9 : Еб 1А 7? 23 13 1А 77 23 11 18 EB 1А 77 23 13 1A 1 56 
Deco : 77. 23 71 23 79 23 ЗЕ 00 ОЗ 70 ES 60 69 11 00 04 : 05 
000@ : ED 52 DA DF EQ 44 4D E1 CS 01 00 04 11 00 80 EB : 90 
D9E9 : ЕО BO EB Сі D3 78 D3 78 ОЗ 78 D3 78 СЗ BA EG E1 : ВЗ 
1 t 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +B +9 +A +B +С +D +E +F SUM 
0100 : 7B 32 71 E2 7C 32 72 E2 70 32 73 E2 21 06 QA CD í 04 
0110 : 90 42 01 14 00 11 60 E2 EB ED BQ 21 08 06 CD 9D : 68 
D120 : 42 01 13 00 11 AQ E2 EB ED BB C9 00 00 99 өө өө : 3A 
D130 : 21 05 10 CD 9D 42 01 15 99 11 89 E2 EB ED BO 21 : 14 
D140 : 88 06 CD 9D 42 01 12 99 11 CO E2 EB ED BO C9 00 : 01 
D150 : ве ве QQ 0A 99 өө өе OO OO OO OO GO OO OO OO OO : OO 
D160 : F5 C5 CS 11 00 00 21 QQ 00 CD 69 El C1 DS 41 CD : 6C 
D170 : 69 El EB D1 Ci F1 C3 95 El 78 E6 FO 1F 1F 1F 1F t BB 
D186 : 57 FE 0A D2 7D El 7A Fé 30 57 СЗ 81 El 7A C6 37 1 22 
019@ : 57 78 Eé @Р SF FE QA 02 91 El 7B Fé 30 SF СЗ 95 1 C? 
D1A9 : El 7B Có 37 SF C9 FF FF FF FF FF FF FF FF FF FF 1 77 
D1B9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 F8 
DICO : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 Fe 
0100 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
D1EQ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
D1F9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 Fo 


ADRS : *0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F :SUM 
0200 : FF FFE:FF!FF-FFAFF^FF-FF- FF. FF-FF-FF-FF-FF-FF-FF- 1 FO 
D210 : 2A 2A 20 42 41 53 49 43 20 52 45 41 44 20 50 52 : D4 
D220 : AF 47 52 41 4D 20 2A 2A 20 20 20 20 20 20 20 20 : EA 
D230 : 2A 20 44 41 54 41 20 4C 45 4E 47 54 48 20 3D 20 : C3 
D240 : 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 : 40 
D250 : 2A 20 53 54 41 52 54 20 20 41 44 52 53 20 30 20 : BF 
D260 : 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 : 40 
D270 : 2A 20 45 4E 44 20 20 20 20 41 44 52 53 20 30 20 : 48 
0280 : 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 : 40 
D290 : 2A 2A 2A 20 41 52 45 41 20 4F 56 45 52 46 4C 4F 1 F4 
D2A0 : 57 20 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 : 55 
D2B80 : 2A 2A 20 BE B2 BC DE AE ВЗ 20 BC AD ВЗ 08 AE ВЗ : 54 
D2C0 : 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 : 14 
D200 : 2A 2A 20 B2 BC DE AE ВЗ 20 ВС AD ВЗ D8 AE ВЗ 20 : B6 
D2E9 : 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 14 
D2F0 t ;RF.FR.FR-FRIFRSEESFESFESFRCFETFESFESFE-FESFECFE? TIRO 


ーーーーーーーーーーーーーーーーーーーーーーーーー ニ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B «C +D +E +F :50М 
D399 : 01 00 7C OA 7B 0A 99 2C 99 QA 00 ЗА BF E9 2A 2A 1 48 
D310 : 2А 2А 2А 2А 2A 2A 2А 2А 2A 2А 2А 2A 2A 2A 2A 2А 1 AQ 
0320 : 2A 2A 2A 2A 2A 2A 2A 2А 2A 2A 2A 2A 2A 2A 2А 2A 1 AQ 
D330 : 2A 00 57 00 14 00 3A 8F E9 2A 20 20 20 20 20 20 1 31 
D349 ; 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : өө 
D350 : 2а 20 20 20 20 20 20 20 20 20 20 2А 00 82 00 1E : 2А 
D360 1 00 ЗА ВЕ E? 2A 20 20 52 ДЕ 4D 20 BE B2 B7 DE AE : DO 
D3?0 : 20 СЗ 20 CC DE 09 20 CB AE ВЗ BC DE 20 CC DF DB : 1F 
0380 : B8 DE D? 01 20 20 2A 00 AD 00 28 00 ЗА BF E? 2A 1 59 
D390 : 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 00 
D3A0 : 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1 00 
D3B9 : 20 2A 99 D8 00 32 00 ЗА ВЕ E9 2A 20 20 20 20 20 : ре 

1 1 

1 r 

1 1 

1 1 


279 


280 


D419 í 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 0A 
D420 1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 00 
D430 : 20 20 2A 00 59 01 50 00 3A 8F E9 2A 2A 2A 2A 2A 1 98 
D440 : 2А 2A 2A 2A 2А 2А 2А 2A 2А 2A 2A 2A 2А 2A 2A 2А 1 AQ 
D450 1 2А 2A 2А 2A 2А 2A 2А 2A 2А 2A 2A 2A 2A 2A 00 61 1 AD 
D460 : 01 SA 00 ЗА BF E9 00 6С 01 64 00 92 20 2C ӨС FF : C? 
D470 : 9F 00 87 01 6E 60 9E 20 OF 28 2C OF 14 ЗА 9D 20 : DO 
D480 : 11 2C OF 19 2C 11 2C 12 ЗА CB 20 18 00 94 01 78 : 2A 
0490 : BO 91 20 FF 96 28 GF GC 29 99 A4 01 AO 00 4D 41 : 85 
D4A9 : 43 48 49 ДЕ 45 F1 OC 00 EO 00 B5 01 AA 00 97 20 1 SB 
D4B9 : EO 11 F1 4D 41 43 48 49 ДЕ 45 00 D4 01 ВА 00 82 : E2 
DACO : 20 41 44 52 F1 4D 41 43 48 49 ДЕ 45 20 DC 20 4D : 46 
D4D9 : 41 43 48 49 ДЕ 45 ҒЗ OF 1C 00 EC 91 BE 00 20 20 1 Ві 
D4E9 : 87 20 42 59 54 45 ЗА 98 20 41 44 52 2C 42 59 54 1 BF 
DAFO : 45 00 F6 61 C8 00 83 20 41 44 52 00 20 02 FO 00 : 90 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F SUM 
D500 : 06 20 14 2C 13 ЗА 91 20 22 2A 2A 2А 2А 2A 2А 2A 1 7С 
0510 : 2А 2A 2A 2A 2А 2А 2А 2А 2А 2А 2А 2А 2А 2A 2A 2A 1 AQ 
D520 : 2А 2A 2A 2А 22 00 ДА 02 ҒА 00 06 20 14 2C 14 ЗА 1 94 
D530 : 91 20 22 2A 20 20 20 20 20 20 20 20 20 20 20 20 1 70 
D540 : 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 22 00 1 EC 
0550 : 74 02 04 01 06 20 14 2C 15 ЗА 91 20 22 2А 20 20 : 30 
D560 : 52 4F 4D 20 BE B2 B? DE AE 20 СЗ 20 CC DE D9 20 : 74 
0579 : Bé DE B2 C4 DE 20 20 2А 22 00 9E 02 OE 01 Dé 20 1 19 
D580 : 14 2C 16 ЗА 91 20 22 2А 20 20 20 20 20 20 20 20 : 80 
D590 : 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 00 
D5A0 : 20 2A 22 00 C8 02 18 01 06 20 14 2C 17 ЗА 91 20 : 87 
DSB9 : 22 2А 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 : 93 
DSC9 : 20 20 50 43 20 38 38 30 31 20 20 2А 22 00 F2 02 : 51 
D500 : 22 01 06 20 14 2C 18 3A 91 20 22 2A 20 20 20 20 : 28 
D5E@ : 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : 00 
DSF9 : 20 20 20 20 20 2A 22 00 1C 03 2C 01 06 20 14 2C : 6E 


ADRS : +Q +1 +2 +3 +4 +5 +é +7 +8 +9 +A +В +C «D «E +F 1SUM 
D600 : 19 ЗА 91 20 22 2A 2A 2А 2A 2A 2A 2A 2A 2A 2A 2A 1 FA 
D610 : 2А 2A 2A 2А 2А 2A 2A 2А 2А 2A 2A 2А 2A 2А 2A 2А : АӨ 
D620 : 22 00 27 03 36 01 Dé 20 11 2C ӨЕ QA 00 58 03 40 í 6A 
0630 : 01 CB 20 15 ЗА AE 20 85 20 22 20 20 20 2А 2А 20 : A4 
0640 : CC DF D8 DD Св 20 B5 DD 2F BS CC 20 28 59 2F ДЕ : AQ 
D650 : 29 20 2А 2А 22 ЗВ 49 ДЕ 24 ЗА CB 20 18 00 77 93 : 6C 
0660 : ДА 01 ВВ 20 49 ДЕ 24 F1 22 59 22 20 DD 20 50 53 1 FF 
D670 : 57 F1 12 20 ЗА 9F 20 50 53 57 F1 11 00 A2 03 72 : 86 
D689 : 01 9E 20 ӨР 50 2C 9F 19 ЗА 43 54 52 F1 11 3A 43 1 14 
D690 : F1 11 ЗА 47 59 АЕ F1 14 ЗА АҒ 53 57 F1 11 ЗА 91 』 30 
D6A8 : 20 FF 96 28 OF ӨС 29 00 AC 03 7C 01 80 20 OE 66 』 6E 
0686 : 03 00 BC 03 A4 01 4D 41 43 48 49 ДЕ 45 F1 OC 00 : 59 
06С6 : EQ 00 E2 03 AE 01 44 4D 59 24 F1 22 20 22 ЗА 97 1 АВ 
D6D9 : 20 EO 11 F1 4D 41 43 48 49 ДЕ 45 ЗА 40 24 F1 EQ : 73 
D6E9 : 11 28 44 4D 59 24 29 00 10 04 B8 01 47 45 54 44 : 61 
1 1 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В +C +0 +E +F :SUM 
D700 : 12 ЗА 47 59 ДЕ F1 47 59 ДЕ ЕЗ 12 ЗА 43 54 52 F1 : 34 
0710 : 43 54 52 ЕЗ 12 00 19 04 C2 01 91 20 4D 24 99 30 : 20 
D720 : 04 CC 01 82 20 49 F1 47 45 54 44 20 DC 20 47 45 | 79 
0730 : 54 44 ЕЗ OF 0B өө 4A 04 Dé 01 20 20 5A F1 FF 97 1 EB 
D740 : 28 49 29 ЗА 44 24 F1 44 24 F3 FF 96 28 5A 29 00 : C8 
D750 : 52 04 EQ 01 83 20 49 00 63 04 EA 01 47 45 54 44 1 99 
D760 : F1 47 45 54 44 ЕЗ OF 9B 00 75 04 F4 01 43 AF 4D : 6F 
0770 1 50 F1 FF 97 28 47 45 54 44 29 00 B7 04 FE 01 8B ¢ 91 
0?8@ : 20 43 4F 40 50 F1 11 20 ОО 20 45 24 F1 22 20 42 1 4C 
D790 : 41 53 49 43 22 3A 44 24 F1 44 24 F3 22 20 22 20 1 B4 
D7A9 1 ЗА 9F 20 45 24 F1 22 41 53 53 4D 20 22 3A 44 24 1 80 
D7B9 : F1 44 24 ЕЗ FF 96 28 43 AF 40 50 29 00 C7 04 08 1 34 
D7C9 : 02 47 45 54 44 F1 47 45 54 44 ЕЗ 13 00 DA 04 12-1:31 
D7D9 : 02 52 AF 4D ДЕ ДЕ F1 FF 97 28 4? 45 54 44 29 00 : 89 
D7EQ : F9 04 1C 02 88 20 52 ДЕ 4D ДЕ ДЕ F1 QC FO ӨӨ 20 : 68 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F (SUM 
D899 : 05 26 02 8B 20 52 АЕ 40 4E АҒ F1 OC FB 00 20 00 : 58 
D810 : 20 46 24 F1 22 32 22 ЗА 89 20 OE 6С 02 00 37? 05 : 8C 
0820 : 30 02 88 20 52 AF 4D ДЕ AF F1 BC F7? 00 20 DO 20 : 79 
D830 : 46 24 F1 22 33 22 ЗА 89 20 9E 6C 02 00 56 05 ЗА : C6 
D840 : 02 8B 20 52 4F 4D 4E АҒ Fi OC EF 00 20 DD 20 46 : 87 
D850 : 24 F1 22 34 22 ЗА 89 20 9E 6C 02 00 75 05 44 02 í AC 
D860 : ВВ 20 52 ДЕ 4D ДЕ AF F1 OC DF 99 20 DD 20 46 24 : 99 
0870 : F1 22 35 22 ЗА 89 20 OE 6С 02 00 94 05 ДЕ 02 8B : 3D 
0880 ; 20 52 AF 4D 4E AF F1 ес BZ 080 20 DD 20 46 24 F1 : 07 
D890 : 22 36 22 ЗА 89 20 ӨЕ 6C 02 00 ВЗ 05 58 02 8B 20 : 96 
D8A@ : 52 ДЕ 4D ДЕ AF F1 OC 7F 00 20 DO 20 46 24 F1 22 1 A1 
D880 : 37 22 ЗА 89 20 OE 6C 02 00 BE 05 62 02 46 24 F1 : ЗА 
D8C9 : 22 2A 22 00 CE 05 éC 02 47 45 54 44 F1 47 45 54 1 ^4 
0800 : 44 ЕЗ 12 00 EQ 05 76 02 42 41 ДЕ 4B F1 FF 97 28 1 71 
D8EQ : 47 45 54 44 29 00 08 06 80 02 8B 20 42 41 ДЕ 4B : A4 
D8F9 : F1 ӨС 00 өө 20 DO 20 47 24 F1 22 45 56 45 ДЕ 22 1 Ев 


ADRS 1 +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F tSUM 
D900 : 20 ЗА 9Е 20 47 24 F1 22 AF 44 44 20 22 00 18 06 : СЕ 
D910 : ВА 02 47 45 54 44 F1 47 45 54 44 F3 12 00 28 06 1 FB 
D920 : 94 02 41 44 52 53 31 F1 FF 97 28 47 45 54 44 29 1 ED 
D930 : 00 ЭВ 06 9E 02 47 45 54 44 F1 47 45 54 44 F3 12 1 IF 
D940 : 00 ДЕ 06 АВ 02 41 44 52 53 32 F1 FF 97 28 47 45 1 95 
D950 : 54 44 29 00 6F 06 B2 02 48 48 24 F1 FF 9А 28 41 : 91 
D960 14452753732 29"F3-7FE 9A 28.41.44 52 53 31 292 F3 t SF 
D970 : 22 30 30 22 00 ве 06 BC 02 48 24 F1 FF 82 28 48 1 36 
D980 : 48 24 2C 15 29 00 C2 06 Có 02 ВВ 20 46 24 F1 22 1 ВЕ 
D990 : 2A 22 20 DD 20 44 24 F1 22 2A 2A 2A 2A 2A 2A 2A 1 9A 
D9A0 : 2A 2A 2A 2A 2A 2A 22 ЗА 45 24 F1 22 20 2А 2A 2A 1 72 
0980 : 2A 2А 22 ЗА 47 24 F1 22 2A 2A 2A 2A 22 ЗА 48 24 1 9E 
DICO : F1 22 2А 2А 2А 2А 22 00 CF 06 D9 02 43 24 F1 FF : DB 
D900 : 93 28 43 29 00 F2 06 DA 02 88 20 43 FQ 11 20 ЕВ 1 02 
09Е0 : 20 43 F2 OF QA 20 DD 20 59 24 F1 22 20 22 20 ЗА 1 В? 
D9F0 : Е 20 59 24 F1 22 22 00 40 07 Е4 02 4D 53 47 24 1 ^9 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B vC +D +E +F :50М 
DA99 : F1 43 24 F3 22 20 20 20 20 20 20 22 F3 59 24 F3 1 B2 
DA10 : 44 24 ЕЗ 22 20 20 20 20 20 22 F3 45 24 ЕЗ 22 20 1 00 
DA29 : 20 20 20 20 20 20 20 22 F3 46 24 ЕЗ 22 20 20 20 1 04 
DA30 : 20 20 20 20 20 22 F3 47 24 ЕЗ 22 20 20 20 20 20 : 05 
DA49 : 20 22 ЕЗ 48 24 00 53 0? EE 02 06 20 17 2C 47 59 1 C4 
DA50 : 4F ЗА 91 20 4D 53 4? 24 00 79 0? ЕВ 02 8B 20 50 1 BA 
DA69 : 53 57 F1 12 20 DD 20 40 53 47 24 F1 22 20 20 20 : 48 
DA79 : 20 22 ЕЗ 40 53 47 24 ЗА 9B 20 40 53 47 24 00 9E : DE 
DA80 : 97 02 ӨЗ 40 53 47 24 F1 22 22 ЗА 4D 24 F1 22 22 1 2C 
DA90 : ЗА 44 24 F1 22 22 ЗА 48 48 24 F1 22 22 ЗА 48 24 : A0 
DAA9 : F1 22 22 00 AD 07 OC 03 88 20 43 FQ OF 2F 20 DD : 11 
DABO : 20 81 00 C2 07 16 03 ВВ 20 43 54 52 F2 OF 12 20 』 4A 
DACO i DO 20 89 20 OE A4 01 00 F1 07 20 03 06 20 11 2C 1 А? 
DAD9 : OF 16 ЗА CB 20 15 ЗА AE 20 85 20 22 ДЕ 45 58 54 : 60 
DAE9 : 20 44 41 54 41 20 28 4E 2F 45 29 20 ЗЕ 22 ЗВ 49 : 72 
Н : 


ADRS : +@ +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F :SUM 
DB99 ; F1 22 45 22 20 DO 20 81 00 1С 08 34 03 91 20 FF 23 
DB10 : 96 28 ӨЕ ӨС 29 ЗА 47 59 АҒ F1 14 ЗА 43 54 52 F1 : 44 
DB20 í 11 00 2C 08 ЗЕ 03 80 20 OE 66 03 ЗА 89 20 OE A4 1 ЗЕ 
DB30 : 01 00 SE 08 66 03 Dé 20 OF 14 2C 11 ЗА 91 20 22 : 33 
DB49 : 2А 2A 2A 20 52 4F AD 20 BE B2 B7 DE AE 20 СЗ 2D : éF 
0850 : CC DE 09 20 BA CF DD C4 DE 20 B2 Сі 07 DD 28 2A 1 ЗС 
DB69 : 2A 2A 22 00 B7 08 70 03 8B 20 28 50 53 57 F1 12 1 78 


281 


282 


087@ : 20 F8 20 AF 53 57 F1 11 29 20 DD 20 9B 20 22 20 : 76 
DB80 : 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 , 00 
D890 : 20 20 20 2A 2A 2А 20 52 АҒ 4D 20 BE B2 B7 DE AE : BF 
DBA9 : 20 СЗ 2D CC DE D? 28 ВА CF DD C4 DE 20 B2 C1 07 : 25 
ОВВ@ : DD 20 2А 2A 2A 22 ЗА 9B 20 22 20 22 99 ӨС 09 7A : 85 
DBC9 : өз Dé 20 12 2C 13 ЗА 91 20 22 20 20 20 20 20 20 : 17 
DBD9 : 4E 4F 20 20 20 20 20 20 BA CF DD C4 DE D2 B2 20 : 09 

1 1 

1 1 


ADRS : +9 +1 +2 +3 +4 45 +6 +7 +8 +9 +A +В +С +0 4E +F :50М 
DC99 : 20 СА DE DD B8 20 20 20 20 20 20 Ві C4 DE DA ВО : 07 
DC19 : 22 00 6E 09 84 ӨЗ 8B 20 28 50 53 57 F1 12 20 F8 : 08 
DC20 1 20 АҒ 53 57 F1 11 29 20 DD 20 9B 20 22 20 20 20 : 9E 
DC39 : 20 20 ДЕ АҒ 20 20 20 20 20 20 BA CF DD C4 DE D2 : 77 
DC40 : B2 20 20 20 20 20 20 20 20 20 20 20 20 B9 DE DD : A6 
DC50 : BA DE 20 20 20 20 20 20 52 4F 4D 4E 4F 20 20 20 : 43 
DC69 : 20 20 20 CA DE DD B8 20 20 20 20 20 20 B1 C4 DE : BO 
DC79 : DA BD 22 99 78 09 8E 03 4F 53 57 F1 12 00 7E 09 : 4E 
DC80 : 98 03 8E 00 8A 09 CO 03 20 84 20 26 48 43 35 00 : 29 
DC90 : 96 09 CA ӨЗ 20 84 20 26 48 44 35 00 А2 09 04 03 1 99 
DCA9 : 20 84 20 26 48 45 35 99 AE 09 DE 03 20 84 20 26 : 2E 
DCB9 : 48 46 35 00 BE 09 E8 03 84 20 26 48 33 45 2C 26 1 51 
DCC9 : 48 46 44 00 CE 0? F2 03 84 20 26 48 44 ЭЗ 2C 26 1 79 

: 1 

1 1 

1 1 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 48 +9 +A +B «C +0 «E +F :SUM 
0000 : 10 04 84 20 26 48 32 41 2C 26 48 31 42 2C 26 48 : 40 
DD10 : 45 30 00 1D OA 1A 04 84 20 26 48 45 44 2C 26 48 : EF 
DD20 : 42 30 00 32 9A 24 04 84 20 26 48 32 32 2C 26 48 : Eé 
0036 : 31 42 2C 26 48 45 30 00 3D BA 2E 04 84 20 26 48 : 0D 
DD49 : 46 31 00 48 QA 38 04 84 20 26 48 45 31 00 53 OA : EA 
DD50 : 42 04 84 20 26 48 44 31 00 БЕ BA 4С 04 84 20 26 1 АҒ 
DD69 : 48 43 31 00 69 ВА 56 04 84 20 26 48 43 39 00 79 : 90 
0070 : Ва 60 04 84 20 26 48 30 30 2C 26 48 36 31 00 00 : El 
DD89 : 00 53 41 29 2С 15 29 ЭВ FF 98 28 14 29 ЭВ FF 82 : 1А 
0090 : 28 22 30 22 F3 FF СВ 28 52 52 29 18 13 29 ЗВ FF : 09 
DDAO : 98 28 OF OC 29 ЗВ FF 82 28 22 30 30 30 22 ЕЗ FF : AE 
DDB9 : C8 28 57 SA 29 2C 15 29 ЭВ FF 98 28 13 29 3B FF : A4 
00С0 : 82 28 22 30 22 ЕЗ FF C8 28 52 44 29 2C 13 29 00 : 27 
DODO : DO 1E 5A 23 ВЕ 00 D8 1E 64 23 ЗА BF E9 00 00 00 : 28 
DDE9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
DDF9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : Ғе 


ADRS : +0 +1 +2 +3 44 +5 +6 +7 +8 +9 +A +B +С +D +E +F SUM 
DEBA : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : Fe 
DE19 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 
0Е20 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
DE30 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : Fø 
DE49 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
0Е50 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 РӨ 
DE69 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ¢ Fø 
DE79 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : Fø 
DEB9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
DE90 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
DEA9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
DEBO : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
DECO : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
DEDQ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
DEE9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FQ 
DEFO : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 1 FO 


ADRS : +0 +1 +2 +3 +4 +5 +6 +7 +8+#+9 *A +В +С +0 +Е +F :50М 
DFOG + FE EE EF FRE ЕРЕ РЕ РЕ ЕР FF ВЕСЕРЕЕКНЕР"ЕРЗЕР! AEG 
DE10 1 FF FE EF EF RESFF FF FE FF FF БЕСЕРЕВЕЗЕРК EF ORF: MEQ 
DF20@ : FF FE EF EE EEGEF EF FF FF FF FECEFCFPS;FF: КЕЧЕЕ: 4 EQ 
ПЕЗӘ t FEE PE ЕЕЗВЕЗЕЕЕЕ ECE ЕЕ FF FF  FEZ26EPRECEFUBE SF: GO 
DF40 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
DESO 1-FF- FE EPXBESBRPEE FF FE EF FF FFSPENEPOPELEE BE. rupo 
DEGO 1 FF FF RFOBEHdBEMEF- FF РЕ FF FF ЕРЕРЕЧНЕЗЕЕ. EFTEF : FO 
DF79 1 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : F8 
DF80 з FE: EE EF FE FF EESFEE FF FF ЕЕ EF FE FF FFE EF EF : FO 
DESO: AAEE АРЕ EFAFF FF FEF FF ЕР FE FE EF FF FF EF : FQ 
ОРА : FF FF FF FF FF FF FF EE? EFCEF .EFAFRSEF! FARE ЗЕР: sd F0 
DFB9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FQ 
FCO EE RE EE FE EEGER FEE EE FE. FF FF EF EECFE ЕЕ FF t FO 
DFD9 : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : FO 
ОРЕВ : FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF : F8 
: 


10 Y EDE E E ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 
А 


20 ‘ж x 
30 “w ROM セイ キ * ョ テー フ " ル Ыз?“ 7°07*3h ж 
40 “ж x 
50 “w 1984.06.01 x 
60 'x BY A.SAITO x 
70 “ж x 
80 'T33900000000000000000000000000000(XXX 
9g “ 


100 CLEAR ,&H9FFF 
110 WIDTH 40,20:CONSOLE 8,25,0,1:COLOR 7 

120 PRINT CHR$(12) 

130 * 

140 't543* ロー ト * 

159 “ 

169 MACHINE=&HE999 "キカイ コ " アト "レス セッ ト 
170 DEF USR9=MACHINE 

180 FOR ADR-MACHINE TO MACHINE+28 "キネ カ イコ" ロート " 

190 READ ВҮТЕ:РОКЕ ADR,BYTE 

200 NEXT ADR 

210 ^ 

220 “42149 ヒョウ シラ * 
230° 

240 LOCATE 3,2:PRINT 
250 LOCATE 3,3:PRINT 
260 LOCATE 3,4:PRINT 


* E E E E E EE E EE E E E E E E E E E E E E E E E EE " 
279 LOCATE 3,5:PRINT : 


ROM セイキ“ ョ テー フ " ル カカ" イト" 


280 LOCATE 3,6:PRINT 
290 LOCATE 3,7:PRINT 
300 LOCATE 3,8:PRINT 
310 LOCATE 0,10 E 
320 COLOR 4:LINE INPUT ° жж フウ リ ンタ 135/37 (Y/N) ww';IN$:COLOR 7 

IF IN$='Y° THEN PSW=1 ELSE PSU=0‏ و 

350 “ショ キ ts?4 

360 * 

370 WIDTH 80,25:CTRz0:C-0:GYO-310SU-0 PRINT CHR$(12) 

380 GOSUB 876 

390 ° 

400 メイ ン ショ リ 

410 * 

420 MACHINE=&HE000 "キカイ コ " アト "レス セッ ゥ ト 
430 DMY$-' ':DEF USRQ=MACHINE : M$=USR9(DMY$) 

440 GETD=&HE020:D$=" " :C=C+1 :GY0=GY0+1 :CTR=CTR+ 1 “7-7 エリア ショ キ セ ゥ テイ 


* x 
x E 
x x 
x FOR PC-8801 ж 
x Ei 
x ж 


E E E EE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ IE JE ЭЕ ЭЕ IE JE E ЭЕ ЭЕ ЗЕ 


450 PRINT M$ キネ カ イコ" ルー チン コール 
469 FOR 1=бЕТО TO GETD+11 ITAK X4: BET 
470 7=РЕЕКСІ) :D$-D$4CHR$(Z) 

480 NEXT I 

490 GETD=GETD+11 ; 

500 COMP-PEEK(GETD) BASIC/ASSM 


510 IF COMP=9 THEN E$-' ВАЅІС":0%=0%+" ° ELSE E$-'ASSM ':D$-D$*CHR$(COMP) 
520 GETD=GETD+2 

530 ROMNO-PEEK(GETD) ^ROM-NO GET 

540 IF ROMNO-&HFD THEN F$-'1':GOTO 620 “ROM-NO = 1 
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550 IF ROMNO-&HFB THEN F$-'2':GOTO 620 ^ROM-NO = 2 
560 IF ROMNO=&HF7 THEN F$-'3':GOTO 620 ^ROM-NO = З 
570 IF ROMNO-&HEF THEN F$-'4':GOTO 620 ^ROM-NO = 4 
380 IF ROMNO-&HDF THEN F$-'5':GOTO 620 ^ROM-NO = 5 
590 IF ROMNO-&HB? THEN F$-'6':GOTO 620 ° ROM-NO = é 
600 IF ROMNO-&H?F THEN F$-'?':GOTO 620 ^ROM-NO = 7 
610 F$-'x ^ROM-NO 1-7 イカ * イ 
620 GETD=GETD+1 
630 BANK=PEEK(GETD ) "NW y2(EVEN/ODD) GET 
I 640 IF ВАМК=&Н@ THEN G$-'EVEN' ELSE G$-'ODD ' 
Ba 650 GETD=GETD+1 
bor 660 ADRS1=PEEK(GETD ) "アト" ルス GET(LOU) 
К 67@ GETD=GETD+1 
К 680 ADRS2-PEEK(GETD) “アト "レス GET(HIGHT) 
les. 690 HH$-HEX$(ADRS2)*HEX$(ADRS1)*'00* "アト "レス ヘン カン 
700 H$-RIGHT$(HH$,4) アト "レス ヘン シュ ウ 
E: 710 IF F$z'x' THEN D$z- ponon nex" 1E SS" xxdwGXGC' 16$z " xc" 1H$z "sex" 
Es 720 C$-STR$(C) 
730 IF C>9 AND C<19 THEN Y$-' ' ELSE Y$-'' 
i 740 MSG$=C$+'` *+Y$+D$+' `+E$+' "+Е$+' `+G$+' `+H$ 
| 750 LOCATE 6,GYO:PRINT MSG$ "ヘン ラ ュ 9 テツ ー タ 1 £'39 シュ リョク 
шн 760 IF PSU-1 THEN MSG$='` '*MSGS:LPRINT MSG$ ^ フ "リン タ シュ リリ ョ ク 
ms 770 MSG$-'':M$z'':D$-'':HH$-'':H$-'" “луд? クリ ア 
780 IF C>47 THEN END "セン 7-3 270 p? 
| 79@ IF CTR<18 THEN GOTO 420 “1 ヘン ラ ュ 9 170 77? 
i 800 LOCATE 0,22:COLOR 4:LINE INPUT 'NEXT DATA (N/E) ?';INS$:COLOR 7 
| 810 IF IN$-'E' THEN END '$319U39 55" p? 
pe 820 PRINT CHR$(12):GY0-3:CTR-0 “NEXT ヘッ > ュ 9 ショ キネ セッ テイ 
l 83@ GOSUB 870:GOTO 420 “NEXT ^»»19 эз) 
| 840 ' 
iuf 850 “ミタ "シラ ラ ュ ウリ ョ ク 
E 860 ' 
s 870 LOCATE 20,0:PRINT "xxx ROM tí(+"s 7-7" A コマ ント " イチ ラン xxx" 
і 880 IF (PSU=1 AND OSU-0) THEN LPRINT " xxx ROM セイ キネ" ョ テー フ * ル コマ 
Я ント "イチ ラン **x*'iLPRINT ° ° 
j 890 LOCATE 1,2:PRINT ' NO コマ ント "メイ ухуд“ ROMNO ny 
Ë 7 ァ ト "ルス " 
k: 900 IF (PSU-1 AND OSW=0) THEN LPRINT ' NO コマ ント" メイ БЕШ 
I ROMNO M y ァ ト "レス " 
p 910 OSU-1 
i: 920 RETURN 
m 930 ˆ 
| 940 "マミ ンコ " フ * ロク" う ム 
= 950 “ 
960 DATA &HC5 : ‘PUSH BC 
um 970 DATA &HD5 1 "PUSH DE 
e 980 DATA &HES 1 'PUSH HL 
i 999 DATA &HF5 1 "PUSH PSU 
IS 1000 DATA &H3E,&HFD 1 “LD  A,FDH 
= 1010 DATA &HD3,&H71 : ‘OUT 71H 
1020 DATA &H01,&H10,&H00 : “LD BC,0010H 
| 1030 DATA &H11,&H20,&HE0 : “LD DE,E020H 
: 1040 DATA &H2A,&H1B ,&HE9 : “LD HL,(E01BH) 
T 1050 DATA &HED,&HB9 : “LDIR 
| 1060 DATA &H22,&H1B,&HEQ : “LD (E01BH),HL 
1070 DATA &НЕ1 : POP PSU 
HE 1080 DATA &НЕ1 : "РОР HL 
t 1090 DATA &HD1 : "РОР DE 
s 1100 DATA &HC1 t “РОР ВС 
i 1110 DATA &HC9 : "RET 
DATA &H00,&Hó1 : DC 6100H 


2 | 1120 


コマ ンド 命令 | 


ROMATN 
1 
2 E BRCV 3 ASSM | ЕМЕМ 6C00 
" — 
3 EPROM BASIC 7 EVEN 6000 
4 | BREAD ASSM | ЕМЕМ 7000 
= 
5 GASS BASIC 2 EVEN 6000 
6 GUIDE | BASIC | | EVEN 7300 


表 1 ROM 制 御 テ ー プ ル 出 力 リ スト 
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START 


A EINSx—207r7 


その 他 ( 名 標 処理 ) 


EVEN ODD 


ポー ト の 7 FH に 
00 を 出力 


騙 ポ ボート の 7 FH に 
01 を 出力 


( ) 初期 設定 
第 2 パラ メー タ の ROM-NO を デー タパス 値 
に 変換 し て 尺 ポ ボ ポート の 7IH に 出力 


8 第 3 パラ メー タ を CALL パ ラメ ー タ 
アド レス に 設定 


該当 ルー チン へ 制御 移行 


()жох®жїт 


該当 ジャ ンプ テー ブル 上 の 
パラ メー タ を 設定 


該当 ルー チン へ 制御 移行 


С) 次 の 文 を 実行 


し 
図 7 概要 フロ ー(CP チ ャ ー ト ) 


EVEN 側 


DBO 


AB 0 
А 
ГА 
А 


っ の の ьо м — 
ә) 


さき きき 


Л 
RST 
デー タ 保 持 
の LS30 よ り 
ROM ROM 
2 1 
ODD 側 


図 8 112 バ イト 拡張 時 の 参考 例 
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声 合成 / 認 識 の 試み 


1985 年 2 月 掲載 


PART 1( ハ ー ド ウェ エア 編 ) 


今回 製作 する ボー ド は , 音声 認識 の 原理 
を で きる だ け 多 く の 人 が 理解 で きる 入門 用 
モデ ル で す 。 コ ント ロー ルプ ブロ グラ ム も ソ 
ー ス を すべ て 公開 し まし た の で , 音声 認識 
の 実験 に お 役立て て だ さい 。 


音声 認 
の 原理 


人 間 の 音声 の 周波 数 帯域 は 一 般 に 数 
100 一 数 kHz 程度 で す 。 音声 に は 大 きく 分 
け て 母音 と 子音 だ が あり ます が , 母音 (А, 
I, U, E, O) の 周波 数 帯域 は 低く T, 
数 100Hz オー ダー で す 。 こ れ を 有声 音 と 呼 
ん で いま す 。 こ れ に 対し , 子音 は た と えば 
「 カ 」 が KK と いう 無声 音 と A と いう 有声 音 
の 組 に な っ て いる の で , 非常 に 周波 数 帯域 
が 広く な り ま す 。 そこで , これ ら 音 声 の 特 
徴 を デジ タル 量 に 変換 , 電気 的 に 分 析 し, 
特徴 抽出 し て 各 音 声 の 区 別れ する わけ で す 。 
抽出 に は , BPF (後述 ) と A/D コ ン バ ー タ を 


利用 し ます 。 
実際 の 音声 認識 アル ゴリ ズム で は , 最初 
に 認識 すべ き 音 声 単語 を 何 種類 か コン ピュ 


ー タ に 登録 し ます 。 た と えば 「 東 京 」, Toe 
ツユ コン 」 な どの 単語 ああ ら か じ め 記 憶 き せ 
注 
Hz( ヘ ルツ ) | 秒間 の 振動 数 を 表す 単位 。 電 波 の 存在 を 
初め て 確か め た , ドイ ツ の 物理 学者 の 名 か ら と られ た 。 
kHz (| キロ ヘル ツ ) は 1000Hz。 
A/D コ ン バ ー タ アナ ログ (BE) を デジ タル GRE) 


に 変換 する 装置 。 デ ジタル 電圧 計 や PCM 録音 に 使用 され 
て いる 。 


286 


る の で す 。 こ れ を テン プレ ー ト の 作成 と い 
いま す 。 つ まり , 登録 単語 数 が 10 個 の と き 
は テン プレ ー ト の 数 も 10 個 必要 に な り ま す 。 
次 に , 認識 させ たい 単語 を 発声 する と, 
Aue S T WAP 
ング し て , いち ば ん 類似 性 の 高い ちの を 音 
声 認識 結果 と し ます 。 類似 性 の チェ ッ ク に 
は 大 きく 分 け て , 線形 マッ チン グ 法 と DP 
マッ チン グ 法 が あり 3 まあ の 語 あ 5 で C て わし 3 
述べ ます が , 私 は 線形 マッ チン グ 法 を 用 い 
て いま す 。 当然 の こと な が ら 6, テン プレ ー 
F に 登録 し た 人 以外 が 話 者 と な っ た 場合 に 
は 誤認 識 する 割合 が 高く な り ま す 。 ま た , 
登録 され た 単語 以外 は 認識 し て くれ ませ ん 。 
この よう な 方 式 を 「 限 定 語 菓 特定 話 者 に よ 
る 離散 発生 の 認識 」 と 呼ん で いま す 。 
今回 は , この 特定 話 者 に よる 認識 方 式 を 
採用 し て いま す 。 最 近 で は 各 メ ー カ ー よ り 
不 特定 話 者 を 対象 と し た も の , きら に 連続 
音声 の 認識 装置 が 開発 きれ て いま す が , J 
ステ ム が か な り 複 雑 な こと か ら 高 価 で , 一 
般 ユ ー ザ ー 向 け で は あり ませ ん 。 


ハー ドウ ェ ア 
К 7 


今回 作っ た 「 音 声 認識 ボー ド 」 の 仕組 み 
£#Bl1 に 示 じ まし た だ た 。 こ の プ ブロック ダイ ギヤ 
グラ ム を も と に , 以下 各 プ ロッ ク に 分 け て 
説明 し ます 。 


プリ アン プ 


この プリ アン プ 部 で は マイ ク か ら の 音声 
信号 を 増幅 し て , 次 の AGC アン プ へ 出力 
595 


AG ビア ンプ 


マイ ク か ら 拾 っ た 音声 の 音 圧 レ ベル は 非 
常に 広い に ダイナミック レン ジ ど を も っ て いま 
+, そこで て で, AGC (Automatic Gain Con- 
trol: 自動 利得 制御 回 路 ) を 付加 する こと 
に より , マイ ク グ 入 力 の 音 圧 レベ ル が 変動 し 
た 場合 で も ほぼ 一 定 の 増幅 出力 が 得 ら れる 
E ELSOT 7 だ t tW. 
日 と の 距離 が 変化 し た 場合 で も 出力 を 一 定 
レベ ル に 保ち ます 。 こ の 回 路 は リニア IC と 
FET を 組み 合わ せ た だ も の で す 。 


プリ エン ファ シス 
( 高 域 強調 回 路 ) 


プリ アン プ あと の 処理 に 合う よう に , 信号 の 周波 数 
成分 や 振幅 を 調節 する 装置 。 オ ー デ ィ オ の プリ アン プ も 
同じ 意味 。 

AGC アン プ 入力 の 信号 の 強 さ が 変わ っ て も , 出力 を 
一 定 に 保つ よう な 装置 。 テ ー プ レコ ー ダ の 録音 用 に 使用 
され て いる 。 


リ ニ ヤ IC アナ ログ IC の こと 。 信号 を 直線 的 ( リ ニ ヤ ) 
に 扱う こと か ら こ の 名 が つい た 。 た と えば , オー ディ オア 
ンプ , オペ アン プ , コン パレ ー タ な ど が ある 。 

オペ アン プ 演算 増幅 器 と も いう 。IC 化 され た 高 性 能 
の 汎用 増幅 器 で , 余裕 を も っ て 使う 場合 に は , 理想 化し て 
簡単 に 回 路 設計 が で きる 。 非常 に 多く 用 いら れる 。 


人 間 の 音声 の 子音 (無声 音 十 有 声音 ) の 
特徴 抽出 は , 一 般 に 難し いも の で す 。 た と 
えば 「 カ 」 は , 

КА=К+А 
CT», この K の 部 分 の 抽出 は 大 部 分 が ノ 
イズ で ある た め , 比較 的 高い 周波 数 成分 を 
多く 含ん で いま す 。 を そこで, 高い 周波 数 成 
分 を と くに アン プ て 増幅 し , 特徴 を 抽出 し 
а Tes 


バッ ファ アン プ 


次 の 回 路 に 安定 し た 信号 を 送る た め の 部 
SEC, オペ アン プ を 使用 し て いま す 。 85725 
出力 イン ピー ダン ス を 下げ ます 。 


BPF (Band-Pass-Filter) 


この バン ド ・ パ ス ・ フ ィ ル タ 部 分 は , 音 
声 認識 率 を 左右 する 重要 な 部 分 で す 。 
先ほど か ら 音 声 の 特徴 抽出 と いう 言葉 が 
頻繁 に 出 て き て いま す が , この BPF に よ 
っ て 抽出 を 行っ て いま す 。 

音声 の 周波 数 成分 は だ どい た い 100-7 k 
Hz 付近 に 集まっ て いま す の で , 今回 は フ 
ィ ル タ を 3 つ 設 け , 中 心 周波 数 を 130Hz, 
800Hz, そし て 6.5kHz に 設定 し まし た 。 X 


ZIE š 


図 1 音声 認識 装置 プロ ッ ク ダ イヤ グラ ム 


k, 原理 的 な 装置 し いう こと で , フィ ル タ 
を 3 つ に し まし た が , 日 本 電気 の 音声 認識 
ボー ド の PC-8012-03, PC-8012-05 で は フィ 
ル タ を 8 つ 使 用 し て いま すし , 製品 に よっ 
て は 16 個 使用 し て いる も の も あり ます 。 フ 
ィ ル タ の 増幅 度 人 は 10 倍 , 選択 度 Q は 3 に 
設計 し まし た 。 な お , BPF は オペ アン プ を 
利用 し た 多重 帰還 型 で 設計 し まし た 。 


| 
О 


АС- 
(交流 電圧 / 直 流 電圧 変換 ) 


BPF か ら 出 力 す る 信号 は 交流 信号 で あ 
る た だ ため, 次 の プロ ッ ク の A/D コン バー タ 
に 直接 入力 する こと が で きま せん 。 そこで, 
交流 電圧 ここ で 直流 電圧 (DC0—5V) に 
変換 する わけ で す 。 今回 の AC-DC 変換 回 
路 は ダイ オー ド と CR の 積分 回 路 の 平滑 回 
路 で 構成 きれ て いま す 。 


A/ リ コン バー タ 


この A/D コン バー タ は , 40 AC-DC 部 
か ら 6 出力 る され だ DC0-5V の 直流 を 
00—FFH の デー タ に 変換 し ます 。 今 回 は 8 
チャ ン ネ ル の マル チ プ レク サタ イプ ADC- 
0809 を 使用 し ま し た 。 入力 が 8 チャ ン ネ ル 
分 ある わけ で す が , BPF の フィ ル タ が 3 2 


0=3 
fo=130Hz 


だ け な の で , チャ ン ネ ル CH0 一 CH2 tf 
用 し まし た 。 なお, 変換 時 間 は 最高 で 100x 
秒 /CH, つ まり 1 チャ ン ネ ル 当 た り 100z fh 
C, 8 チャンネル 分 で は 800z 秒 に な り ま 
す 。 実 際 の 音声 抽出 は 10m 秒 の サン プリ ン 
グ 周 期 で 行う の で , 3 チャ ン ネ ル と し て も 
300u 秒 で す 。 し た が っ て , 変換 時 間 の 問題 
は あり ませ ん 。 こ れ は , 10m 秒 ご と に 3 チ 
ャ ン ネ ル ん 分 (3 つの ВРЕ か ら の 出力 を ) 同 
時 変換 する と いう こと で す 。 

各 ブ ロッ ク ご と の 特性 を 測定 し た 結果 を 
図 2 に 示し ます 。 

① は AGC-AMP 部 の 入力 特性 曲線 で す 
が , 入力 周波 数 f を 1kHz に 保っ た まま 入 
力 電 圧 を 0 一 6 mV に 変化 きせ た と き の 
出力 電圧 の 状態 を 示し た も の で す 。 こ の 特 
性 曲線 で は 入力 電圧 が 3 mV 以上 で も 出 
力 電圧 は ほぼ 一 定 で ある こと が 分 か り ま す 。 

② は , 3 つの BPF の 特性 曲線 を 示し て 
いま す 。 各 フィ ル タ の 条件 は 先ほど 述べ た 
よう に 増幅 度 が 10 倍 で す 。 こ こ か ら 

20log10 =20dB 
と な り ま す 。 ま た 選択 度 Q は 3 で す 。 それ 
ぞ れ の 中 心 周波 数 は 130Hz, 800Hz, 6.5k 
Hz と な っ て いる の が 分 か り ま すね 。 

な お , この 特性 曲線 は 入力 電圧 40mV で 
一 定 に し た 場合 の 周波 数 を 20Hz 一 20kHz 
の 範囲 で 変化 きせ た と き の 入 出力 特性 曲線 
С 


A/D コ ン バ ー タ 


ADC-0809 
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①AGC- AMP の 特性 


②BPF の 特性 


Vo(mV) 
出 4 
カ 
電 
E 3 
増 
幅 
度 
2 A 
] 
9 2 4 6 
入力 電圧 VI(mV) 
プリ エン ファ シス 特性 ④ 総合 特性 
高 域 で A が 増え る 
= ои 
s s 
Ж ede ME 
x A 


10 100 IK 


10K 10 


— 周波 数 f(Hz) 


@PC-8012-03 BPF 特 性 


> FF Ш 


5 10 
— 周波 数 人 (Hz) 


図 2 

③ は プリ エン ファ シス 部 の 特性 曲線 を 示 
し て いま す 。 こ の 特性 は 入力 電圧 を 40mV 
と 一 定 に し た 場合 , 周波 数 を 20Hz 一 20kHz 
と 変化 きせ た と き の 入 出力 の 状態 を 示し て 
いま す 。 高 域 周波 数 帯 で の 増幅 度 が 高い の 
が 分 か る と 思い ます 。 

(《④① は プリ エン ファ シス 部 と ВРЕ 部 を 通 
過 し た あと の 総合 特性 曲線 で す 。 

参考 まで に , PC-8012-03 の 8 つの フィ ル 
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タ 群 の 特性 を 測定 し た 結果 を ⑤ に 示し ます 。 
PC-8012-03 で は 150Hz-10kHz 程度 を 8 
つの フィ ル タ で 分 割 し ,。 プリ エン ファ シス 
特性 を か な り 生 か し て いる よう で す 。 測定 
は SPU ボー ド を 単体 で 用 いて , スウ ィ ー 
ププ ジェネレータ を 併用 し て 測定 し た も の で , 
多少 測定 結果 に 誤差 は ある と 思い ます が 参 
考 ま で 。 


130Hz 800Hz 6.5kHz 


— 


100 IK 10K 


ーー 一 周波 数 f(Hz) 


ボー ド の 製作 


ボー ド に は サン ハヤ ト の ユニ バー サル ボ 
ー ド を 使い まし た 。 右側 に は デジ タル 回 路 , 


左側 に は アナ ログ 回 路 も それ ぞ れ 配線 し て 
いま す 。 部品 表 は 表 1 で す 。 

最初 に 各 IC の 電源 関係 か ら 配線 し て 〈 
だ さい 。 各 1C に は 必ず 1 個 の 0 .1-1.0z F 
の パス コン を 入れ て くだ さい 。 アナログ 回 
路 が 含ま れ て いる の で , 回 路 図 に は 書い て 
は いま せん が , フ パス コン は 絶対 に 忘れ な いよ 
Э! 

また , 部 品 の 大 体 の 配置 は 。 リー ド 線 は 
短く , 最短 距離 に な る よう に し て くだ さい 。 
これ は , マイ コン 本 体 か ら の アナ ログ 回 路 
へ の ノイ ズ の 影響 に よる 誤認 識 を 防ぐ た め 
ө 
ES 

半 固 定 抵抗 の 調整 


KERS 
次 に , 回 路 図 中 に 半 固 定 抵抗 が 10 個 


(VR1—VR10) b idu», Ф VR の 調整 
方 法 を 説明 し ます 。 基 板 の 調整 を 容易 に す 
る た め に 写真 に ある よう な エク ステ ン シ ョ 
ン ボ ー ド を 製作 し た 方 が よい と 思い ます 。 
この ボー ド を 挿入 する こと に より , PC- 
8801 の 外部 バス スロ ッ ト が 本 体 の 外側 に 出 
る の で , 各 VR が 調整 し や すく な り ま す 。 
最初 に IC5 の A/D コン バー タ を ソ ケ ッ 
ト か ら は ず し , 以下 の 調整 を 行い ます 。 

VR1 は プリ アン プ の 増幅 度 可変 用 で す 
DT, 最初 は 中 間 程 度 に し て お きま す 。 こ 
の レベ ル 設 定 は 次 段 の AGC アン プ の 特性 
に 大 きく 影響 し ます の で , 後ほど ぼく わし く 
説明 し ます 。 次 に VR3 は ほぼ 最大 (MAX) 
に , VR4 は 中 間 程 度 に 設定 し ます 。 そこ 
С, VR3 の 出力 を オシ ロス コー プ で 波形 観 
測 し な が ら , マイ ク に 向かっ て いろ いろ な 
音声 を 入力 し ます 。 VR3 の 出力 レベ ル が 入 


力 音声 の 強弱 に 無関係 に ほぼ 一 定 と な る よ 
うに VR を 可変 る きせ ます 。 ちな み に , この 
よう な 特性 が AGC アン プ で す 。VR4 を 変 
化 さ きせ て も あま り 出 力 に は 変化 が 見 られ な 
いと き は , 中 間 位 置 に モッ ト し て くだ さい 。 
そこ で , 先ほど の VR1 の 調整 に も どり 
ます 。 マ イク と 日 と の 距離 を 3 cm 前 後に し, 
落ち 着い て 何 か 音 声 を 発生 し た と き に 
VR3 の 出力 を 波形 観測 し な が ら , ほど よく 
АСС が か か る よう に VR1 を 調整 し ます 。 
以上 で VRI-VR4 の 調整 は 終了 で す 。 
Ei, オシ ロス コー プ が な い 信 は, あま 
り よ い 方 法 で は あり ませ ん が , VR3 の 出力 
を 任意 の アン プ に 接続 し て , マイ ク に 向 か 
っ て 何 か 入 力 し た と き に アン プ の スピ ー カ 
音 を 聞い て ,AGC が 働く 特性 に な る よう に 
回 路 セ セッ ト し て くだ さい 。 
な お , いずれ の 場合 も VR1 は で きる だ 


ES x. ا‎ 

IC ADC0809 NS | 1300 82К І 30 
ТА7158 東 芝 | 260 100K — | D 
TL082 Tl | 360 220К _ I / 
4558 ー 2 170 510K ー | / 
7402 — І 40 820К — I 7 
74LS93 — І 100 IM — I / 
74LSI26 _ | 85 半 固定 抵抗 IOK(Q) — 2 50 
74LSI38 ー | 75 20К — I / 

FET 2SKI9 — | 60 50К — 3 7 

ダイ オー ド IS 1555 E 3 20 100K = 4 / 
SD34 日 本 電気 2 — コン デン サ 電解 0.4/(F) = 2 30 

抵抗 金属 被膜 220(9) — | 30 lu — 3 / 
270 — I / 4.Tu ー 2 / 
IK — 10 7 10 — 6 7 
4.7K ー 9 / 22u -— | 7 
5.1K — | / 100% — I 50 
5.6K — I Hu セラ ミッ ツク 0: po — 適量 30 ХА > 
6.2К > | / マイ カ 0.001 — 2 7 
6.7K = І и 0.00157 — 2 / 
10K Е 3 / 0.0022; = | / 
12K — | / 0.01 E 3 7 
15K — І 7 0.068, -— 2 Г 
22К — I / 基板 РС-8012-01 日 本 電気 | 4800 同等 品 可 
24K ES 2 7 IC ソ ケッ ト 28P т! І 120 
47K — | H 16Р ク l 55 自信 の ある 人 
5IK — I / 14Р ГА 4 50 は 不用 
62K — І D 8P ク 3 45 

ا 
表 1 部 品 表 e 価格 は 参考 で す 。 また, 部 品 の 入手 が 困難 な 場合 は 販売 店 に 代替 品 を 相談 し て くだ さい 。‏ 
マイ ク の 接続 用 に は , 使用 する マイ ク に 合わ せ た コ ネ ク タ を 使っ て くだ さい 。‏ @ 
注‏ 


フィ ル タ 一 部 の 周波 数 成分 の み を 通過 させ , 残り を 
カッ ト す る 回 路 。 ロ ー パ ス フ ィ ル タ , ハイ パス フィ ル タ , 
バン ド パ ス フィ ル タ が ある 。 


ダイ オー ド 半導体 の 一 種 で , 電流 を 一 方 向 に し か 流 
さ な い 。 そのほか, 特殊 な も の と し て 定 電 圧 ダ イオ ー ド , 
可変 容量 ダイ オー ド , エサ キダ イオ ー ド な ど が ある 。 

CR 抵抗 と コン デン サ の 組み 合わ せ の こと 。 多く は 時 
定数 と し て 用 いら れる 。 た と えば ば ,CR 発振 回 路 な ど が ある 。 


平滑 回 路 電源 回 路 に お いて , リプ ル ( 直 流 に 含ま れる 
交流 分 ) を 取り 除く 回路 。 リ プル が ある と , 出力 に ハム ( ブ 
ー ン と いう 音 ) が 出る と いっ た 害 が ある 。 
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け 小 さく し て プリ アン プ の 増幅 度 を お る さえ, 
マイ ク と の 距離 も で きる だ け 接 話 状態 で 行 
っ て くだ きい 。 つまり, 外来 (周囲 ) 雑音 
が 入っ た まま 音声 認識 を 行う と , 認識 率 が 
非常 に 低下 する わけ で す 。 

ЖЕ, VR5 一 VR10 の 調整 方 法 を 述べ ま 
xy 

まず , 最初 に VR5, УКТ, УК を 最大 

(100k Q) に し ます 。 次 に , VR10 の 出力 
に 入力 イン ピー ダン ス 20k Q 以上 の テス 
タ を それ ぞ れ 接続 し , マイ ク に 向かっ て い 
ろ い ろ な 音声 を 入力 し ます 。 

この と き に 5V 以 上 に な ら な いよ うに 
VR6, VR8, VR10 を それ ぞ れ 調整 し ます 。 
も し , 5 V 以 上 の 場合 は , 最大 (50k Q) 
に し て お いて 〈《 だ さい 。 

次 に , VR6, VR8, VR10 に オシ ロス コー 
プ を 接続 し , 各 BPF の 出力 が ほど ょ く AC 
電圧 か ら DC 電圧 に 変換 きれ て いる こと を 
確認 し ます 。 もし, リッ プル ( 脈 流 ) 成分 
Dp Uu ТРУ E T UR O VRS, 
УКТ, VR9 DF VR を 任意 に 調整 し, Ж 
な DC 電圧 に な る よう に し ます 。 

な お , 100k Q の 半 固 定 を 小さ くす る と 
出力 電圧 が 小さ きく な る こと が あり ます の で , 
その と き は , 最終 出力 (VR6, VR8, VR10) 
の 50 k Q の 半 固 定 を 調整 し て くだ さい 。 

以上 で VR1— VR10 の 大 体 の 調整 は 終 


= > TR 


L1 


了 で す が , 音声 認識 が うま く で き な い し とき 
は , 再度 各 VR を 適度 に 変化 きせ て くだ きる 
い 。 こ こ で 初め て , IC5 の A/D コン バー タ 
を ツケ ッ ト に 差 じ て だ さい 8 

以上 で ハー ドウ ェ ア の 調整 は 一 応 終 了 し 
ます 。 回 路 図 を 図 3 に 示し ます 。 


ソフ トウ ェ ア 


音声 入力 部 


まず , 最初 に 行う こと は マイ ク か ら 入 っ 
て (る 音声 区 間 の 検出 で す 。 こ れ は 入力 音 
声 の 始点 と 終点 を みつ ける こと で す 。 

図 4 は マイ ク に 向かっ て 「 ト ー キ ョ ー」 
と 発声 し た 場合 の 発声 時 間 に 対す る 音 圧 
ベル の 変化 を 示し ます 。 発 声 の 前 後に 雑音 
が 入っ て いま す が , 周囲 雑音 た 考え て くだ 
きる い 。 図 か 6 分 か る よう に 始点 と 終点 は 「 し 
きい 値 レ ベル 」L 1 を 境 に みつ ける こと が 
で きま す 。 実際は 3 つの BPF 出力 を A/D 
変換 し た , その 出力 の 合計 が ある 値 以 上 に 


し きい 値 


| 
I 
I 
| 
I 
I 

終 


й 声 区 m 


図 4 音声 区 間 


注 


dB( デ ジタル ) 倍数 を 表す 補助 単位 。 常用 対数 に 10 を 乗 イン ピー ダン ス 


じ た 数 。10 倍 が I0dB, 100 倍 が 20dB, 1000 倍 が 30dB に 
な る 。 
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周波 数 に よっ て も 変化 する 。 イ ン ピ ビー ダン ス は 複素 数 に 
よっ て 表 さ れる 。 


交流 の 抵抗 の こと 。 直 流 抵抗 と 異な り , 


な っ た ら 始 点 と 決め , それ 以下 の 場合 を 終 
点 と 決め ます 。 

音声 の サン プリ ング は 10m 秒 ご と に 行い , 
3 つの BPF の 出力 を それ ぞ れ A/D 変 換 
し ます 。 今回 の 装置 で は 音声 区 間 の 最大 時 
間 を 2.56 秒 と し ます の で , デー タ 数 は 

2.56( 秒 )/10(m 秒 ) =256 ( 個 ) 
つま り , 1 つの BPF 出力 は 始点 か ら 終点 
まで 最大 256 バ イト 必要 と し ます 。 表 2 に こ 
の 関係 示し ます 。 し た が っ て , 2.56 秒 発 
声 し た 場合 は 音声 の 特徴 デー タ 数 は 最大 で 
256X 3 =768 (バイ ト ) 
と な り ま す 。 これ は , た と えば 音声 の 登録 
数 (テン プレ ー ト 数 ) が 10 個 の 場合 は 
768x10=7.68 (K バ イト ) 
必要 と いう こと で す 。 こ の まま で は メモ リ 
を 多く 使い ます の で , 次 の よう な 手法 を 用 
いて メモ リ の 節約 を し ます 。 

だ た と えば 図 5 に 示す よ う に , 仮に BPF-1 
の 始点 と 終点 の サン プリ ング 数 が 256 個 あ 
っ た と し ます 。 を そこで, 256 個 の うち 等 間隔 
に 16 個 ずつ の デー タ だ け を 抽出 し た 場合 は 
同 図 下 ひよ うに な り ま す 。 この よ うに, 256 
個 の 特徴 デー タ を 16 個 に 減ら すこ と が で き 
ます 。 こ の 操作 は も し サン プル 数 が 100 個 で 
あっ て も, 最終 的 に は 16 個 に な る と いう こ 
と で す 。 サ ンプ ル 間 隔 は 終点 に よっ て 決ま 
り ま す 。 こ れ を 時 間 軸 の 正規 化 と 呼ん で い 
ます (まだ は デー タ 有 圧縮 ) 。 

正規 化 の 際 に 割り きれ な い 場 合 は , 最後 の 
デー タ を 適当 に 処理 し ます 。 つ まり , 正規 
化す る こと に よっ て 音声 区 間 の 長短 に か か 
わら ず , 始点 か ら 終点 まで の 特徴 デー タ 数 
は 必ず 16 個 と な り ま す 。 表 3 に 示し た よう 
に , 768 バ イト を 

16x 3 =48 (バイ ト ) 
に 減ら すこ と が で きま す 。 先 ほど と 同様 , 
10 個 の テン プレ ー ト を 登録 する 場合 
48х10=480 (バイ ト ) 

に な り ま す 。 こ の よう に メモ リ を 節約 する 
わけ で す 。 図 6 は この ボー ド を 用 いて , > 
ンプ レー ト の No 1 ~ 3 を 作っ た と き の テ ン 
プレ ー ト デー タ の 様子 を 示し た も の で す 。 


マッ チン グ 法 


特徴 デー タ , つま り テ ンプ レー ト が 作成 
で きた だ たら , 次 に どの よう に し て 入力 音声 と 
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= хт 


= 2. TRF 


5 時 間 軸 の 正規 化 方 法 


B000H ~ BOFFH (BPF-1) 
B100H ~ BIFFH (BPF -2) 


B200H — B2FFH (BPF-3) 


サン プル 点 全部 で 256 個 


1 つ ひ と つの サン プル リン グ は 
10m 秒 ご と に 行う 


サン プル 点 が 全部 で 


B000H ~ BÜFFH — — — — — B300H ~ B30FH (BPF-1) 
B100H 一 BIFFH — — — — ——* B310H ~ ВЗҘІЕН (BPF-2) 
B200H ~ B2FFH — — — — ———* B320H ~ B32FH (BPF-3) 


256X 3 = 768/171 F 16X 3 =48/\Т F 


表 2 音声 デー タ の スト アア ドレ ス 
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図 6 本 装置 で の テン プレ ー ト デー タ の 様子 
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マッ チン グ を と る か に つい て 説明 し ます 。 

最初 の 原理 の 章 で 述べ た よう に , マッ チ 
ング の 方 法 に は 2 種類 あり ます 。 

・ 線 形 マ ッ チ ング 法 
・DP マッ チン グ 法 
で す 。 こ こ で は , 線形 マッ チン グ 法 を 採用 
し まし た だ 。 以 下 に 述べ ます 。 

図 7 の よう に , この 方 法 で は 16 個 の 特徴 
デー タ A と B に つい て , 2 つが 近い 場合 に 
一 定時 間 に な ける 差 の 絶対 値 d を を それぞれ 
求め , 最後 に 差 の 絶対 値 の 合計 xd を 求め 
ます 。 こ の 図 で は 

а= 

と な り ま す 。 

実際 に 試し て み ま し ょ う 。BPF が 3 つっ 
C, テン プレ ー ト 数 が 10 個 の 場合 は , まず 
最初 に チ テンプレート No 1 と 比較 し ます 。 こ 
れ は テン プレ ー ト No 1 の BPE-1 と 入力 音 
声 の BPF-1, テン プレ ー ト No.1 の BPF-2, 
入力 音声 の BPF-2, テ ンプ レー【 ト Nol O 
BPF-3 入 力 音 声 の BPF-3 を を それぞれ 比較 


差 d =|A – ВІ 


し , 最後 に 

>11 +52 +543 
を 求め ます 。 Жї, 同様 に に て テン プレ ー 
ト No 2 に 対す る 差 の 絶対 値 合 計 を 求め て 
次 々 と 最後 の テン プレ ー ト No10 ま で 比較 し 
て いき ます 。 そして,。 すべて の テン プレ ー 
F と 比較 が 終了 し た 時 点 で , 差 の 絶対 値 の 
合計 値 が 最も 小さ きい も の が 類似 性 が 高い と 
いう こと に な り ま す 。 

以上 が 線形 マッ チン グ 法 の アル ゴリ ズム 
Жаз 


DP マッ チン グ 法 に つい て 


(2 ミック ジロ ジン ラミ ング )。 マ ツ 
チン グ 法 は 線形 マッ チン グ 法 に 比べ て 複雑 
で す が 。 た と えば 「 ト ウキ ョ ー」 や 『 ト ー 
キョ ツウ 」 と いっ た 音声 の 間 伸 びに よる ミス 
А Оа е тро): ОЖ 
発声 話 者 (話し 手 ) の 発声 速度 が 不 均一 な 


図 7 線形 マッ チン グ の 原理 


差 d =|A — B| | 


8 DP マッ チン グ の 原理 


た め に 時 間 軸 が ずれ , ミス マッ チン グ が 起 
こる の を 防ぐ こと が で きま す 。 こ の 原理 を 
簡単 に 示す と 図 8 の よう に な り ま す 。 

DP マッ チン グ で は , A と B の 差 を 求め 
る と き に を その 差 が 最小 に な る よう に パタ ー 
NL CELE TSS DEBE YF 
ング で は 差 d を 求め る の に 制約 が いく つか 
あり ます が , ここ で は 説明 し ませ ん 。 参 考 
文献 を 参照 し て くだ さい 。 
E TR түү, 


コン トロ ー ル ソフ ト 
КОО as со соата ттар ссуда) 

リス ト 1 の よう に , この ボー ド を PC- 
8801 で コン トロ ー ル する だ ため の プロ グラ 
ム は すべ て マシ ン 語 で 組み まし た 。 リ アル 
タイ ム 処 理 の た めで す 。 プ ログ ラム の お ち おお 
ま か な ア ル ゴ リ ズム を 図 9 に 示し ます 。 ま 
T, 音声 入力 の 有無 を チェ ッ ク , 単語 登録 
を し て か ら テ ンプ レー ト の 作成 を し ます 。 
は じ め に 述べ た よう に , この ボー ド は , 音 


差 の 合計 > る d= 上 
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START 


10m 秒 ご と に 
音声 の 特徴 抽出 


音声 の 終点 か 


音声 デー タ の 正規 化 
(テン プレ ー ト の 作成 ) 


Y 
音声 入力 が ある か UE 
Y 


10m 秒 ご と に 
音声 の 特徴 抽出 


音声 の 終点 か 


Y 
音声 デー タ の 正規 化 


パタ ケー ンマ ウッチ ング 


入力 デー タ と 3 つの テン プレ ー ト 
デー タ と の 線形 マッ チン グ 


最も 類似 性 の 高い も の を 検出 


認識 結果 表示 
(テン プレ ー ト 番号 を 表示 ) 


の ロー チャ ー ト 


単語 登録 モー ド 


B000H 7 
) 音声 入力 デー タ 
B2FFH 
Bai 音声 正規 化 デ ー タ 
B3BFH 
C000H 
プ ブログ ラム 本 体 
C496H 
C497H 
( ワー クエ リア 
C4ADH 2) 


810 メモ リマ ッ プ 


声 認 識 の モデ ル で す の で , テン プレ ー ト の 
数 は 3 つ , つま り 認 識 単語 数 は 3 語 ま で で 
す 。 

J tak УЛ а, ZEISS 

スク 」,「 プ リン タ 」 な どの よう に 離散 発声 
され た 単語 を それ ぞ れ 登録 し ます 。 i, 
ーー つの 単語 の 長き は 10m 秒 ご と に 音声 周波 
数 成分 を 分 析 , 特徴 抽出 を 行い ます か ら 最 
大 2.56 秒 以内 な ら ど の よう な 単語 で も けっ 
е2. 
- 次 に , 時 間 軸 の 正規 化 を 行い , 特徴 抽出 
し た 音声 デー タ を 圧 締 し ます 。 こ れ は 1 つ 
の 単語 に 対し て 48 バ イト の 音声 デー タ と な 
orm 

リス ト 1 の メモ リマ ッ プ は 図 10 で す 。 大 
きる は 約 2 K バ イト 程度 で , N-BASIC の 
ROM 内 サブルーチン も いく つか 使っ て い 
d 3X 


使用 方 法 


① PC-8801 を 立ち 上 げ 
NEW ON 1 
に て N-BASIC モ ー ド に し ます 。 
リス ト 1 の マシ ン 語 ゲロ グラ ム を ロー ド 


プロ グラ マブ ル 
ゲイ ン ア ンプ 


マク 


図 11 日 本 電気 製 音 声 認識 ボー ド 


し ます 5 

@ F*GC00 Q 
сх К: 

④ 画 面 の メッ セー ジ に 従っ て 音声 の 登録 
( 3 語 ) を 行い ます 。 登 録 終了 語 , 自動 
的 に テン プレ ー ト が 作成 きれ ます 。 

⑤ 音 声 認識 を 行い ます 。 
認識 結果 が テン プレ ー ト 番号 で 表示 きれ, 
次 に キー 入力 待ち に な り ま す 。 1 の 入力 


で 再び 認識 , 2 の 入力 で テン プレ ー ト の 
作成 を 最初 か ら 行い 。 3 の 入力 で モニ タ 
に も の ます 。 


音声 認識 の 認識 時 間 は 一 瞬 で 処理 きれ る 
ため , リ アル タイ ム で す 。 ま た は , 認識 率 は 単 
語数 が 少な いた だ た だめ, 95 一 100% の 割合 で す 。 


な お , NEC の PC-8012-03(PC-8012-05) 


PC-8801 
(PC-8001) 
パパ スラ イン 


A/D コ ン バ パー タ 
ADC-0809 


の ょ うに 少し 高級 な 音声 認識 ボー ド の 場合 
音声 特徴 抽出 部 分 は 図 11 に 示す 構成 に な っ 
то рәс?» 

この 図 に お いて , 音声 の 特徴 抽出 部 分 は 
図 2 で 示し た 特性 を も もつ 8 つの BPF #2» 
SRD, また 今回 の 試作 装置 に は 付加 され 
て いな い プ ログ ラマ ブル ゲイ ン ア ンプ が つ 
いて いま す 。 こ の アン プ は マイ ク か ら の 音 
声 信号 の 増幅 度 が ツ ソフト ウェア で 可変 で き 
る も の で , マイ ク の 周囲 雑音 に 対す る 影響 
や 発声 話 者 の 音 圧 レ ベル が 音声 認識 に 対し 
て 最適 し な る よう に ツ ソフ トウ ェ ア て で 増幅 度 
が コン トロ ー ル で きる よう に 配慮 され て い 
з. 

まだ , パパ ター ンマ ッ チ ング 面 で も , 今回 
の 試作 装置 は すべ て ツ ソフトウェア で 行っ て 
いま す が , テン プレ ー ト と 入力 音声 の 差 の 
計算 やあ る 程度 ハー ドウ ェ ア に 任せ て いる 
KIT, 高速 に な り ま す 。 き さら 6 に , マッ チ 
ング 廊 式 も 久信 ミック ジロ グラ ング 
(DP マッ チン グ ) 技 法 を 導入 し て お り , Жж 
適 マ ッ チ ング が 期待 で きる よう な 工夫 が な 
され て いま す 。 そ し て PC-8012-03 は ボー ド 


が 2 枚 で ある の に 対し , PC-8012-05 は ボー 
ド が 1 枚 で パタ ー ン マッ チン グ な ども ボー 
ド 内 に 搭載 され て いる 専用 CPU が 受け も 
っ て いま す 。 イ ン テ リ ジェ ント 化 き れ て い 
る ため , ユー ザー は BASIC な どの 言語 
簡単 に リン ク で きま す 。 


お わり に 
p s 


今回 の 音声 認識 装置 の 試作 は あく まで 原 
理 を 説明 する こと が 目的 で す 。 認識 単 語 
も 少な く , 当然 誤認 識 も あり ます 。 最 近 の 
音声 認識 技術 は 今回 の よう に 限定 語 某 , 特 
定 話 者 に 限ら ず 話 者 が 不 特定 で 言葉 も 連続 
音声 の 認識 が 可能 な レベ ル ま で 普及 し つつ 
あり ます 。 

し か し な が ら 大 変 高価 で あり , シス テム 
も 大 が か り で ある こと か ら ホ ビー 用 の パッソ 
コン と 直結 する まで に は いた だら な い の が 現 
状 か と 思い ます 。 しかし, 近い 将来 に は か 
な り 身 近 な ター ミナ ル に な る で し ょ う 。 ま 
認識 と 同じ く , 音声 合成 技術 も 最 
近 は 目 を 見 張る も の が あり , 良質 な 音声 が 
合成 きれ ん る よう に な っ て き て いま す 。 こ の 
よう な マン マシ ン イ ンタ フェ ー ス 技術 の 向 
ECT, ワー プロ な ども 音声 入出 力 対話 型 が 
いく つか 開発 きれ て き て いる よう で す 。 


参考 文献 
I, コン ピュ ー タ 音声 処理 

(安居 院 猛 , 中 島 正 之 共著 産 報 出版 社 ) 
2, 図解 音声 デバ イス 活用 の 実際 
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代え る を る る る を る る を る る も する る るる る る る る する: 
HL: 
х VOIVE RECOGNITION 


3 


VZD 
ж 1984.11.4 
* BY J.HIRAMA 
KYXXYXXXYYXYTXXXXKXXXXXXXX XXX 


эе эе эе эе эе м 


ORG  BFOOH 


BF00 = @45АН 
ВЕ@@ WIDTH =  @93AH 
BF99 DISP1 = 52EDH 
BF99 DISP2 = 。2D13H 
BF99 BEEP =  ØD43H 
ВЕ@@ MONI = 5C66H 
ВЕ@@ WARU = ДВЕАН 
ВЕ@@ INT = 283FH 
BF99 FAC = FBA8H 
BF99 = || QF75H 


MAIN ROUTINE 


ORG Cg99H 
coga CD5A9g4 ST CALL CLS 
C003 011928 LD BC, 2819H 
CO06 СОЗА@9 CALL WIDTH 
C009 CD95C0 CALL MSG1 


AF TM1 


ХОК А 


З2АВС4 LD (CEI TEE5 A 
C010 CDFDCg CALL START 
C013 CD29C1 CALL INPUT 
C016 3AABC4 LD A, (LITLE) 
C019 FEFF CP FFH 
C91B 28EF JR: SZ IMI 
CDOEC2 CALL DIST 
1Е@@ LD ә E,00H 
CD26C2 CALL TEMP 
CD430D CALL ВЕЕР 
; ТЕМР2 
AF TM2 ХОК А 
З2АВС4 LD (LITLE) ,A 
CDFDCO CALL START 
CD29C1 CALL INPUT 
3AABC4 LD A, (LITLE) 
FEFF. CP FFH 
28EF JR Z,TM2 
CDOEC2 CALL DIST 
1Е@1 LD E,01H 
CD26C2 CALL TEMP 
CD430D CALL BEEP 
; TEMP3 
AF TM3 ХОК A 
32ABC4 LD (LITLE); A 
CDFDCO CALL START 
CD29C 1 CALL INPUT 
3AABC4 LD A, (LITLE) 
FEFF CP FFH 
28EF JR Z,TM3 
CDOECZ CALL DIST 
1Е@2 LD E, 02H 
CD26C2 CALL TEMP 
CD430D CALL BEEP 


AF 
32ABC4 


32ABC4 
CDFDC9 
CD29C1 
3AABC4 
FEFF 

28EF 

CDOEC2 
1E93 

CD26C2 
CD43C3 
CDC3C3 
C3F4C3 


21А2С@ 
CDED52 
21COCO 
CDEDSZ 
cg 


9D9A 
564F 4943 
45205245 
434F474E 
4954494F 
4E205359 
5354454D 
202120 
@@ 

DOA 
B5DDBEB2 
20852033 
ВАРЕ20С4 
B3DBB8BC 
CF BOZO 
@@ 

9D9A 
B1C5C9C9 
BAB429B5 
29C5DDBC 
B729BCCF 
BD202121 
21 

9D9A 
BCACCDDE 
AFC329B8 
CgDEC3B2 
29 

99 


E5 


RECOGNITION 


[] 
; 
RECOG XOR 


R1 


=-------- 


A 
(LITLE),A 
BEER 

BEEP 

CLS 

HL , CHR3 
DISP1 


A 
(LITLE) ,A 
START 
INPUT 

A, (LITLE) 
FFH 


RESULT 


MESAGE DISPLAY 


HL , CHR1 
DISP 1 
HL , CHR2 
DISP 1 


19D9A 


"ウロ クシ " 
"ЧА " 
| 00 
19D9A 
"7327" 
gis id FB 
«Чур 
"+ Lx" 


se に 


БА. " 

| ODOA 
пру" 
"wy g" 
"4754" 


06 


START ROUTINE 


SG1 10 
CALL 
LD 
CALL 
RET 

CHR1 

CHR2 

CHR3 

; 

START PUSH HL 


D5 

0603 
210000 
110000 
3ES80 

80 
CD19Cl 
19F8 
ED5B97C4 


2100B0 
110000 
010000 
ED439FC4 
A8 

AF 
3299C4 
CD88C1 


ED4B9FC4 
2A9AC4 


STRT 


CEI 


INP1 


LL2 


: INPUT 
INPUT 


EPS 


PUSH DE 

LD B, 03H 

LD HL , 9999H 
LD ОЕ, 9200H 


LD  A,8@H 
ADD А,В 

CALL INP1 
DJNZ LLI 

LD DE, (THLV1) 
ADD HL,DE ` 
JR | NC,STRT 
POP DE 

POP HL 

RET 

PUSH AF 

DEC A 

BO! GC A 

OUT  (C),A 

IN | A,(88H) 
RRA 

JR — NC,LL2 
FN P ООА реЗ 

LD  E,A 

ADD HL,DE 
POP AF 

RET 

ROUTINE 


LD — HL,B99gH 
LD DE,9999H 
LD BC,999gH 
LD  (WKK9),BC 
XOR B 

XOR A 

LD — (NPTR),A 
INP3 


EDS 
LD — A, (WK0) 
LD (HL),A 
STAK 


H 
LD A, (WK1) 
LD (HL),A 
STAK 


H 
LD A, (WK2) 
LD — (HL),A 
STAK 
LÝ HS 
INC HL 
INC B 
LD А,В 
LD — (NPTR),A 
CP 00H 
RET Z 
PUSH HL 
PUSH BC 
LD ВС, (WKK0) 
LD HL, (ENDL) 
Ні, BC 
JR. ' C,LP2 
POP BC 
POP HL 
LD A, (NPTR) 
PUSH BC 


C1 LP2 


010000 


CDA6CI 
329004 
OE81 

CDA6C1 
329DC4 
0Е82 

CDA6C1 
329EC4 


AF INP2 
LP1 


(の ーー ーー ーー 


E5 
ZA9FCA 


TAK 


010060 
3A2899 
F620 
D340 
CDDBC1 
EE29 
D340 
c9 


B9 WAIT2 
2803 


СР 


B,17 

B 

BC 
C,RESTRT 


BC 

HL 

BC 

BC , 9999H 
(WEKO) , BC 
BC 

LP3 


BC 
C, 80H 
INP2 
(WKO) ,A 
C,81H 
INP2 
(WK1),A 
С,82Н 
1МР2 
(WK2),A 
WAITO 
BC 


А 
(C),A 
A, (88H) 


NC, LP1 
A, (C) 


HL 
HL, (WKKO) 
E, A 


HL,DE 
(WKK9) , HL 


NZ, LOP1 
LOP2 
BC 


BC, 6000H 
A, (040) 
20H 
(46H) , A 
WAIT2 
20H 
(40H) ,A 


C 


JR Z.WT1 


өр DEC С | C9 


18FA JR — WAIT2 ; 
B8 WT1 СР В | C25B 9199B9  LPT2 LD  BC,BO00H 
C8 RET Z だ C25E 2130B3 LD — HL,B33€H 
05 DEC В C261 CD94C2 CALL TMP 
QEFF LD C,FFH | C264 21F3C2 LD HL,MSEG1 
18F3 JR — WAIT2 C267 CDED52 CALL DISP1 
: | C26A C9 PET 
CD430D RESTRT CALL ВЕЕР r] ; 
21F7C1 LD HL,MSG2 C26B 810989  LPT3 10 BC,B99gH 
CDED52 CALL DISP1 C26E 2160B3 LD — HL,B360H 
3EFF LD — A,FFH C271 CD94C2 CALL TMP 
32ABC4 LD — (LITLE),A C274 2111C3 LD HL,MSEG2 
| cg RET | C277 CDED52 CALL DISP1 
р ; C27A C9 RET 
du , ' 
E C1F7 @О@А MSG2 19D9A C27B 0100B0  LPT4 10 BC,B99gH 
E С1Е9 D3B3B2C1 "943" C27E 219083 LD HL,B39gH 
m C1FD C4DE29BC "Mig" | C281 CD94C2 CALL TMP 
| C201 ACCDDEAF "BAT" C284 CD5A04 CALL CLS 
= C205 C329B8Cg "3078" | C287 212FC3 LD HL,MSEG3 
LEON C209 DEBBB220 "2947" С28А CDED52 CALL DISPI 
Be C20D @@ 180 C28D CD430D CALL ВЕЕР 
E: { C290 CD430D CALL BEEP 
> ; C293 C9 RET 
: { SAMPLE カン カク ケイ サン ; 
; C294 3AA1C4 TMP LD A, (SDIST) 
C20E 110000 DIST LD DE,g999gH C297 5F ED EA 
C211 3A99C4 LD A, (NPTR) C298 0A LLOP1 LD А, (ВС) 
C214 3D DEC A C299 77 LD (HL),A 
C215 5F LD ЕА C29A 23 INC HL 
E- C216 210F00 LD HL, OOOFH С29В 79 LD iA б 
En C219 CDEA4B CALL WARU C29C 83 ADD A,E 
E C21C CD3F28 CALL INT ! | C29D 4F ED ^UsC SA: 
C21F 3AA8Fg LD A, (FAC) С29Е 7D LD ВАД РЁ 
| C222 32A1C4 LD — (SDIST),A | C29F ЕЕ1@ CP 1@Н 
| C225 C9 RET | С2А1 282А JR  Z,LLOP2 
1 ; | C2A3 FE20 CP 20H 
| ; TEMPLATE サク セイ C2A5 2826 JR  Z,LLOP2 
; С2А7 ЕЕЗ@ CP ЗӨН 
С226 7В TEMP LD АЕ С2А9 C8 БЕТ 2 
С227 ЕЕ@@ CP ØØH С2АА ЕЕ4@ CP 40H 
C229 2810 JR Z,TMM1 C2AC 281F JR  Z,LLOP2 
C22B 7B ËD  A,E C2AE ЕЕ5@ CP | 50H 
C22C ЕЕ@1 CP ВІН С2В@ 281B JR — Z,LLOP2 
C22E 280F JR  Z,TMM2 C2B2 FE69 CP 60H 
C230 7B LD А,Е C2B4 C8 RET Z 
C231 FE02 CP . 02H C2B5 FE79 CP 70H 
C233 280E JR | Z,TMM3 C2B7 2814 JR. v SZ?BUOP2 
C235 7B LD  A,E C2B9 FESO CP . 80H 
C236 FEQ3 CP . 03H C2BB 2810 JR  Z,LLOP2 
C238 2800 JR О Z,TMM4 C2BD FE9Q CP . 90H 
| С2ЗА C9 RET | C2BF C8 RET Z 
| C23B CD4BC2  TMM1 CALL LPT1 | С2С@ ЕЕА@ CP ABH 
| С2ЗЕ СӘ RET | С2С2 2809 JR Z,LLOP2 
| C23F CD5BC2 ТММ2 CALL LPT2 I C2C4 FEBO CP Вен 
C242. C9 RET C2C6 2805 JR M Z,LLOPZ 
Et C243 CD6BC2 ТММЭ CALL LPT3 C2C8 FECO CP | COH 
E C246 C9 RET C2CA C8 RET Z 
E« C247 CD7BC2 ТММ4 CALL LPT4 C2CB 18CB JR  LLOPI 
p? C24A C9 RET i { 
; i C2CD ЗЕ@1 LLOP2 LD A,801H 
C24B 9199B9  LPT1 10 BC,BØØØH C2CF 80 ADD А,В 
C24E 210083 LD  HL,B300H | C2D0 47 LD В,А 
C251 CD94C2 CALL TMP | C2D1 @Е@@ LD . C, 00H 
| C254 21D5C2 LD — HL,MSEGO C2D3 18C3 JR — LLOPI 
ps C257 CDED52 CALL DISP1 
i E 
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0DOA 
54454D50 
46415445 
204EA4F2E 
31202020 
20205052 
42445543 
544544 
ва 


DBA 
5445405@ 
46415445 
204E4F2E 
32202020 
20205052 
4F445543 
544544 
@@ 

@0@А 
54454D50 
40415445 


204EAF2E 
33202020 
20205052 
4F445543 
544544 


20594F55 
5220564F 
49434520 
494E5055 
5420204F 
4B2021 
90 


210000 
22A2C4 


90 


22A2C4 
D1 


3AADCA 
47 
3AACC4 
90 
D5 


MSEGO 


MSEGI 


MSEG2 


MSEG3 


QgQ-.--.----. 


STNS 


РЫР 


EBD 


19D9A 
"TEMP" 
"LATE" 
" NO б " 
"1 " 
" PR " 
"ОрОС" 
"TED " 
100 


19D9A 
"TEMP " 
"LATE" 
" NO Е " 
no " 
" PR " 
n ODUC " 
n TED " 
199 
19D9A 
"TEMP" 
"LATE" 


" NO Р " 
" 3 " 
" PF " 
"ODUC " 
"TED" 
199 
19D9A 
* YOU" 
"R VO" 
"ICE 1 
" INPU" 
" T 0 " 
"K | " 
199 


DISTANCE 71% 


LD HL , 9999H 
LD (WKK1),HL 
LD BC,B300H 
LD DE , B390H 


LD А, (BC) 
LD — (MRY1),A 
PUSH BC 

LD BA 

LD А, (DE) 
LD — (MRY2),A 
SUB B 

POP BC 

JB. "COLLUM 
PUSH DE 

LD рЕ,@@@@Н 
LD Е,А 

ADD HL,DE 


LD (WKK1),HL 

POP DE 

a cri 

LD A, (MRY2) 

PUSH BC 

LD HA 

LD А, (MRY1) 
B 


PUSH DE 


C379 
C37C 
C37D 
C37E 
C381 
C382 
C383 
C384 
C385 
C387 
C388 
C38A 
C38C 
C38D 
C38F 
C391 
C392 
C394 
C396 
C399 
C39C 
C39F 
C3A2 
C3A5 
C3A7 
C3AA 
C3AD 
C3B8 
C3B3 
C3B6 
C3B9 
C3BC 
C3BF 
C3C2 


C303 
C3C6 
C3CA 
C3CC 
C3CE 
C3D2 
C3D5 
C3D7 
C3D9 
C3DB 
C3DE 
C3EQ 
СЗЕ2 
СЗЕ4 
C3E7 
C3E8 
СЗЕА 
C3ED 
СЗЕЕ 
C3F0 
C3F3 


C3F4 
C3F7 
C3FA 
C3FD 
C400 


110000 


119083 
2AA2C4 
22A6C4 
219999 
22A2C4 
C355C3 
1199B3 
2AA2C4 
22A8C4 
C9 


2AA4C4 
ED4BA6C4 
ED42 
300D 
ED4BA8C4 
2AA4C4 
ED42 
3009 
1813 


CD5AQ4 
212AC4 
CDED52 
CD430D 
AF 


LD DE,0000H 
LD ЕА 
ADD HL,DE 
LD (WKK1),HL 
POP DE 
POP BC 

LLL2 INC DE 
INC BC 
LD — A,30H 
CP 
IRBS да з 
LD — A,6€H 
СрО С 
JROO AULA 
LD — A,90H 
CP C 
JR 7,1115 
JR LLTP 

LLL3 LD DE,B399H 
LD HL, (WKK1) 
LD — (DISTI),HL 
LD HL,gg99H 
LD (WKK1),HL 
JR LLTP 

LLL4 LD  DE,B396H 
LD HL,(WKK1) 
LD (DIST2),HL 
LD HL,g999H 
LD (WKK1),HL 
JP ТР 

LLL5 LD DE,B39@H 
LD HL, (WKK1) 
LD (DIST3),HL 
RET 

i 

; MINIMUM Я ミッ ケル 

MIN LD — HL, (DIST1) 
LD ВС, (DIST2) 
SBC HL,BC 
JR NO,N3 
LD BC, (DIST3) 
LD НЕ, (DISTI) 
SBC HL, BC 
JR NC,MM3 
JR Ml 

M3 LD HL, (DIST3) 
SBC HL,BC 
JR | NC,N2 

MM3 LD A,03H 
LD — (MINV),A 
RET 

M2 LD — A,02H 
LD — (MINV),A 
RET 

М1 LD  A,01H 
LD (МІМУ),А 
RET 

; RESULT ROUTINE 

RESULT CALL CLS 
LD HL,MOUT1 
CALL DISP1 
CALL BEEP 
XOR A 
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C401 
C402 
C405 
C406 
C409 
C40C 
C4QF 
C412 
C414 
C416 
C418 
C41A 
C41C 
C41F 
C422 
C424 
C427 


C42A 
C42C 
C430 
C434 
C438 
C43C 
C440 
C444 
C446 
C448 
C44C 
C450 
C454 
C455 


C456 
C458 
C45C 
C460 
C464 
C465 
C467 
C46B 
C46F 
C473 
C474 
C476 
C47A 
C47E 
C482 
C483 
C485 
C489 
C48D 
C491 
C495 
C496 


67 
3AAAC4 
БЕ 


CD132D 
2156C4 
CDED52 
CD75gF 
FE3 
28@Е 
КЕЗ? 
280D 
FE33 
CA665C 
CD430D 
18EB 
C369C9 
C399Cg 


9D9A 
52455355 
4C54414E 
54204F46 
20524543 
4F474E49 
54494F4E 
2021 
9D9A 
54454D50 
40415445 
294E4F2E 
3D 

00 


0DOA 
C6DDBCB7 
2020203Е 
20283129 
20 

ODOA 
C4B3DBB8 
2020203Е 
20283229 
20 

9DgA 
B4DDC4DE 
292D2D3E 
20283329 
20 

ODA 
504C4541 
5245204B 
45592049 
4E202121 


MOUT2 


WKK1 
DIST1 
DIST2 
DIST3 
MINV 
LSEE 
MRY1 
MRY2 


: END OF JOB 


は じ め に 


84 年 1 月 号 の 「 音 声 合成 ・ 認 識 シ ステ ム 
の 実験 」 の 記事 で , 日 立 の 音声 合成 LSI, 
HD-38880 と NEC の 音声 認識 ボー ド , PC- 
8012-05 を 使っ た シス テム を 紹介 し まし た 。 

今回 は , 音声 合成 と , 認識 を それ ぞ れ 単 
独 に 使用 し た サン プル プロ グラ ム を 紹介 し 
id. なお, 音声 合成 に は 1 月 号 で 製作 し 


テム 


1985 年 2 月 掲載 


た 専用 シス テム が 必要 で す 。 

PART 1 で 音声 認識 ボー ド の 入門 用 モデ 
ル を 紹介 し まし た が , ハー ド 製 作 が 苦手 と 
いう 方 は , や や 高価 で す が PC-8012-05 ボ ー 
ド を 使う こと も で きま す 。 こ の ボー ド に つ 
いて は 別項 の 章 で 説明 し ます 。 


〒「 音 声 合成 確認 シス テム 」 の 全容 


ипин 5 


PPI8255 汎 用 |/0 ポー ト (PC- 
8801 背面 の スロ ッ ト に 差し 込み , 
PC-880| と ボイス シン セ サ イ ザ を 
つなぐ ) 


ボイス シン セ サ イ ザ p 
(音声 合成 部 ) 
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音声 合成 を 

用 いた 16 進 
477702755 
к з 


単音 節 の 音素 0~9, アー ン , A~D( フ 
レー ズ 番 号 1 ~218) を 用 いて , メモ リ 内 の 
16 進 ダン プリ スト を ディ スプ レイ 表示 する 
と 同時 に , 合成 音声 で 読み 上 げ 続 け て くれ 
SARDE ET e 

音声 発生 ルー チン は 84 年 1 月 号 の リス ト 
3 を その まま 用 いま す 。 なお, 1 月 号 で は 
リス ト 3 に バグ が あり まし た 。84 年 2 月 号 
に 訂正 が 記載 され て いま す の で 参考 に し て 
くだ きい 。 

この プロ グラ ム を 実行 する と , まず 合成 
音声 で プロ グラ ム に つい て の メッ セー ジ が 
出 ま す 。 次 に , スタ ー ト アド レス と エン ド 
アド レス を 音声 合成 び で きい て きま す の で , 
キー ボー ド か ら 16 進 4 桁 で イン プッ ト し て 
くだ る きい 。 

する と ,CRT 画面 に 1 バイ ト ず つ 表 示す 
る と 同時 に 音声 合成 で 16 進 数 を 読み 上 げ て 


(n £3. CRT 画面 上 に 256 バ イト 表示 る 
れる と , ハー ドコ ピー を と る か どう か や は 
り 合成 音声 で きい て きま す の で , 指示 に 従 
SE AS CSS s 
BASIC プロ グラ ム を リス ト 1 tz, FFA 
成 例 に つい て は 図 1 に 示し ます 。 
NM 


音声 合成 音 の 作り 方 


р ЕДН 
次 に , 音声 合成 装置 を 用 いた 場合 の 合成 
音 の 基本 的 な 作り 方 に つい て 説明 し ます 。 
も し 「 こ ん に ち わ 」 と いう 音声 を 発生 き 
せ た だ たけれ ば , フレ ー ズ 番号 と の 関係 は 表 1 
の よう に な り ま す 。 
BASIC プロ グラ ム で は 次 の よう に な り 
ҰЗ. 
10 READ DA 
20 IF DA=888 THEN 80 
30 Z=USR0 (DA) 
40 A=USR1 (AA) 
50 IF A<>0 THEN 40 
60 GO TO 10 
70 DATA132,168,144,139,166,888 
80 END 


@「 こ ん に ち わ 」 


@⑯「 ハ ー ド コピ ー を と り ま すか 」 


@「 私 は メモ リ の |6 進 ダン プ を 音声 で いう こと が で きま す 」 

⑯「 ス ター ト ア ドレ ス を キー 入力 し て くだ さい 」 

@⑯「 エ ンド アド レス を キー 入力 し て くだ さい 」 

@⑯「 ゼ ロイ チ , ゼロ ゼロ , サン イー, ゴー エフ , ゼロ エフ , ニー イチ , サ ン イ ー,…」 


1 音声 合成 例 


フレ ー ズ 番 号 
= 132 
> 168 
= 144 
$ 139 
7 166 


ここ で , 30 行 は 音声 発生 用 マシ ン 語 ルー チ 
ン ヘ へ ジャ ンプ し , 40, 50 行 で 音声 発生 中 の 
検出 も し て いま す 。 こ の よう に し て 科 単 に 
音声 合成 も 行う こと が で きま す 。 

な お , 今回 の プロ グラ ム に お いて は `D” 
は 「 デ 」 の 音 を 伸ばし て 「 デ ー」 と し , "E" 
は 「 イ 」 の 音 を 伸ばし て 「 イ ー」 と し , š 
た “FE は 「 エ 」 し と 「 フ 」 を 組み 合わ せ て 
エフ 」 と し じ ま し た 。 音 を 伸ばす と き は フ 
レー ズ 番 号 に 1000 を 加え を ます 。 

Жї, 表 2 に リス ト 1 の プロ グラ ムッ 構 成 
を 示し ます 。 な お ぉ , 音声 合成 装置 の 基本 的 
な 使用 方 法 に つい て は 前 回 の 記事 を 参考 に 
SC に ev. 


音声 出力 


タイ プラ イタ 
E 


リス ト 2 が グロ グラ ム 本 体 で す 。 

この プロ グラ ム は キー ボー ド か ら 6 入力 し 
た キャ ラク タ を ディ スプ レイ 面 へ 表示 する 
と 同時 に , 音声 合成 で 記号 を 音声 に 発生 す 
5787-74. 

音声 発生 ルー チン は 前 項 と 同様 に 1 月 号 
の リス ト 3 の マシ ン 語 プロ グラ ム を その ま 
ま 用 いま す が , 音素 数 を 増やし て フレ ー ズ 
番号 218 一 245 に 拡張 し て あり ます 。 音素 デ 
ー タ ROM ФІ оњ ЕЛО ラボ 研究 所 
より 購入 し た も の を を の まま 使用 し まし た 
( 注 1)。 

Jis, 音素 数 を 増やし た た め に マシ ン 語 
プロ グラ ム を 2 か 所 変更 し な けれ ば な り ま 


Е m зы 
100 - 1504 | 初期 値 設定 
180 - 420 行 音声 デー タ 0 一 F な どの 読み 込み 
470 - 630 行 E 「 コ ン ニ チワ リ 」, 「 ワ タ シ ワ 」 な どの 読み 込み 
660 - 760 行 画面 表示 
770-1380 行 | 16 進 ダ ゲン プ メ イン プロ グラ ム 
1400- 156017 音声 発生 サブ ルー チン 
1580-1590 行 ウエ イト ルミ デン 
1610-1620 行 ウエ イト ルー チン 


表 1 フレ ー ズ 番号 と の 関係 
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表 2 リス ト 1 の プロ グラ ム 構 成 


10 ` жэезеэеэеэеэеэеэе Ээ эе E EE E ЭЕ ЭЕ ЭЕ E ЭЕ ЭЕ ЭЕ ЭЕ E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E E ЭЕ ЭЕ ЭЕ ЭЕ E © ЭЕ ЭЕ ЭЕ ЭЕ E ЭЕ ЭЕ 3¢ 
207 
30 ° 
40 
50 
60 
70 ' 33O00000000000000000000000O E E (CD ЭЕ E ЭЕ © E © ЭЕ JE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E E E 3€ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 
Өй” 
90 * 
100 DEFINT A-Z:DIM V(30.40) 
110 POKE &IID299.&H4:POKE &HD201.&HF:POKE &HD202.819 
120 DEF USR60-81ID230 
130 DEF USRI =&HD246 
140 WIDTH 40,20:CONSOLE 0.25.0.1 
150 LOCATE 19,19:COLOR 5:PRINT "シリ ラク オマ チ クタ “サイ " 
160 ' 
179- ' READ VOICE DATA-I 
180 1=1:7Ј=1 
190 READ УСІ, J) 
200 IF V(I,J)=999 THEN 230 
210 IF V(1,J)-888 THEN 470 
220 J-J*1 :GOTO 190 
230 I-I*1 :Ј=1 :GOTO 190 
240 ' 
гой VOICE DATA-1 
260 DATA 999 : ' р 
270 DATA 3.999 : ' 1 
288 DATA 6.999 : ' 2 
298 DATA 7.999 : ' 3 
300 DATA 8.999 4 
318 DATA 12.999 : ' 5 
320-DATA. 13.999: : * 6 
3390. DATA. 15.999 : "7 
8 
9 


VOICE DUMP PROGRAM WT: 


by J.HIRAMA 


X X X X X 
X X* XK XK x 


340 DATA 17.999 : ' 

350 DATA 19.999 : ' 

360 DATA 216.999 : ・ 

370 DATA 217.999 : ・ 

380 DATA 218.999 : ' 

390 DATA 219.999 : ・ 

400 DATA 220,999 

410 DATA 221.999 : ・ 

420 DATA 888 : ' END 

430 ' 

440 ' 

450 ' READ VOICE DATA-2 

460 ' 

470 J=1 

480 READ V(I.J) 

490 IF V(1.J)-999 THEN 520 

500 IF V(I.J)-888 THEN 660 

510 J=J+1 :GOTO 480 

520 1=1+1 :J=1 :GOTO 480 

530 ' 

540 ' 

550 ' VOICE DATA-2 

560 DATA 132.168.144,139.166,0,0,999 : ' コン = チワ 

570 DATA 166.138.134,166.156,157.1162.147,0,1205,165,130,134,168,179,168,189.127 

0.0.999 : ' ワタ シワ MEMORY ノ 16> ン DUMP 3 

580 DATA 127.168.136,124.180.,0,124,125,132.142,169.180,129,153,135,0,0.0.0.999 : 
C オン セイ 7^ イ ウ コ ト Y テ ^ キ マス 

590 DATA 135,1138.142,123,181,164,135,127,0.0,999 : ' START ADDERSS Я 

600 DATA 1129.1298,215,139,134.141.139.179.133.124,9.9.999 : ' キ - Z29932 シテ 2579 

イ 

610 DATA 126.168,181,123.181.164,135,127,0,0,999 : ' END ADDRESS ォ 

620 DATA 1148,181,132,1188,127,0,142,162,153,135,128,Й.0,999 : ' HARD COPY ж トリ マ 

スカ 

639 DATA 888 

640 ' 

650 ' 

660 PRINT CHR$(12) 

670 COLOR 7:LOCATE 13,10:PRINT " コン = チワ ! " 

680 1-17:GOSUB xSPK 

690 COLOR 3:LOCATE 5,11:PRINT " ワタ シワ MEMORY ノ 167» DUMP ж " 

700  1-18:GOSUB xSPK 

710 COLOR 4:LOCATE 5.12:PRINT " オン セイ テー 493E 37444 " 

720 1=19:GOSUB xSPK 

730 BEEP: BEEP: PRINT CHR$(12):GOSUB xVIT3 

740 COLOR 4:LOCATE 3.19:PRINT " START ADDRESS  (HEX)";:1-220:GOSUB xSPK :1-21:GOS 

UB *SPK:INPUT Wl$ 


コピ ロウ の アァ 
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750 COLOR 5:LOCATE 3,12:PRINT " END ADDRESS (HEX)"::1222:GOSUB *SPK :1=21:GOS 
UB *SPK:INPUT W2$ 

760 WIDTH 80.25 

778 NN=15 

780 LP=NN 

790 LN-2 

800 ST-VAL("&H"*WI$) 

810 ED=VAL("&H"+W2$) 

820 CT=15 

830 COLOR 6:PRINT "ADD +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +В «C +D +E +F" 

840 

850 AD$=RIGHT$("000"+HEX$(ST),4) 

860 COLOR 5:PRINT AD$:" Um 

870 ВЕЕР 1:GOSUB xWIT3:BEEP 0 

880 FOR PL=1 TO 4 
890 Z$=MID$(AD$,PL, 1 
900 Z$-"Ü" THEN I 
910 Z$="1" THEN I 
920 Z$="2" THEN I 
930 Z$="3" THEN I 
940 Z$-"4" THEN I 
950 Z$-"5" THEN I 
960 Z$-"G" THEN I 
970 Z$-"7" THEN: I 
980 Z$-"8" THEN I 
990 Z$="9" THEN 1 
1000 IF Z$-"A" THEN 
1010 IF Z$="B" THEN 
1020 IF Z$-"C" THEN 
1030 IF Z$-"D" THEN 
1040 IF Z$-"E" THEN 
1050 IF Z$="F" THEN 
1860 GOSUB xSPK 

1070 NEXT PL 

1080 GOSUB xWIT3:BEEP 1:GOSUB xUITI:BEEP 0 

1090 DA-PEEK(ST) 

1100 ST=ST+1 

1118 COLOR 4:PRINT RIGHT$("0"+HEX$(DA).2);" ": 

1120 DU=INT(DA/16) 

1130 DL-DA-16xDU 

1140 I-DU*1:GOSUB xSPK 

1150 I-DL*1:GOSUB xSPK 

1160 GOSUB xWITI 

1170 IF HEX$(ST)-HEX$(ED) THEN 1300 

1180 IF CT-0 THEN 1210 

1190 CT-CT-1 

1200 GOTO 1090 

1218 CT=15 

1220 LOCATE 69.LN 

1230 LN=LN+1 

1240 FOR IL-ST-15 TO ST-1 

1250 DD-PEEK(IL) 

1260 IF DD«&H20 THEN DD=&HAQ 

1270 COLOR 3:PRINT CHR$(DD): 

1280 NEXT IL 

1290 IF NN<>0 THEN PRINT :NN=NN- 1 : GOTO 850 

1300 PRINT :PRINT :PRINT:BEEP 

1310 COLOR 2:PRINT "HARD COPY + トリ マス カ (Y/N) ? ";:1223:GOSUB xSPK:INPUT W$ 

1320 IF W$-"Y" THEN COPY 1 

1330 IF HEX$(ST)-HEX$(ED) THEN 1380 

1340 LN-2 

1350 NN-15 

1360 WIDTH 80.25 

13780 GOTO 830 

1380 END 

1398 

1400 xSPK 

1410 Ј=1 

1420 IF V(I,J)2999 THEN 1550 GOTO 1510 

1430 IF V(I.J)-0 THEN GOSUB xVITI :J=J+1:GOTO 1420 Z-USROÓ(VCI,J)) 
1440 IF V(I.J)<1999 THEN 1508 J=J+1 

1450 POKE &HD202, &HE A=USR1(0) 

1460 BD=V(I.J)-1000 IF A<>9 THEN 1520 
1470 Z-USRQ (BD) GOTO 1420 

1480 POKE &HD202.8H9 Ч=1 


RETURN 


"Ü" W n H H H со — OO Q 4» GO tO = 


—— —— — пни H H H HU H H — 


xVITI 
FOR し =1 TO 50:NEXT: RETURN 


#WIT3 
FOR L=1 TO 108:NEXT: RETURN 
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* A, これ は , D238H の DCH € FAH 
に , D31EH の DCH # FAH に それ ぞ れ 変 
Me гре 

フレ ー ズ と フレ ー ズ 番号 と の 関係 を 表 3 
RULES 

本 プロ グラ ム に お いて , 単音 節 で 使用 で 
SEVERE KEL 7 UO EE 
に つい て は , 単音 節 さ と に 組み 合わ せ て 

гь. ЕКИ ШГП» & رت‎ 

と か 


a:t. p 
と いう よう に , 連続 語 の 音声 合成 を 行っ て 
いま す 。 
最後 に , 表 4 に アロ グラ ム の 構成 を 示し 
R3 


219 E 6000 
220 F 6083 
221 G 60E2 
222 H 6160 
223 | 620Е 
224 J 6273 
225 K 62F6 
226 E 634E 
85 M 2E3F 
227 N 63B9 
228 0 6442 
229 Р 64СВ 

8 Q 0768 
230 R 653С 
231 s 65D8 
232 T 6630 
233 U 66AD 
234 V 672A 
235 W 67B3 
236 X 68B0 
231 Y. 696C 
238 z 69E3 
239 リッ トル 6A72 
240 きる 6B3B 
241 キロ 6BCB 
242 メー トル 6C4I 
243 ピッ ンチ 6DID 
244 ボル ト 6DC5 
245 Jg AJ 6E72 
246 オー ム 6F49 


表 3 外部 ROM の フレ ー ズ 内 容 


€ ЭЄ ЭЄ ЭЄ E E ЭЄ E E € E ЭЄ E E E E OX E E E E E E E E E E E E E E E E E EC E ЭЄ X € € ЭЕ XX X 4 € X X ЭЄ X ЭЕ € ЭЕ ЭЕ 


TYPEWRITER USING VOICE V 1.4 


BY J.HIRAMA 


JE € E E ЭЄ E C € E € ЭЕ ECC E ЭЄ ЭЄ E E E E E E E ЭЕ C E E E ЭЕ E E E E E XXX E € X 4 X X X X X X 3€ 3€ ЭЕ 


DEFINT A-Z : DIM V(100).M(40.40) 

POKE &HD200.&H4:POKE &HD201,&HF:POKE &HD202.8H9 
DEF USR9=&HD230 

DEF USR1=&HD246 

WIDTH 80.25 

CONSOLE 8,25,1,1 

LOCATE 25.19:PRINT "Z/^^22 オマ チ 2»^94 " 


1=1 

READ LT 

IF LT=888 THEN 380 
V(1)=LT 

I*1*1 

GOTO 200 


VOICE DATA 229,230.231 
DATA 153,6, 7.8, 11, TIS ISLET OI Pnad 
DATA 216,217,218,219,220.221.222.223.224,225,226.227.228, 
DATA 232,233.234,235.236,237.238,239.240,241 
DATA 123.124.125,126:.127,128,129, 130.131 132. kD 
DATA 139,140.141,142.143.144.145,146.147.148,149.150,151. 
DATA 155.156.157.158.159,160,161.,162.,163.164.165.166.168 
DATA 93.94,95,91.90.92 
DATA 888 


136,137,138 
152,153,154 


' 


I=1:J=1 

READ M(1.J) 

IF M(I,J)-888 THEN 700 
IF M(I,J)2999 THEN 430 
J-J*1:GOTO 390 
Iz1*1:J21:GOTO 390 


У УОІСЕ РАТА 

DATA 179,184. 163.130.127,1141.197.168,999 
DATA 1195, 189.999 

DATA 181, 163,999 

DATA 87.999 

DATA 123,168, 181,999 

DATA 130, 127,1141.197. 168,999 
DATA 1127, 189, 168,999 

DATA 130, 1165,176,999 

DATA 80,999 

DATA 76,999 

DATA 132,168, 153,999 

DATA 79.999 

РАТА 188, 1215, 127.181,999 
DATA 166, 163,999 

DATA 126. 168,999 

DATA 82,999 

DATA 148,141, 143,999 

DATA 136, 154,132, 165.168, 999 
DATA 132,165,168,999 

DATA 135, 1185, 135,999 

DATA 888 


. 


PRINT CHR$(12) 

LOCATE 15,0:PRINT " 

PRINT 

D$-INKEY$:IF D$-"" THEN 730 

PRINT D$; 

D=ASC(D$ ) 

IF D>=&H39 AND D<=&H39 THEN 930 

IF D>=&H41 AND D<=&H5A THEN 990 

IF D>=&H61 AND D<=&H7A THEN D=D-&H29:GOTO 990 
IF D>=&HB1 AND D<=&HDD THEN 1050 
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306 


IF D>=&H22 AND D<=&H2F THEN 1180 

IF D>=&HF2 AND D<=&HF7 THEN 1120 

IF D=&HF1 OR D=&H5C THEN DA=15 :GOSUB xSPK1 
IF D=&H3D THEN DA=16:GOSUB xSPK1 

IF D=&H3F THEN DA=17:GOSUB xSPK1 

IF D=&H3B THEN DA=18:GOSUB xSPKI 

IF D=&H3A THEN DA=19:GOSUB xSPK1 

IF D-8H20 THEN DA=29:GOSUB xSPK1 

GOTO 730 


9-9 
М5=1 
DA=D-&H2F 
GOSUB xSPK 
GOTO 730 ` 

A-Z 
MS=2 
DA=D-&H40 
GOSUB xSPK 
СОТО 730 


E A 
MS=3 
DA=D-&HB0 
GOSUB xSPK 
GOTO 730 

` 年 - 秒 

М5=4 
DA=D-&HF1 
GOSUB xSPK 
GOTO 730 


MARK 
DA=D-&H21 
GOSUB xSPKI 
GOTO 739 


xSPK 

IF MS-1 THEN TH=0 
IF MS=2 THEN TH=11 
IF MS=3 THEN TH=37 
IF MS=4 THEN TH-82 
Z=USRO CVCDA* TH) ) 
ZZ-USRI (A) 

IF ZZ<>0 THEN 1290 
RETURN 


xSPKI 

J=1 

IF M(DA.J)=999 THEN RETURN 
IF M(DA,J)=0 THEN GOSUB xWIT1:J=J+1:GOTO 1350 
IF M(DA,J) く <1999 THEN 1430 
POKE &HD202,&HF 
BD-M(DA.J)-1000 

2= 0560 (BD) 

POKE &Нр202, &Н9 

GOTO 1440 

2.= 0560 (М(РА. Ј) ) 

J=J+1 

ZZ=USRI (A) 

IF ZZ<>0 THEN 1450 

GOTO 1350 


xVITI 
FOR L=1 TO 50:NEXT L:RETURN 


100 - 16047 


190 - 350 行 


"A" — Z” ТОТАЛ 


音声 デー タ 「 シ ャ ー プ 」, 


PROSTOT | エド ル 」 な どの 読み 込み 


700 - 750 行 | キー ボー ドス キャ ン 


キー 和信 カ データ に より 


Es ジャ ンプ 先 を 決定 


930- 96017 | "0" —"9" 


990-102047 | “А” — Z' 
音声 引用 
1050-108047 | 「 ア 」ー「 ン 」 数 決定 


1120-115047 | 「 年 」「 月 」 な どの 


各種 記号 \:”, «t 8 


1180-12004т осе PM 
а > 

1230-131047 PARE プ ブルー チン コ 
иж a ば 

330-1470 行 | 王 音 節 の 組み 合わ せ に よる 


連続 語 発 生 サ プル ー チ ン 


1490-150047 | | ウエ イト ルー チン 


表 4 リス ト 2 の プロ グラ ム 構 成 

注 1 音声 合成 の 方 法 に は PCM 録音 再生 , 
デル タ M, ADPCM, パー コー ル , LSM な ど 
の 方 法 が あり ます 。84 年 | 月 号 で は パー コ 
ー ル 方 式 と いっ て , 線形 予測 で 音声 の 波形 
の 特徴 を 抽出 , デー タ を と る 方 式 を 採用 し 
まし た 。 音声 デー タ は HD-38882 の 中 に も 
入っ て いま す が , デー タ を ROM 化し た も の 
が 池上 1/0 ラボ 研究 所 か ら 発 売 さ れ て いた 
の で それ を 使い まし た 。 


サン ブル 
プロ グラ ム 


NEC の PC-8012-05 音 声 認識 ボー ド を 84 
年 1 月 号 で は トー タル な シス テム に 組み 込 
ん で 使っ て いま し た が , 今回 は ボー ド 単 体 
で 利用 で きる プロ グラ ム を 紹介 し ます 。 リ 
ス - ト -3: で すず 

PC-8012-05 は 認識 単語 数 128 語 , 圧縮 DP 


Ш 
2 
| 
3 


£ 
z 
+ 
z 
< 
z 


PC-8012-05 音 声 認識 ボー ド 


@ 表 5 
(① 認 識 方 法 

圧縮 DP マッ チン グ 法 に よる 単語 認識 
QUE 128 語 
(HERE 0.2 一 2.0 秒 
④ 認 識 率 

98 め 以上 (テス ト テ ー プ に お る 128 語 認 3) 
⑤ 付 属 マ イク 特性 —864В+44В 
(ERR S 

@ ユ ー ザ ー ズ マニ ュ ア ル 

@ サ ンプ ブル プロ グラ ム テ ー プ 

e PC-8012/13 用 端子 板 ケ ー ブ ル 

e 認識 用 マイ ク 

@ PC-8801 用 裏ぶた 
(⑦ 価 格 

64,000 円 


1 
10 ` HK EE E E E E E E E E E E E E E E E E E ЭЄ E ЭЄ E E E E E E E E JE JE ЭЄ ЭС E JE DE JE HE JE эе JE FE IE FE FE KK 
AUT 3€ x 
30> ‘ж VOICE RECOGNITION PROGRAM V 1.3 x 
A0 x BY J.HIRAMA x 
DE TH x 
6 ` ¥ HK E E E E E E E E E ЭЕ E ЭЄ E E E E E ЭЕ E E E E ЭЄ E E E E ЭЄ XC E E XX XXX E ЭЄ E X 4 E E X E € KK 
72 БЫ 

80 ' 

90 ' INITIALIZE 

100 ' 


110 DEFINT A-Z 

120 WIDTH 40.25:CONSOLE 0,25,8.1 

130 GOSUB xMASSAGE 

140 OUT &H83、&HC2 

150 A=9:GOSUB xOUTSUB 

160 A-&HFF:GOSUB xOUTSUB 

170 GOSUB *INSUB 

180 ' 

1902: 

200 PRINT CHR$(12) 

219 CULORMG:PRINT PLEASE YOU SAY s TGO с" vt 
220 A-1:GOSUB xOUTSUB 

230 A-&HFF:GOSUB xOUTSUB 

240 GOSUB xINSUB 

250 IF A<>1 AND A<>2 THEN 350 

260 COLOR 2:LOCATE 5.19:PRINT " ONCE MORE AGAIN ! " 
270 BEEP 1 

280 FOR K=1 TO 499:NEXT K 

290 ВЕЕР 0 

300 LOCATE 5.10:PRINT " 

310 СОТО 220 

320 ' 

330 ' МАКЕ TEMPLATE 

340 ' 

350 PRINT CHR$( 1 2 ) : ВЕЕР 

360 К=4 

370 W=&HB9 

380 COLOR 5:PRINT "< MAKE TEMPLATE >" 
390 PRINT 

400 FOR 1=1 TO 45 


410 COLOR 4:PRINT "WORD -> ";CHR$(W*I) 
420 GOSUB xTCOM 

430 IF K=9 THEN PRINT CHR$(12):PRINT"« MAKE TEMPLATE >": 
440 К=К-1 

450 NEXT I 

460 ' 

470 ' RECOGNITION 

480 ' 

490 PRINT CHR$(12) 

500 PRINT " RECOGNITION " 

510 PRINT 

520 GOSUB xRECOG 

530 COLOR 6:PRINT " ":CHR$(W*D): 

540 X=POS(0):Y=CSRLIN 

550 СОТО 520 

560. ' 


570 xMASSAGE 


PRINT 


マッ チン グ 法 を 使用 し た 認識 ボー ド で す 。 
主 な 仕様 を 表 5 に 示し まし た 。 
プロ グラ ム の 内 容 は , Hc Bi. 
「 ア 」ー「 ン 」 の 50 音 の 音声 認識 を 行い , RE 
識 語 葉 を ディ スプ レイ へ 順次 表示 する も の 
С» 
現在 , マイ コン に よる 音声 認識 技術 は 特 
定 話 者 , 限定 語 繋 の レベ ル で , ホビ ー 向 け 
と じ iC 6 まだ ILE 
本 来 , この ボー ド は 単音 節 よ り も むし ろ 
連続 語 革 (東京 , 金沢 , ミサ イル な ど ) の 
認識 の 方 が 認識 率 が 高く な っ て いま す 。 今 
回 紹介 する も の は 音声 認識 ボー ド の 基本 的 
な 使用 方 法 を 理解 し て も ら 5 う も の で すか ら 
ыыы s ads 2 
な お , 本 ボー ド で 単音 節 の 母音 や 子音 の 
認識 率 を 高め る に は , че ete 
られ る よう な , た と えば 
ある ひ の 「 あ 」 
いろ は の 「 い 」 
と いっ た よう に 単音 節 語 革 を あ ぇ て 連続 語 
某 で ある か の よう に し て 使用 する こと に よ 
Шш ЫШ 
声 認識 の 手順 は 次 の と お な おり で す 。 まず, 
ボー ド の マイ ク ゲ イン な どの イニ シャ ライ 
ズ を 行っ た あと に 音声 の 登録 , つ まり テン 
デジ ー ド を 作成 じ ま す 。 
準備 終了 後 , 音声 認識 を 行い ます 。 当然, 
登録 し た 語 臣 以外 は 認識 で きま せん 。 また, 
話 者 が 変わ っ た 場合 は 認識 びき ませ ん 。 こ 
е НЕЕ, 特定 話 者 の 認識 と いい ます 。 
この リス ト 3 の プログ ラム 内 容 を 表 6 に 
簡単 に まとめ まし た 。 


307 


COLOR 3:PRINT CHR$(12) 


PRINT " VOICE RECOGNITION SYSTEM " 
FOR K=1 TO 1000:NEXT К 

BEEP 

RETURN 

xOUTSUB 

IF (INP(&H82) AND &H89)=9 THEN 650 
OUT &H80.A 

RETURN 

*INSUB 

IF (INP(&H82) AND &H29)=9 THEN 700 
A=INP(&H89 ) 

RETURN 

xRECOG 


A-3:GOSUB *OUTSUB 

A-&HFF:GOSUB xOUTSUB 

GOSUB xINSUB 

IF A211 OR A-3 OR A-7 THEN GOSUB wEOR:GOTO 750 
GOSUB xINSUB 

D-A 

GOSUB *INSUB 

RETURN 


xTCOM 

A=2:GOSUB xOUTSUB 

A-I:GOSUB xOUTSUB 

A-&HFF:GOSUB xOUTSUD 

GOSUB *1NSUB 

IF А=11 OR A=3 THEN GOSUB xEOR:GOTO 850 
RETURN 


xEOR 

BEEP ! 

COLOR 2:LOCATE 5,20:PRINT " 
FOR K-1 TO 500:NEXT K 


ERROR ‘===== 


We de 


ONCE MORE AGAIN " 
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BEEP 0 
LOCATE 5.20:PRINT " " 
LOCATE X.Y 
RETURN 
110-3104 認識 ボー ドイ ニシ ャ ライ ズ 
Ë 350-450 行 テン プレ ー ト の 作成 (音声 の 登録 ) 
490-550 行 音声 認識 
Une rec sert = 
570-620 行 ディ スプ レイ へ 表示 
640-670 行 
690-720 行 
認識 ボー ドリ ン ケ ー ジ ルー チン 
740-820 行 
840-900 行 
920-990 行 | エラ ー メ ッ セ ー ジ 出力 
表 6 
110 -16047 | 初期 値 設定 1060- 109017 
PE " ee 28 認識 ボー ド 
5 == i s= № 
210- 33007 | 音声 デー タ の 読み 込み 1110-119047 リン ケー ジル ー チ ン 
360- 520 行 | 音声 認識 ボー ド の 初期 値 設定 | 1210-12707 
560- 740 行 | テン プレ ー ト の 作成 1290-1380 行 | エラ ー 出 力 
790- 930 行 | 音声 認識 1400-144077 | 単音 節 音 声 発生 ルー チン 
950- 990 行 | 画面 表示 1460-162077 | 連続 語音 声 発生 ルー チン 
ES 認識 ボー ド s > 
1010-104077 E 1640-165047 | ウエ イト ルー チン 
表 7 


音声 合成 認識 
フロ グラ ム 


音声 タイ プラ イタ と 音声 認識 サン プル プ 
ログ ラム を 組み 合わ せ て , 単音 節 「 ア 」 
ー「 ン 」 の 音声 認識 を 行い , 認識 結果 を 音声 
合成 で 返答 きせ る も の で す 。 音声 合成 発生 
用 マシ ン 語 プロ グラ ム は , や は り 84 年 1 月 
号 の リス ト 3 を 使い ます (ハー ド も 必要 )。 

BASIC プロ グラ ム は , リ スト 4 の と おり 
で す 。 プ ログ ラム の 構成 は , 表 7 に 示し ま 
brès 

АС, プロ グラ ム を 実行 する t, まず 最 
初 に 音声 合成 で メッ セー ジ を 出力 し ます 。 
次 に 音声 の 登録 を 行い ます が , 登録 する 語 
繋 を ディ スプ レイ へ 表示 する と 同時 に 合成 
音 で 出力 し ます の で , 順次 登録 を 行い ます 。 

準備 終了 後 , 音声 認識 を 行い ます 。 認識 

し た 結果 を ディ スプ レイ へ 表示 する と 同時 
に , 合成 音 で 出力 し ます 。 


お わり に 


84 年 1 月 号 の 記事 を も と に , 音声 合成 と 
認識 を 個別 に 応用 する 試み は どう だ っ た で 
し ょ うか ?7 ュ 4 ブロ ログ ム に よっ て は ワー ジ " 
п, ホビ ー な ど と 応用 は か な り 広 が り ま す 。 
すでに , 84 年 1 月 号 の Oh! PC の バッ ク ナ 
ン バ ー が 在庫 ぎれ と いう こと で , 音声 合成 
ボー ド の 方 は 実際 に 試す こと が 難し いか も 
し れ ま せん が , 新しい モデ ル を 考え て いま 
す の で て 完成 し た 6 発表 し た いと 思っ て いま 
す 。 


HD-38880 


90 ' INITIALIZE 

100 ' 

110 DEFINT A-Z: DIM V( 30,40) 

120 WIDTH 40.25:CONSOLE 0, 25,0.1 

130 POKE &HD200.8&H4:POKE &HD201.&HF:POKE 81D202,8H9 
140 DEF USR0-&HD230 

150 DEF USRI-&HD246 

160 GOSUB xMASSAGE 


PC-8012-05 PROGRAM V 1.2 BY  J.HIRAMA 


170 

180 " 

F90: ° READ VOICE DATA 
200 * 

218 I=1:J=1 


220 READ V(I.J) 

230 IF V(I,J)2999 THEN 260 

240 IF V(I1,J)-888 THEN 360 

250 J-J*1:GOTO 220 

260 1=1+1:J=1:GOTO 220 

240 20 

280 ' 

208 — VOICE DATA 

300 DATA 1173,00,142.0.123.00,141,0,130,179,133,124,0.0,999 
310 DATA 140.178.147.132,142,182.127.0.142.125,165.130.134.141,0,130,179,133.124 
.999 

320 DATA 127.168.136,124,127.0.0.144,168,134,120.134,153,135,999 
330 DATA 888 

340 ' 

SAD E 

360 PRINT CHR$(12) 

370 OUT 8&183.&HC2 

380 A=9:GOSUB xOUTSUD 

390 A-&HFF:GOSIIB xOUTSUB 

400 GOSUB *INSUDB 

410 COLOR 6:PRINT " GO k イッ テー クタ サイ Uo 

420 I-1:GOSUB xSPKI 

430 Az1:GOSUB. *OUTSUB 

440 A-&HFF:GOSUB xOUTSUB 

450 GOSUB xINSUB 

460 IF A<>1 AND A<>2 THEN 560 

170 COLOR 2:LOCATE 5、19:PRINT " ONCE MORE AGAIN ! " 

480 ВЕЕР 1 

490 FOR К=1 TO 400:NEXT К 

500 BEEP 9 

510 LOCATE 5.10:PRINT " 

520 GOTO 430 

530 * 

540 ' MAKE TEMPLATE 

559 2 

560 PRINT CHR$CI2):PRINT " 99**7 ү? オ トウ ロク シテ クタ * サ イ  ": BEEP 
570 K-4 

580 W=&HB9 

590 COLOR 5:PRINT "< MAKE TEMPLATE >" 

600 PRINT 

610 1=2:GOSUB xSPKI 

620 FOR L=1 TO 399:NEXT L 

630 FOR I=1 TO 45 

640 COLOR 4:PRINT "WORD -> ";CHR$(W*I) 

650 10=122+1 

660 IF ID<>167 THEN GOSUB xSPK ELSE ID=168 : GOSUB *SPK 

670 X=POS(0):Y=CSRLIN 

680 GOSUB *TCOM 

690 IF K=0 THEN PRINT CHR$(12):COLOR 5:PRINT" く < MAKE TEMPLATE >":PRINT :К=5 
700 K-K-1 

718 NEXT I 

720 PRINT CHR$(I2):PRINT "< MAKE TEMPLATE »":COLOR 6:PRINT:PRINT " 399) " 
730 ID=127:GOSUB xSPK:ID-2166:GOSUB xSPK:1D-2162:GOSUB xSPK 
748 IE-I 

750 GOSUB *TCOM 

760 " 

770 ' RECOGNITION 

780 ' 

790 PRINT CHR$(12) 

800 PRINT " RECOGNITION " 

810 !I=3:GOSUB xSPK1 

829 PRINT 

830 GOSUB *RECOG 

840 IF D-IE THEN 900 

850 COLOR 6:PRINT " ";CHR$(WU*D); 

860 ID-122*D 

870 GOSUB xSPK 

880 X=POS(9 ) :Y=CSRLIN 
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890 СОТО 830 

900 ВБЕР 

910 ID=72:PRINT " アリ カト ウ 3797442 ":GOSUB x*SPK 
920 WIDTH 80,25 :COLOR 7 

930 END 

940 " 

950 xMASSAGE 

960 COLOR 3:PRINT CHR$(CI2) 

970 PRINT " VOICE RECOGNITION SYSTEM " 
980 DEEP 

990 RETURN 

1000 ' 

1010 *xOUTSUB 

1020 IF (INP(&H82) AND &H89)=9 THEN 1020 
1030 OUT &1180.A 

1040 RETURN 

1050 ` 

1060 *INSIB 

1070 IF (INP(&H82) AND &H20)=0 THEN 1070 
1080 AsINP(&H80 ) 

1090 RETURN 

Trog- 

1110 *RECOG 

1120 A=3:GOSUB *OUTSUB 

1130 A=&HFF:GOSUB *QUTSUB 

1140 GOSUB #INSUB 

1150 IF А=11 OR A=3 OR A-7 THEN GOSUB *EOR:GOTO 1120 
1160 GOSUB xINSUB 

1170 D=A 

1180 GOSUD xINSUB 

1190 RETURN 


xTCOM 

A=2:GOSUB «OUTSIB 

A-I:GOSUB #OUTSIIB 

A=8&HFF : GOSUB xOUTSUB 

GOSUB *INSIIB 

IF A211 OR A=3 THEN GOSUB *EOR:GOTO 1220 
RETURN 


#EOR 

ВЕЕР: 1 

COLOR 2:LOCATE 5.20:PRINT " ERROR ONCE MORE AGAIN " 
1D=83 š 

GOSUB *SPK 

FOR KM=1 TO 500:NEXT КМ 

BEEP 0 

LOCATE 5.20:PRINT " 

LOCATE X.Y 

RETURN 


xSPK 

Z=USRØ (1р) 
ZZ-USRI(A) 

IF ZZ<>0 THEN 1420 


IF V(1.J)2999 THEN 1610 
IF V(1,J)=0 THEN GOSUB *VITI :J=J+1:GOTO 1480 
IF V(1.J)<1000 THEN 1560 
POKE &HD202. &HF 
BD=V(1..J)-1000 

Z= じ SR0( BD ) 

POKE &HD202.$H9 

СОТО 1570 

Z=USR6( V( 1 .J) ) 

ゴ = リ + 1 

A-USRI (0) 

IF A€»0 THEN 1580 

GOTO 1480 

Ч=1 

RETURN 


x*VITI 
FOR L=1 TO 100:NEXT L:RETURN 


310 


1985 年 3 月 掲載 


オリ ジ ナ ルク グラフィック ツー ル 大 公開 
魔法 の つえ で グラ フィ ックス 自由 自在 


は じ め に 
っ 人 


ZV А 2 7 4 57 
機能 の 向上 に と も な い , パー ツナ ル CG( コ 
ンピュータ グラ フィ ックス ) が 盛ん に な り , 
OH! PC 誌上 で も グラ フィ ッ ク エ ディ タ の 
プロ グラ ム が いく つか 発表 きれ て いま す 。 

し か し , その ほとん ど が キー ボー ド か ら 


の 座標 入力 に 頼っ て いる た め 操 作 性 が 悪く , 


と て も 紙 に 絵 を 描く よう な わけ に は いき ま 
せん 。 少な く と も , 私 は そう いう グラ フィ 
ッ ク エ ディ タ を 使う 気 に な り ま せん で し た 。 
を そうなると, どう し て も 直接 座標 が 入力 
で きる ポイ ン テ ィ ン グ デ バイ ス が 欲し 《 な 
り ます 。 一 般 的 な ポイ ン テ ィ ン グ デ バイ X 
tila aa Z74322 н A5 L7 
ッ ク ボ ー ル , タブ レッ ト (デジタイザ ), ラ 
イト ペン な ど が あり ます 。 こ の 中 で 筆 で 絵 
を 描く よう に 使え を る の は ライ トペ ン と タブ 
レッ ト で す が , ライ トペ ン は 分 解 能 の 点 で 
問題 が あり , タブ レッ ト は 大 変 高価 で す 。 
それ で , 私 は 以前 か ら ペ ンタ ッ チ タイ 
で CG の 座標 入力 に 適し た ポイ ン テ ィ ン グ 


「 マ ジッ クス ティ ッ ク 」 の 製作 


マジ ックス ティ ッ ク 
の 基本 構造 


マジ ックス ティ ッ ク の 本 体 は , 図 1 から 
も 分 か る と お り , 非常 に シン プル な 構造 で 
ЗУ 

上 部 を 支点 と し て , 下部 を 前 後 左 右 に 自 
由 に 動か せる よう に し た ステ ィ ッ ク (操作 
F) が マジ ックス ティ ッ ク の 特徴 で す 。 ス 
ティ ッ ク は 上 下 に 伸縮 し , 常に 先端 が 台 板 


デバ イス が 自作 で き な い も の か と 漠然と 考 
えて まじ た 。 £ LT АНУ ETA 
が ひら めき まし た 。 いろいろ 障害 も あり ま 
し た が , 試作 し た も の が 驚く ほど 簡単 で , 
し か も 操作 性 に 優れ た ポイ ン テ ィ ン グ デ バ 
イス で ある こと が 確認 で きた (と 自分 で は 
思っ て いる ) の で , その 製作 方 法 と 性 能 
フル に 生か し た PC-8801 用 グラ フィ ッ ク 
ツー ル を 発表 きせ て いただき ます 。 

i, この ポイ ン テ ィ ン グ デ バイ ス は , 
と りあ ぇ え ず 「 マ ジッ クス ティ ッ ク 」 と 名 ブ づ 
け ま し た (し か し 魔法 の つえ と は 安直 な 名 
前 で す な )。 


に 接触 する よう に な っ て いま す 。 

試し に 。 ボー ル ペ ン の 上 端 を 左手 à 
き の 人 は 右手 ) で 押 き ぇ て 支点 を 固定 し , 
何 か 描 じ て み て 〈《 だ さい 。 少 し 違和感 が あ 
る も の の , 意外 と 使い 物 に な り そ う な こと 
が 理解 し て いた だ ける と 思い ます 。 

ST, ステ ィ ッ ク の 支点 位置 に お ける 左 


LT 


(実用 新案 出願 中 ) 
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diis k V |. FO 2 方向 の 角度 を 入力 で きれ 
ば , メーY 座 標 を 読み 込め る こと に な り ま 
す 。 こ の 角度 の 入力 に は 可変 抵抗 を 使い ま 
+, そして, この 可変 抵抗 は ステ ィ ッ ク の 
回 転 軸 も 兼ね て いる た め 構 造 が シン プル で 
DD, し か も 機械 的 ガタ が 皆無 に な る 一 石 
三島 の 設計 で す 。 
ik, スティック の に ぎり 部 に は プッ ジ シ 
ュ ス イッ チ を 2 個 設 け , 各種 の アプ リ ケ ー 
ショ ン に 対応 びき る よう に な っ て いま す 。 
マジ ックス ティ ッ ク の 長所 は , な ん と い 
っ て も 普通 の 筆記 具 に 近い 感覚 で 使え る と 
いう こと で す 。 ま た 意外 な 特徴 と し て , E 
絵 を な ぞ っ て 入力 する こと が で きま す 。 
読者 の 皆さん は 「 た か が 簡易 入力 装置 じ 
ゃ な いか 」 と 思わ れる か も し れ ま せん が , 
パーツ ナル グラ フィ ックス の 入力 装置 と し 
て 使い や する の 点 で マジ ックス ティ ッ ク の 
右 に 出る の は スタ イラ スペ ン を も っ た タブ 
レッ ト だ け で す (いい きっ て し まっ た 1!)。 
も ちろ ん , 欠点 も あり ます 。 まず, 入力 
で きる 座標 系 の 大 きる が 8 ビッ ト (0 
ー255) と 小さ いこ と 。 も っ と も , これ は A/ 


マジ ックス ティ ッ ク の 入力 座標 系 は 
下 の よ うに 糸巻 き 型 に 湾曲 し で いる 。 


図 2 
D コン バー タ の 分 解 能 を 上 げ れ ば 可変 抵抗 
自体 の 分 解 能 の 限界 (35€ 610€ hf 
Жу $ まで 上 げ る こと が で きま す 。 

そして, ステ ィ ッ ク の 支点 が 上 部 の 1 点 
か ら 動 か な いた だ ため, 入力 し に くい 位置 が で 
き て し まい ます 。 と くに , 右手 前 位置 で の 
使い 勝手 が 悪く な り ま す 。 

また , 操作 入力 面 に 歪み が あり ます 。 た だ 
と えば , 方 眼 を な ぞ っ て 入力 する と 画面 上 
で は 図 2 の よう に 変形 し ます 。 こ れ は マジ 


だ か ら 方 眼 を な ぞ っ て 
入力 する と 


画面 で は 逆 に 下 の よ うな タ 
ル 型 に 変形 され る 。 


ックス ティ ッ ク の 構造 上 や む を えな いこ と 
で す 。 し か し , 歪み が 激しい の は 周辺 だ け 
で すし , 実際 に 使っ て いて この 歪 み が 気 に 
な る こと は まっ だ た く と いっ て よい ほど あり 
ませ ん 。 

いずれ に せよ , 使い も の に な っ て 素人 が 
簡単 に 作る こと が で きる デバ イス は マジ ッ 
クス ティ イッ ク を お いて ほか に あり ませ ん 。 


マジ ックス ティ ッ ク 
の 製作 方 法 
F ә 


使用 部 品 は 表 1 の と お な お り 。 ほ と ん ど が 既 
製 部 品 で , すべ て 秋葉 原 な どの パー ツ シ ョ 
ッ プ と 日 曜 大 正 セ モン ター で 入手 で きま す 。 
製作 費用 と し て は パソ コン に 接続 する た だ ため 
の A/D コン バー タ の 費用 も 含め て , 私 は 
8000 円 以内 で で きま し だ た が, ポーツ の 値段 
は お 店 に より 多少 差 が あり ます か ら , 1 万 
円 用 意 す れ ば お つり が くる 程度 と 思っ て さく 
だ さい 。 

特別 な 工具 と し て は , 電動 ドリ ル が 必要 
で す 。 こ れ を も っ て いな い 人 人 は, 友達 や 学 
校 な どか ら 6 借り て くだ さい 。 工 作 に 慣れ た 
人 な ら 2 時 間 程度 で 完成 する は ず で す 。 

で は , マジ ックス ティ ッ ク の 製作 手順 を 
順番 に 説明 し て いき まし ょ 2 う 。 

id, 台 板 を 作り ます 。 
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厚 る 1.5~ 2 cm の 木 の 板 か ら 図 3 の 寸法 
で 台 と 支柱 を 切り 出し , 支柱 を 長き 3 一 4 
cm の 木 ネ ジ で 止め ます 。 木 ネ えど の 下 穴 は キ 
リ で きち ん と 開け て お いて くだ さい 。 

板材 に は , 私 は 30X30cm の 組み 立て 家具 
用 ボー ド を 使い まし た 。 これ は 表面 が メラ 
ミン 樹脂 で 化粧 きれ て いる の で 見 た 目 も よ 
いし , キズ が つき に くい の で 最適 で す 。 な 
i, この 板 を 使っ た 場合 , 切り 日 に 木 の 地 
が 出 て し まい ます が , ここ に は 白い 紙 を 貼 
つの 3C ざま の し まお 


ボリ ュー ム 用 ツマ ミ の 軸 穴 を , 径 4mm の 
ドリ ル で 頭 ま で 貫通 させ ます 。 次 に この 穴 
に 長き 2~ 3 em の 木 キ ネジ を 入れ , 支柱 の 頭 
に 取り つけ ます (B4) 

ツマ ミ は アル ミ 製 , 外 径 15mm ほ どの 頭 が 
平ら な も の を 選び ます 。 

木 ネ えど の 頭 が 大 きく て ツマ ミ の 中 に 入ら 
な いと き は ネジ の 頭 を ヤス リ で けず り , J 
る くし て くだ さい 。 

この ツマ ミ に マジ ックス ティ ッ ク の 本 体 
構造 物 が 取り つけ られ る こと に な り ま す 。 


100K Q C B Z 4 7, 直径 30mm の 可変 抵 
抗 を 2 個 用 意 し , 回 転 止め の ボス を ヤス リ 
で けず り 取 り , 工 型 の 金具 に 図 5 の ょ うに 
組み ます 。 

可変 抵抗 は 必ず B タ イプ (直線 特性 ) で 
な けれ ば な り ま せん 。 工 金具 は 日 曜 大 工 も 
ンタ ー や カー 用 品 の ショ ッ プ で ちょ うど よ 
いも の が 入手 で きま す 。 


2 で 使っ た 同じ 型 の ボリ ュー ム 用 ツマ ミ 
の 頭 に , 今度 は 横 方 向 か ら 図 6 の よう に 4 
mm の ドリ ル で 深き 10mm ほ どの 容 を 開け ます 。 
次 に , 径 4mm の 金属 棒 を 長き る 13cm に 切断 し , 
ツマ ミ に 開け た 究 に 一 端 を つっ 込み アロ ン 
アル ファ で 固定 し ます 。 こ れ が ステ ィ ッ ク 
の 内 軸 に な り ま す 。 


使い 古 し た ボー ル ペ ン の 軸 を 用 意 し , A 
ティ ッ ク の 外 筒 に し ます 。 

ボー ル ペ ン は 容 の 奥 が 細く な っ て いる の 
C, 4 mm の 金属 棒 の 先端 を ヤス リ て 図 7 の 


よう に 刃 や つけ , 回転 き せな が ら 挿 入 し , 
穴 を 広げ て くだ さい 。 棒 が 100mm の 深き まで 
スム ー ズ に 入る よう に な る まで が ん ば っ て 
《 だ さい 。 容 が 広がっ た ら , ステ ィ ッ ク の 
内 軸 に か ぶせ ます 。 

ボー ル ペ ン は に ぎり 部 が 六角 形 で , ペン 
先 の キャ ッ プ が 金属 の も の を 使い ます 。 私 
は 三菱 の ボー ル ペ ン を 使い まし た 。 


ボー ル ペ ン の イン クチ ュー ブ か ら ペ ン 先 
を 切り 取り , これ を ペン 軸 の 先 の 金属 キャ 
ッ プ に アロ ン ア ルフ ァ で 接着 し ます ( 図 8 )。 

ペン 先 に 残っ て いる イン ク は 完全 に 使い 
切っ て お か な いと , あと て で 面倒 な こと に な 
り ま す 。 


ペン の 軸 の 先端 に プッ シュ スイ ッ チ を 2 
個 , アロ ン ア ルフ ァ で 接着 し ます 。 ス イッ 
チ の 裏 に は ボス が 出 て いる の で , 平ら に け 
ずり と っ て お いて くだ さい ( 図 9)。 

スイ ッ チ の 取り つけ 位置 は 自分 が 使い や 
すい と 思う と ころ を 選び ます 。 


8 ピン DIN プラ グ と , 6 芯 の シー ルド 線 
を 用 意 し , 図 10 の よう に 配線 し ます 。 

シー ルド 線 の 長き は 1.5~2m く らい が 
使い や すい で し ょ う 。 なお, シー ルド 線 自 
体 も アー スラ イン と し て 使用 し て いる の で 
必ず プラ グ の 金属 ケー ス に ハン ダブ づけ し て 
CN S NS 


いま まで 作っ た も の を 組み 立て ます が , 
可変 抵抗 の 軸 の 角度 が 大 変 重要 で す 。 
まず 軸 の 頭 に 入っ て いる すり 割り が 垂直 
に な る よう に 回 し て くだ さい 。 次 に , 左 に 
約 30 度 回 し ます ( 図 11)。 

両方 の 可変 抵抗 の 軸 を この 角度 に し た ら 
図 12 の よう に ステ ィ ッ ク を 取り つけ , 支柱 
に 組み つけ ます 。 ス ティ ッ ク を 垂直 に 立て 
た 状態 に し て ツマ ミ の ロッ ク ネ ど を マイ ナ 
ス ド ラ イ バ で 締め て 固定 し ます 。 

組み つけ の 最 中 に 軸 の 角度 が 変わ ら な い 
よう 。 十分 注意 し て くだ きい 。 


マジ ックス ティ ッ ク 部 品 リ スト 


名 称 数 量 参考 単価 備 考 

30 X30cm 厚 板 I 600 例 一 シス テム MEL 17・30X30 と いう カラ ー ボ ー ド 

木 ネジ 長 さ 35m 2 5 

木 ネ ジ 長 さ 25mm I 5 

木 ネ ジ 長 さ 10mm 2 5 

L 金具 I 220 カー ショ ッ プ て で 売っ て いる エー モン YI23 と いう も の 

B I00KQO ボ リュ ー ム 2 340 必ず B タイ プ ( 外 径 30mm) 

ポリ ュー ム つ まみ 2 100 例 一 K5400T 

径 4mm の 金属 棒 ・ Im 250 真 ち ゅ う 棒 が よい (メー ター 売り ) 

ボー ル ペ ン I 100 

プッ シュ スイ ッ チ 2 100 12m 角 で フラ ッ ト タ イプ の も の 

6 芯 シ ー ル ド 線 Im 200 1 一 2m 

8 ピン DIN プラ グ І 150 

コー ド 押 さえ 2 10 プラ スチ ッ ク 製 の HP-4N と いう も の 

合計 金額 た っ た の Ж2,645— 

A/D コ ン バ ー タ 部 品 リ スト 

名 称 数 量 参考 価格 備 考 

PC-800 1 MK II /PC-8801 | 2,650 メー カー は サン ハヤ ト (店 に より 価格 が 2,650 一 3,500 

増設 用 ポー ド 円 と 開き が ある ) 

ADC 0809 І 1,300 

74LS138 І 200 

741514 [ 200 

IC ソ ケッ ト 14 ピ ン I 40 

IC ソ ケッ ト 16 ビ ピン I 50 

IC ソ ケッ ト 28 ピ ン I 90 

8 ピン DIN ソ ケッ ト І 150 基板 用 の こと 

1004F 25V 電 解 4 80 電解 と タン タル コン デン サ は 極性 が ある の で 配線 に は 
コジ デジ シ サ 注意 する こと 

4.7F 25V0 タ ンタ ル | 80 
ES pd 

0.47uF 35V タ ンタ ル 2 80 この 0.47 は 耐圧 が 高く な いと いけ な い 
zv 

0.00334F マイ ラ I 10 0.0033 ま た は 332 の 表示 の ある も の 
mM. 

4709 (1/4W) | 5 HKR 

IKQ (1/4W) | 5 KER 

5.IKQ (1/4W) 4 5 緑茶 赤 

5IKQ (1/4W) 2 5 緑茶 オレ ンジ 

ダイ オー ド 18953 3 20 シリ コン ダイ オー ド な ら 何 で も よい 

合計 金額 ¥ 5,350 


その 他 マ ジッ クス ティ ッ ク と A/D コ ン バ ー タ 製作 に 必要 な も の 
電動 ドリ ル 

4mm ド リル 

ノコ ギリ 

END: 

キリ 

ドラ イ バ (+, 一) 

ヤス リ 

ニッ パ 

定規 

ハン ダ ゴ テ (15- 30W 程 度 ) 

率 ハ ンダ ( 径 lmm 程 度 ) 

リー ド 線 ( 径 0.8mm 程 度 ) 

カッ タナ イフ 

は さ み 

瞬間 接着 剤 アロ ン ア ルフ ァ な ど 
あな た の 暇 ( 休 日 | 日 程度 ) 


あれ ば 便利 
直角 定規 
小型 万 カ 
ж — л 
FAY 
ハン ダ 取 り 


部 品 表 


(参考 単価 は 筆者 の 購入 値段 で 単位 は 円 ) 


313 


木 ネ ジ て 止め る 


зва | 


単位 は mm 
点線 は 木 ネ ジ の 下 穴 


230 


30X30cm の 板 か ら 切 り 出 す 


11 


けず り 取 る 


足 を 下 に する こと 


E13 B] 5 


SEM 


і 


アロ ン ア ルフ ァ て 接着 


ロッ ク ネ ジ は 反対 側 に する 


ツマ ミ に 穴 開け か で てき な い 人 は 下図 の よう に 工夫 し て くだ さい 
ほか の 部 分 て も 、 臨機 応 室 に 自分 な り の アレ ンジ て 製作 し まし ょ う 


ヤス リ で ドラ イ バ 型 に け す り , 刃 を つけ る 


: au. M 


な め ら か に 伸縮 する よう に 


金属 棒 の 一 端 を ツマ ミ に か 
ぶる よう に 丸め て 曲げ , FB 
間接 着 剤 や エポキシ 系 接着 
剤 で 接着 する 、 


支柱 に で っ は り を 残し て 切 
DHL. e a sa 
せ て ハリ ガ ネ て 巻い て エボ 
キン 系 接着 剤 で 固め る 


図 6 


10. 


シー ルド 線 や 配線 が プラ ブラ し て いま す 
が , ビニール テ ー プ や ュ コー ド 押 さえ ( 図 13) 
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な ど で 適 当 に まとめ ます 。 
以上 で と E り あんず マジ ックス テリ イッ ク は 
完成 で す 。 お 疲れ さま 。 
中 な 人 は イン スタ ント レタ リン グ を 使っ 


図 7 


て ネー ム を 貼っ た り , 色 を つけ た だ たり し まし 
ょ う 。 こ うい う 装 飾 や し て も 機能 が 高く な 
る わけ で は あり ませ ん が , これ を する と し 
な いと で は 装置 と し て の 完成 度 が 10 倍 は 違 
っ て 見 えま す 。 また, 可変 抵抗 の メカ が ま 
る 見 え で ダサ イ と いう 人 は 厚紙 で 図 14 の 十 
法 で ヘッ ドカ バー を 作り , か ぶせ る と よい 
(эё o 


' アロ ン ア ルフ ァ で 接着 


この 間 を 20cm 以 上 の 長 さ に する 


図 8 
シー ルド メッ シュ に 
線 を ハン ダ づ けし て 
ペン の スイ ッ チ に 配 
8 ビン DIN フ ラグ 
図 10 


A/ ロ コンバー タ の 
製 ff 


残念 な が ら 5 PC シリ ー ズ は アナ ログ 入力 
ポー ト を 備え を て いな い の で , マジ ックス テ 
ィ ッ ク を 直接 つ な で こと は で きま せん 。 
8801 の ライ バル だ っ た だ FM-8 に は ある の で 
す が 。 と いう わけ で , A/D コン バー タ を 作 
ОСЗ Бр 

A/D コン バー タ と いっ て も いろ いろ あ 
り ま す が , 今回 は 可能 な 限り シン プル に す 
51:5, ADC0800 と いう 汎用 の 1 チッ プ 


A/D コン バー タ を 使い ます 。 この 0809 は ク 
ロッ ク 発 振 回 路 ト し デュ ー ダ を 接続 する だ け 
で 使え る 最も 使い や すい コン バー タ な の で 
す が , 分 解 能 が 8 ビッ ト , つま り 0 ~255 の 
デー タ し か 出せ ませ ん 。PC-8801 の グラ フ 
ィ ッ ク 画 面 は 横 640 ド ッ ト な の で 本 来 な 6 
10 ビ ッ ト 程 度 の 分 解 能 が 欲し いと ころ で す 
が , 9 ビッ ト 以 上 の A/D ユン バー タ は や 
た ら と 回 路 が 面倒 に な る し , コス ト を 考え 
て も 8 ビッ ト で が まん する し か あり ませ ん 。 
分 解 能 は や や 不満 で す が , これ は ソフ ト で 
カバ ー で きま す 。0809 に は マル チ プ ブレ クサ 
が 内 蔵 き れ て お な おり, 1 チッ プ で 8 チャ ン ネ 
ル の アナ ログ 入力 が で きる の て 大変 便 利 で 
す 。 マ ジッ クス テイ ィ イッ ク で は , この 内 4 チ 
ャ ン ネ ル を 使用 し ます 。 


š ポス を けず る‏ ر 
< 
x‏ * 
Т, у‏ 


アロ ン ア ルフ ァ て で 接着 


ハン ダブ づけ 側 か ら 


(⑦⑧ は 使用 し な い ) 


回 路 は 非常 に 簡単 で す ( 図 15)。 実 体 配線 
Bd ( 図 16) の と ぉ り に 配線 すれ ば , まち が 
いな く 動 作 す る は ず で す 。 

配線 の 順序 に つい て ちょ っ と 触れ て お く 
と , まず パー ツ を 全部 基板 の 所 定 の 位置 に 
乗せ , 足 を ハン ダ づ けし て 固定 し ます 。 次 
に 回 路 の 電源 (+ 5 V) と アー ス (GND) 
の 配線 を 完全 に すま せ て か ら , ほか の 配線 
ПЕ» pp sS o ЬШ. 。 ま た だ た, € 
源 の 配線 に は 赤 の リー ド 線 , アー ス に は 黒 
の リー ド 線 を 使う の は 常識 で す が , ほか の 
配線 で アド レス ライ ン や デー タラ イン な ど 
も な る べく 色分け し た 方 が まち が い が 少 な 
《 な り ま すし と チェ ッ ク ジグ も 楽 で す 。 

な お , 配線 に は 太 き 0.8mm ほ どの リー ド 線 
を 使う わけ で す が , 1cm 以 内 の 短い 距離 を 
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① 垂 直 に する 


② 右 に 30* 回 す 


ステ ィ ッ ク は 必ず 垂直 
r E ik erg ap 


ロッ ク ネ ジ を 閉め て 固定 する 


— 


[2112 
配線 する 場合 は 抵抗 な どの 切っ た 足 を 使っ 
て 結線 し た 方 が 楽 だ し , きれ い に で きま す 。 


JERE 
diy 
配線 を する と き は 

① 1C の 足 の 間 の ハン ダ つ け の ショ ー ト 

② 電 解 コ ユ コンデンサ, タン タル ユン デン サ , 
ダイ オー ド の 極性 

バス ライ ン の 端子 の まち が い 


ほか の 線 ほ し の ショ ー ト に は 注意 し 


図 14 

な ど に 注意 し て くだ きい 。 ま た , 電源 (+ 
5V) と アー ス 間 の ショ ー ト は パソ コン の 
電源 回 路 に 致命 的 な ダメ ヌー ジ を 与え る 恐れ 
が あり ます の で , t に 注意 し な けれ ば な 
り ま せん 。 

ボー ド の 配線 が で きた ら , ソケット に を 
れ ぞ れ の IC を の せま す 。1C は 0809 だ け 上 
下 途 に な り ま すか ら 注 意 し て くだ きい 。 


ヘッ ドカ バー 展開 図 (単位 mn) 


E 


o 


ボー ド の 回 路 で 調整 を 必要 と する と ころ 
は あり ませ ん が , マジ ックス ティ ッ ク の 可 
変 抵抗 の 取り つけ 角度 を 調整 し な けれ ば な 
り ま せん 。 
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マジ ックス ティ ッ ク の 接続 ケー ブル の 
DIN プラ グ を ボー ド の ツケ ッ ト に つなぎ , 
ボー ド を PC の 拡張 スロ ッ ト に 差し 込み ま 
す 。 こ の と き , 必ず PC の 電源 は オフ に し て 
お きま す (ボー ド の 差し 方 は ユー ザー ズ マ 
ニュ アル に 説明 され て いま す )。 

ボー ド が セッ ト で きた だ たら, PC の 電源 を 
入れ て み ま す 。 こ の と き , シス テム が 立ち 
上 が ら ず , 画面 も 全然 表示 る れ な か っ た ら 
即座 に 電源 を 切り ます 。 こ の 場合 , ボー ド 
の 配線 が まち が っ て いま す の で , ミス を チ 


ェ ッ ク し , 直し て か ら 再 度 試 し て み ま す 。 

電源 オン で , シス テム が 正常 に 立ち 上 が 
っ だ なら 565, リスト 1 の テス ト プ ロ グラ ム を 
入力 し ます 。 実行 する と, マジ ックス ティ 
ッ ク の X, Y 座 標 (0 一 255) t 2 つの プッ 
シュ スイ ッ チ の 状態 を 表示 し ます 。 ス ティ 
ッ ク を 動か し た り ス イッ チ を 押し た り し て 
動作 を 確認 し て くだ さい 。 

座標 が 変わ ら な か っ だ り デ タラ メ だ っ た 
場合 は , 回 路 の 異常 か マジ ックス ティ ッ ク 
の ボリ ュー ム の 角度 が 大 きく 狂っ て いる か 


+12V -12V IN Az IOROAe As A4 wR 
EDERE 
74L8138 G28G2AC В А 
z Yo 
et S \Z/2aLaaa NI \27 
kl ug 


Az Ai Ao D7 De Ds Ds Оз Da Di Do +5V GNO 


m- 
*5V 
| 01 19 18] |5] 
- すう すう うう て 


CLOCK ALE START ОЕ C ВА 21222 


ADC овое 
INo INi INz IN VREF+ VREF - Vec GND 
26 ат 1 16 1 3 
15V | ew 
? x 
s t は は E ж +W 
100, 100, 54 5® z$ |2 ST 
*W-T2A- 
+5۷ 
© 4 ب¿‎ +5۷ 
3 3 > = 


図 15 


A | 「 マ ジッ クス ティ ッ ク 」 テ スト プロ グラ ム (Nass-BASIC, と Nso-BASIC 共 用 ) 


参考 
. 0809 の VeEr+ の 入力 部 を 右 の 回 路 
に 変更 する と , 半 固定 抵抗 に よ 
っ て マジ ックス ティ ッ ク の 入力 
角度 が 調節 可能 に な り ま す 。 


i 94 9 
Н+ 


SV-A SW-B" 
20.11:PRINT X: 
Q4 s TPRENTS YS 
30.11:IF А<10 THEN PRINT "ON 
35.11: IF В<1@ THEN PRINT "ON 


'Magic stick test program‏ 10 را 
° 20 1 
PRINT CHR$(12):I=&H80‏ 30 £ 
LOCATE 21.10:PRINT "X Y‏ 40 
OUT &H80.0:X=INP(I):LOCATE‏ 50 1 
OUT &H81.9:Y=INP(1):LOCATE‏ 69 - 
OUT &H82.9:A=INP(1):LOCATE‏ 79 
OUT &H83.9:B=INP(1) :LOCATE‏ 80 
СОТО 50‏ 90 


OEP": 
"SOBESE-PRINT- "OPER": 


"1 ELSE PRINT 


の どちら か で す 。。 チ ェ ッ も て 《 ぐ だ さい 。 

うま く 動 作 し て いる よう な ら , スティ イッ 
ク を 中 央 で 垂直 に 垂らし た と き に 座標 ゲー 
タ が 128 前 後に な る よう に X, Y の 可変 抵抗 
の 取り つけ 角度 を 微 調整 し ます 。 

マジ ックス ティ ッ ク の 入力 範囲 は 大 体 , 
140 140mm 前 後に な る は ず で す が , 2) 
っ て いて も か まい ませ ん 。 

な お , この ボー ド は PC-8801/MKII/SR 
t 8001/MKII/SR で まっ た だ く 同 様 に 使用 
ор а d t I また だ だ マジ ッ グ の 
ィ ッ ク 自 体 は A/D ュ コンバータ イン タフ ェ ー 
ス き ぇ 作れ ば , ほか の どん な 機種 に も 接続 
で きる こと は い ウ まで 2 も あり ませ ん 。 


A/D コ ン バ ー タ 
の 使い 方 


この A/D コン バー タ か ら 5 デー タ を 読み 
込む 方 法 は 非常 に 簡単 で , BASIC レベ ル で 
行 を ます 。 だせ お ば , マジ ックス テイ ツク 
の 双 軸 の 座標 を 入力 し た けれ ば , 次 の よう 
iut. 

10 OUT & H80, 0: X-INP ( & H80) 
これ で 変数 X に XX 座標 の 値 が 入り ます 。 

0809 に は 8 つの 入力 チャ ン ネ ル が あり , 


その うち どれ を 読む か を OUT 命令 で 指定 
し ます 。 チ ャ ン ネ ル 1 な ら & H80 に, + 
ャ ン ネ ル 2 な ら 了 81 に … と いう 具合 に , 
& H80~ &H87 の 間 に 何 で も いい か ら デ ー 
タ を 出力 すれ ば 好き な チャ ン ネ ル が 選択 で 
quie 

ST, OUT 命令 で チャ ン ネ ル を 選択 し 
な たら 次 は デー タ の 読み 込み で す 。 これ に は 
INP 命令 を 使い , & H80 か ら デ ー タ を 読 
み 込 むと , それ が A/D 変換 きれ た だ データ 
な の で す 。 簡単 で し ょ 。 

で すか ら 6, マジ ックス ティ ッ ク の すべ て 
の 状態 を 読む に は , 次 の よう な プロ グラ ム 
を 実行 すれ ば よい の で す 。 

10 OUT & H80, 0: メニ INP( & H80) 
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黒 の 線 は GND 
色 の 線 は + 5 V 


ЕҢ 
906000000060 @@@@ 
НЕВЕН 
@eeeeeeoeoeeoeoooooo 
O0000000000000000 


<s. 


"rores ピー 


図 16 実体 配線 図 


Nas BASIC 専用 の プロ グラ ム 。 ワ ー 
クエ リア の シス テム 未 使用 領域 を 
使っ て いる の で , CLEAR 文 は 必要 
あり ませ ん 。 

BASIC か ら 次 の よう に し て 使用 
а; 

10 STICK% = & HF220 

20 CALL STICK% (X96, Y%, 2%) 
これ で , 変数 X に X 座 標 , 変数 Y 
に Y 座標 が 入り ます 。 変数 Z は ス 
ティ ッ ク の スイ ッ チ が 押さ れ て い 
な けれ ば 0, 下 の ス イッ チ が 押さ 
れ て いれ ば 1, 上 が 押さ れ て いれ 
ば 2 の 値 を と り ま す 。 な お , 変数 
X, Y, Z は 必ず 整数 型 変 数 で な 
けれ ば な り ま せん 。 プ ログ ラム の 
先頭 で 

DEFINT X Z 
wEdSoddtct2; 


* Magic stick driver 
* 

ORG 9F229H 
F220 C5 ; PUSH BC 
F221 9E89 LD  C.80H 
F223 CD4EF2 CALL STICKC 
F226 77 LD (HL).A 
F227 23 INC HL 
F228 3600 LD (нш), 
F22A ØC INC C 
F22B CD4EF2 CALL ЅТІСКС 
F22E EB EX  DE.HL 
F22F 77 LD  (HL).A 
F23 23 INC HL 
F231 3600 LD  (HL).8 
F233 0C INC C 
F234 CD4EF2 CALL STICKC 
F237 БЕВА CP 10 
F239 3E91 LD А 
F23B 380B | JR — C.ANSSW 
F23D өс ' INC C 
F23E CD4EF2 CALL STICKC 
F241 БЕВА CP 10 
F243 3E02 LD A.2 
F245 3801 JR C.ANSSW 
F247 AF j XOR A 
F248 El ANSSW: POP HL 
F249 77 D (Н.А 
F24A 23 INC HL 
F24B 3600 LD  (HL).8 
F24D C9 ` RET 
F24E ED79 STICKC:OUT (C).A 
F250 0628 D В,40 
F252 19FE WAIT: DJNZ WAIT 
F254 DB80 N A.(80H) 
F256 C9 RET 
F257 END 


i 


この 配線 図 に ミス が な いこ と を 保証 し ます 
安心 し て 製作 し て くだ さい (筆者 )。 


ボー ド に は 裏表 が ある の て 確認 する こと 


抵抗 値 は 左上 より , 4700 
IK 
5.1K 
5.1K 
5IK 
51K 
5.1K 
5.1K 
タン タル コン デン サ ЖУЛИ 
小 :0.47z 2 個 


215—149 IS 953 3 個 


DIN ソ ケッ ト は 足 が 太 い が , 基板 の 穴 を 
キリ て 広 け て 挿入 する 


20 OUT & H81, 0: Y-INP( & H80) 
30 OUT & H82, 0: SWA=INP (& 


H80) 

40 OUT & H83, 0: SWB-INP (& 
H80) 

スイ ッ チ の 状態 は 読み 込み データ が 0 な 


ら 6 オン , 255 な ら オ フ で す 。 た だ し , 実際 に 
は 変換 誤差 が ある の で , 安全 の た め デ ー タ 
が 10 以 下 な 6 オン , それ 以外 な ら オ フ と し 
て プロ グラ ム を 組ん で 《 だ きい 。 

es うに BASIC で も 十分 使え M 

n 高速 性 を 追求 する と や は り マ シン 

Bets delia Аны, 
す 。 マ シン 語 で も BASIC と 同じ 方 法 で デ 
ー タ が 読め る の で す が , マシ ン 語 の 場合 は 
OUT 命令 に よっ て チャ ン ネ ル ん 選択 を し た 
6, 約 120 秒 時 間 待 ち を し た あと に INP 
命令 で デー タ を 読ん で くだ きい 。 こ の 120z 
秒 の 間 に , 0809 は チャ ン ネ ル ん 切り 替え と 
A/D 変換 を 行っ て いる の で す (BASIC は 
遅い の で , OUT 命令 と INP 命令 の 間 で 時 
bi daos db 

Z-80 マ シン 語 レ ベル で チャ ン ネ ル 1 か 

7 ito E L CE 


OUT (80H), А 
LD+ ЕВ 40 
WAIT : DJNZ WAIT 
IN A, (80Н) 
これ で , A レ ジス タ に XX 座標 の ゲー タ が 入 
か は 5 
と に か く 8 ビッ ト の 分 解 能 は も の 足り な 
い の で す が , この よう に 読み 込み が 簡単 に 
で きる 利点 も ある の で す 。 デ ー タ が 9 ビッ 
ト 以 上 だ っ た 6 ら 2 度 読み する か , シリ アル 


さる て みな る さる ん, マジ ックス ティ ッ ク と 
AD ルン ホー は うま [Ett 3 1232257 
準備 が で きた ら , いよ いよ マジ ックス ティ 
ッ ク 対 応 の グラ フィ ッ ク ツ ー ル の 公開 で す 。 
いか に 優れ た 周辺 装置 で も , それ を サポ ー 
ト す る ソフ ト が な けれ ば 何 の 役 に も 立ち ま 
BHA 

プロ グラ ム は PC-8801 用 で す 。 ほか の 機 
種 の 人 は 自分 で バン バン し て 〈《 だ さい , と 
思っ た の で す が , 実は 8001MKII の 白黒 
640 ド ッ ト モ ー ド 用 プロ グラ ム を 開発 中 で 
す の で し ば ら 6 くも お 待ち くだ さい 。( 先 月 号 の 
プリ ンタ 試用 記事 の 中 で 登場 し た 画面 は , 
それ で 描い た も の で す )。 

と に か さく, 今回 は PC-8801 用 で す 。 新 機 
種 8801SR で も , V1 モー ド (IHNss- BASIC 
モー ド ) で 動作 を 確認 し て あり ます 。 


開発 の 目標 こ 
概要 


この プロ グラ ム を 「 マ ジッ ク ペ イン ト 」 
と 名 づけ まし た 。 あ の APPLE マッ キン ト 
ッシュ の yr TEX IS 
ログ ラム で , 名 前 も 2 パロ っ て いる わけ で す 。 
開発 目標 は , 

・ マ ジッ クス ティ ッ ク の 能力 を 100% 引 き 
idc 

・ 入 力 が 8 ビッ ト で ある と いう 限界 を 克服 
+s E 

・ 現 行 の 8 ビッ トマ シン 用 ソフ ト 中 で て 最高 
の 絵 が 描け る , 最強 の ツ ソフ ト と する 

・ 操 作 が 簡単 な こと 


グラ フィ ッ ク ツ ー ル 「 マ ジッ ク ペ イン ト 」 


入力 し な けれ ば な ら な い の で 面倒 な の で す 。 

ちな み に , 一 般 の デジ タイ ザ な ど は 座標 
の 読み 込み に RS-232C と イン タフ ェ ー ス を 
使っ て いて , ドラ イ バ ル ー チ ン (デバ イス 
か ら デ ー タ を 読み 込む ササ プルー チン プ ブログ 
ラム の こと ) は けっ こう 面倒 。 ま た だ, シリ 
アル 通信 の た め , 読み 込み 時 間 も 長 てく なり 
ます 。 その 点 マ ジッ クス ティ ッ ク は 実に 科 
単に 読み 込み が で きる し , A/D 変換 も 比較 
的 高速 で , デー タ も パラ レル で 1 度 に 読め 


Е | 
Кок 


実際 。 マ ジック ペイ ント は 現在 8 €» F ZÁ 

最 冶 と いえ を る も の に 仕上 が っ て いま す 。 
プロ グラ ム の 概要 , 特徴 は 

・640X200 ド ッ ト 全 体 に 作画 で きる 

・ 中 間 色 を 比較 的 豊富 に も ち , し か も スピ 
ー デ ィ ー に 選択 で きる 

・ ユ ー ザ ー が 中 間 色 や タイ ル パ タ ー ン を 作 
り , 登録 する こと も 可能 

・ コ マン ド は メニ ュー ウイ ンド ー の アイ ュ 
ン で 視覚 的 に 選択 で きる 

> マダ グッ クス ティ ッ ク キー ボー ド ,| RD 
ス の 3 つの デバ イス を サポ ー ト 

・ ほ と ん どの 操作 は ポイ ン テ ィ ン グ デ バイ 
ス か ら 6 行う こと が で き , キー ボー ド 操 作 
が 少な い 

・ 部 分 的 に 拡大 し て 修正 する 機能 を も つ 
・ 漢 字 入力 機能 も 備え る 

・ 全 体 と し て 高速 . リ アル タイ ム で ある 
・8 ビッ トマ シン で は 珍し い ダ イナ ミッ ク 
ポジ ショ ニン グ 機 能 (後述 ) を 全面 的 に 
採用 

と に か く 《, マジ ックス ティ ッ ク と 組み 合わ 

せ て PC-8801 の 640X200 ド ッ ト 8 人 色 カ ラ 

ー が も っ て いる 浴 在 能力 を 100% 引 き 出 す 

こと が で き , し か も いま まで に な い 効 率 的 

な 作画 を 可能 ほす る グラ フィ ッ ク ツ ー ル で 

is 

カラ ー ペ ベー ジ の 作画 例 を ご 覧 に な っ て 〈 

だ さい (Oh! PC 1985. 3 月 号 ・P185, P190 

ー)。 あ の よう な 細密 画 で も 2 ~ 3 時間 で 描 
け , 一 般 に は や っ て いる アニ メ 風 の 絵 な ど 

は も の の 数 分 で リア ル に 描け ます 。 和 無論 , 

オペ レー タ の 技量 も あり ます が …。 
EDO ЖУ >? лу АЛАР С 
と が で き な か っ た だ 人, 落ち 込む こと は あり 
ませ ん 。 マ ジッ ク ペ イン ト は キー ボー ド か 


る た め 毎秒 1000 回 以上 の サン プリ ング が 可 
能 で す 。 プ ログ ラム を 作る 人 の 立場 か ら 6 考 
kem これ だ り 恵 まれ た ポイ オン ジテ ラリ ング 
デバ イス は ちょ っ と ほか に な いで すね 。 

リス ト 2 に , マジ ックス ティ ッ ク の マシ 
vB FEA RRR ROGER 
Nss-BASIC の CALL 文 に より コー ル し て 
使う こと が で きま す 。 と どう ぞ ご 利用 くだ さ 
い 。 


ら で も コン トロ ー ル が で きる の で す 。 で も , 
キー ボー ド 操 作 で は マジ ッ ク ペ イン ト の 能 
力 は まる で 発揮 で びき ませ ん 。 も と も と ポイ 
ン テ ィ ン グ デ バイ ス か ら の 操作 を 前 提 と し 
て 作っ た の で , キー ボー ド 操 作 [で は 普通 の 
グラ フィ ッ ク エ ディ タ よ り も 使い 勝手 が 悪 
UR BUTE Be 

Cb, も し あな た が る ⑱ な ら ア スキ ー か ら 
発売 され て いる マイ クロ ッ ソフト 社 製 RS- 
232C 用 シリ アル マウ ス を 入手 し て くだ きる 
t^s 

マジ ッ ク ペ イン ト は この シリ アル マウ ス 
も サポ ー ト し て いま す 。 


プロ グラ ム の 
入力 方 法 


プロ グラ ム は BASIC t と マシ ン 語 サブ ル 
ー チ ン か ら 成 り ま す 。 

まず ,。BASIC メ イン プロ グラ ム ( リ スト 
4)。 あ 人 人 力 じ て テニ デカ デル スク に ジ シーブ | 
LC as 

次 に マン A2 2 127 2572 (Б 
入力 前 に 必ず 

CLEAR, & HD6FF О 
を 実行 し , マシ ン 語 領域 を 確保 し て か ら 6 入 
力 し て くだ きい 記 カ G き だ た だら テー の か デ 
ШАС УЕН 

実は , プロ グラ ム 中 で Nss- DISK BASIC 
の 命令 で ある CALL 文 を 使っ た た め , ディ 
スク の な い 人 は 使え な か っ た の で す 。 で も 5, 
リス ト 3 に 示す CALL 文 拡張 プロ グラ ム , 
これ さる え ぇ 打ち 込め ば ディ スク な し で この プ 
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ログ ラム を 使え ます 。 テ ー プ を お 使い の 人 
は CALL 文 拡張 ゲロ グラ ム と BASIC メイ 
ンプ ログ ラム を 一 緒 に 入力 し て くだ さい 。 
も ちろ ん , ディ スク を も っ て いれ ば これ を 


に 入力 デバ イス と し て 何 を 使う か を きい て 
きま す 。 マ ジッ クス ティ イッ ク な ら 

0 の (まだ は 単に RETURN キ ー の み ) 
キー ボー ド な ら 


入力 する 必要 は あり ませ ん 。 1 Q 
8801SR の ユー ザー は V 1 モー ド に し て 人 。 マウ ス な ら 
DC だき bs 2 о 


操作 方 法 
JE. 


前 置き が 長く な り ま し た が , 本 題 に 入る 
と し まし ょ う 。 以 下 , 操作 方 法 の 説明 で す 。 

SO i piwi と マシ ン 語 ブロ 
グラ ム を ロー ド し ます 。 マ シン 語 の ロー ド 
の 前 に , 

CLEAR, & HD6FF О 
の 実行 を 忘れ な が いで くだ さい 。 

プロ グラ ム を ロー ド し た ら , RUN 命令 
で スタ ー ト し ます が ,。 プロ グラ ム は は じ め 


UTR だ さい 。 

以下 の 説明 で は , マジ ックス ティ ッ ク の 
使用 を 前 提 と し ます 。 ま た , スティック の 
ドド の スイ ッ チ を A ボ タン , 上 の スイ ッ チ を 
B ボ タン と 呼ぶ こと に し ます 。 

キー ボー ド や マウ ス の 場合 も 操作 自体 は 
まっ た く 同 じ で す が , 使用 に 当たっ て の 注 
意 も コラ ム 1, 2. に 示し ます の で , そちら 
を 参照 し て て だ きい 。 

デバ イス 指定 の 次 に , メニ ュー の 表示 な 
と ど に 12 秒 か か っ て か ら メ ニュ ー モ ー ド に な 
り ま す 。 メ ニュ ー ウ イン ドー は 画面 の 右側 
に 表示 きる きれ, グラ フィ ッ ク カ ー ソ ツル が メニ 
ュー 上 で 点 減 し て いる は ず で す ( 図 17)。 
ステ ィ ッ ク を 前 後 左 右 に 動か す と , それ 
に 対応 し て カー ツル が 移動 し ます 。 そ し て 
選択 し た い モ ー ド の 上 に カー ソル を 合わ せ , 
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ES CALLE TD 27 カク チョ ウド ーー 
FOR 1=1 TO &H6B:READ A$:POKE 


AU. МА. "АН" AS) : AXSAX& 1: NEXT 


&HEE89.&HC3:POKE &HEE8A.8H20:POKE &IIEE8B. &HF3 
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*F.39.F9. E 
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マジ ックス ティ ッ ク の A ボ タン を 押せ ば , 
その 該当 モー ド に 移り ます 。 

メニ ュー モー ド か ら 出 て 作画 モー ド に 入 
り た いと き は , ステ ィ ッ ク の B ボ タン を 押 
ECAX- だ Sh 表 3 コ ピー ツン ドー が 消え , 
作画 可能 な 状態 に な り ま す 。 作画 モー ド か 
ら 5 メニ ュー に も どり だ いと きも B ボ タン を 
押し ます 。 

つま り , A ボ タン は 「 カ ー ソ ル の 位置 を 
選択 し た よ , 処理 し て ちょ ー だ い 」 と コン 
ピュ ー タ に 知ら せる 選択 ボタ ン , B ボ タン 
は メニ ュー と 作画 の 入れ 替え た を スイッチ に な 
っ て いる わけ で す 。 これだけ 覚え れ ば , あ 
と は メニ ュー ウイ ンド ー の アイ コン と コマ 
ンド 名 か ら そ の モー ド の 機能 を 想像 し て マ 
ジッ ク ペ イン ト を 使う こと も 可能 で し ょ 2 う 。 


ERI em 
キー ボー ド を 使用 する 場合 


テン キー か ら の 入力 に より , 1 ドッ ト 
ずつ 座標 を 移動 きせ る よう に な っ て お り , 
SHIFT キー と と も に 押す と 4 ドッ ト ず 
つ 高 速 に 移 動 し ます 。 ま た キー ボー ド の 
Z キー が ステ ィ ッ ク の A ボ タン , X キ ー 
が B ボ タン に 対応 し て いま す 。 

キー か ら の コン トロ ー ル で は と て も 手 
描き の 感じ は 出せ ませ ん が , 直線 を 引い 
た り 図 案 を 描い た りす る 場合 は むし ろ ほ 
か の デバ イス より 適し て いる と も いえ ま 
d 


マウ ス を 使う 場合 


アス キー の シリ アル マウ ス を つなぐ で ぐために は , 本 体 RS-232C 
ポー ト の ボー レー ト を ジャ ン パ スイ ッ チ に よっ て 1200 ボ ー に 
定 し ます 。 ほ か の RS-232C 関係 の ディ ッ プ スイ ッ チ は と く (に 
定 の 必要 は な いよ う で す 。 

マウ ス の 左 の ボタ ン が マジ ックス ティ ッ ク の A ボ タン , HIB 
ボタ ン に 対応 し て いま す 。 

この マウ ス は 簡単 に 接続 で きる の は よい の で す が , 座標 が 動い 
た り ス イッ チ を 押し だ り し だ た と き し か デー タ を 送信 し ませ ん 。 こ 
の だ た だめ, プロ グラ ム の 実行 に 時 間 が か か っ て いる と , デー タ を 受 
け 取 れ な いこ と が あり ます 。 実際 マジック ペイ ント で マウ ス を 
使っ て いて , スイ ッ チ を 押し て も 選択 状態 に な ら な いこ と が まま 
あり ます 。 こ の よう な と き は スイ ッ チ を 何 度 か 押し 直し た り , ス 


2n 
nx 
zn 
nx 


イッ チ を 押し た まま マウ ス を 少し ずら し た りす る と よい よう で す 。 

また , Circle や Lupe な どの わり と 処理 に 時 間 の か か る コマ ン 
ド で は , 動き が 極端 に 悪く な り ま す 。 

これ ら を 改善 する に は 割り 込み を 使っ て マウ ス の 動き を 常に 監 
視 す る し か あり ませ ん が , さす が に そこ まで は や っ て られ ませ ん 。 
だ いだい フリ ー ラ ン 送 信 で で なく, ハン ド シ ェ イク で デー タ や を 読め 
れ ば こん な こと に な ら な い の に , まっ た だ 〈 困 っ た も の で す 。 マ ウ 
ス の マニ ュ ア ル も 少々 説明 不足 だ し , 短い サン プル プロ グラ ム も 
あま り 役 に 立ち ませ ん で し た 。 

な お , マウ ス の 力 を 過信 し て は いけ ませ ん 。 し ょ せん マウ ス は 
コマ ンド 選択 用 の デバ イス で , グラ フィ ッ ク 入 力 に 関し て は マジ 
ックス ティ ッ ク の 方 が 数 倍 使い や すい と いっ て よい と 思い ます 。 
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な お , 漢字 ROM を 装備 し て いな い 8801 
で は ょ メニ ュー ウイ ンド ー の アイ ユン に コ 
マン ド 名 が 表示 る きれ ませ ん 。 で も , 74а 
ン の 形 だ け で ユマ ンド の 内 容 は 分 か る は ず 
で すか ら , と くに 間 題 は な いと 思い ます 。 

メニ ュー ウイ ンド ー か ら 各 機能 を 順番 に 
説明 し まし ょ う 。 


Oa t NES E FOIE COO ep Ee Sedi 


中 間 色 カラ ー チ ャ ー ト 


EE Я S ү, 

まず , いち ば ん 上 は 中 間 色 の カラ ー チ ャ 
тагои оаа ж 
へ いく ほど 青 の ド ッ ト 密 度 が 高く (明る く ) 
а Cn 
カラ ー チ ャ ー ト 上 で 選択 し た い 中 間 色 に カ 
ー ソ ツル を 重ね て A ボ タン を 押す と , EDE 
が 選択 きれ ます 。 以下, いち いち A ボタ ン 
を 押す と 書か ず , 単に 選択 , まだ は 指定 す 
る と 書き ます 。 

カラ ー チ ャ ー ト の すぐ で 下 に は 緑色 の 濃度 
スケ ー ル が あり , ここ の 選択 位置 に よっ て 
カラ ー チ ャ ー ト 全体 の 緑色 の 混合 比 を 瞬時 
に 変化 きせ る こと が で きま す 。 

要する に ,BRG の 3 プレ ー ン を それ ぞ れ 
7 段階 の 混合 比 で 組み 合わ せ て , 合計 343 色 
の 色 を 作れ る わけ で す 。 

緑 の 濃度 を 変化 させ せ て も , 現在 選択 され 
て いる 中 間 色 は 更新 きれ ませ ん 。 

な お , 選択 し た 中間色 は 緑 ス ケー ル の 左 
トト の 色 見 本 エリ ア に 大 きく 表示 きれ ます 。 
カラ ー チ ャ ー ト 上 の 色 は 小さ 〈 て 実際 に と 
ん な 色 な の か 判断 が 難し いで す が , ここ の 
表示 を 見 れ ば 感じ も を よ くつ か め ま す 。 


CM Pp REESE на Jue Tex 


TETI g 
E a Ша ы? ト に は , 
使用 頻度 の 高い 色 を 自由 に 登録 する こと が 

Са 

まず , 登録 し た い 中 間 色 を 選択 し ます 。 
KE, カー ツル を 色 見 本 エリ ア の 上 に 重ね 
て 選択 し て か ら , 色 を 登録 し た い パ レッ ト 
を 選択 し ます 。 

スタ ー ト 時 に は , 基本 の 8 色 が 登 
て いま す 。 


BE O RNS 


録 さ れ 


・ 中 間 カ ラチ ャ ー ト 
ここ で 中 間 色 を 選択 。 

右 へ いく ほど 青 味 が 増し , 
下 べ へ いく ほど 赤 味 が 増す 。 


・ 色 見 本 エリ ア 
現在 使用 し て いる 中 間 色 が 表示 
され る 。 

・ ラ イン カラ ー チ ャ ー ト 
線 や 円 を 描く と き の 色 を 指定 す 
る 。 

ブラシ 
中 間 色 で 描く た め の 筆 で す 。 
普通 の 筆 は 4 種類 の 太 さ を 選択 
で きる 。 右 の 4 つ は アミ 目 の 筆 
T, ボカ シ る 効果 を 出せ る 。 

・ ペ ン 
ライ ンカ ラー で 輪郭 を 描く の に 
使う 。 

"ラウ イン 

普通 の 線 と 連続 に 一 筆 描 き で 描 
ける 2 つの タイ プ を 選べ る 。 

・ ボ ックス 
普通 の ポッ クス と 中 間 色 で の 塗 
りつ ぶし が ある 。 

・ サ ー ク ル 
円 や 棒 円 を 描く 。 

・ ペ イン ト 
ライ ンカ ラー で 囲ま れ た 領域 を 
中 間 色 で 塗り つぶ す 。 


О abc カ ン 


—— ә 


Utility 


・ グ ラフ ィ ッ ク カ ー ソ ル 
どん な 色 の 上 に 重なっ て も , カ 
ー ソ ル が 見 える よう な 工夫 が し 
て ある 。 

・ グ リー ンス ケー ル 
カラ ー チ ャ ー ト 全体 の 緑 濃度 を 
設定 する 。 
中 間 色 は 合計 343 色 。 

・ 中 間 色 パレ ッ ト 
よく 使う 中 間 色 を 8 色 ま で 登録 
で きる 。 

*・ ビ ュー 
絵 を 描く 領域 を 一 部 に 限る こと 
で 細か い 部 分 まで 微妙 に 描き 込 
め る よう に し た 機能 。 

` ピュ ー は 512 X200, 256 x 100, 
128X500 3 種類 ある 。 

| JU — < 
画面 の 一 部 の 横 32, 縦 14 ド ッ ト 
の 範囲 を 縦横 4 倍 に 拡大 し て 見 
る こと が で きる 。 拡 大 部 分 で | 
ドッ ト 単 位 で 修正 する こと も 可 
ВЕ. 

iyt- ブッ ト 
画面 の 一 部 を 複写 し た り , ほか 
の 場所 に 移動 する 機能 。 

や へ ・ タ イプ 
グラ フィ ッ ク 画 面 に アル ファ ベ 
ッ ト や 漢字 を 表示 で きる 。 

・ ユ ー テ ィ リ ティ 
画面 の セー プ , ロー ド な ど を 行 
う ユ ー テ ィ リ ティ 画面 に 入る 。 


Type 


図 科 ョ メラ ココ ウイ ンド ーー 
ライ ンカ ラー 


ライ ンカ ラー は 基本 の 8 色 ど ご け で , 中 間 
色 で は あり ませ ん 。 中間色 は 広い 面積 を 塗 
る と き に 使い 、。 ラ イン カラ ー は 線 を 引い た 
りす る と き に 使用 する 色 を 指定 する も の で 
す 。 こ の 2 つ を 混同 し な いよ う , よく 理解 
UC Je es 


Brush 


要する に 人 筆 の こと で す 。 作画 モー ド で A 
ボタ ン を 押し て いる 間 , カー ソル 位置 に 中 
間 色 を つけ ます 。 こ れ が マジ ッ ク ペ イン ト 
の 最も 重要 な 機能 で , ほか の 機能 を 使わ な 
《 て も これ だ け で 十分 な 絵 が 描け ます 。 

筆 の 種類 は 8 種類 あり , いち ば ん 細い の 
は 1 ドッ ト , 太い も の は 横 8 メ 4 ドッ ト の 


大 きる を も ち ま す 。 

アイ コン の 右 の 4 つ は アミ 目 の 筆 で , こ 
れ を うま < 使う まる: で エア ジラ シ の さよ う 
な ボカ シ 効 果 を 出す こと が で きま す 。 こ の 
ボカ シ に よっ て , いま まで に な か っ た 立体 
感 の ある リア ル な 絵 を 表現 で きる の で す 。 


ERO C dus abcr RE RE 


Pen 


RE qc RE 
ес с Ж 
ティ ッ ク の 動き に 従っ て 曲線 を 描き ます 。 
主 に 中 間 色 で ペイ ント する 輪郭 な ど を 描 
《 の に 使い ます 。 


Line 


まず , 始点 を 指定 し ます 。 次 に 終点 を 指 
定 し て , 初め て 線 が 引か れる の が 普通 の グ 
ジン ンク ツー クル 
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マジ ッ ク ペ イン ト で は , 始点 を 決め た ら 
終点 を 指定 する まで , 始点 と カー ソル 位置 
の 問 に 実際 に 線 を 引き な が ら , 自由 に 移動 
る こと の 5 きま 9 お寺 で の よう に 請 際 に 
線 を 引き な が ら 終 点 を 決め る こと が で きる 
機能 を 「 ダ イナ ミッ クボ ポジ ショ ニン グ 機 能 」 
と 呼ぶ … か どう か は 知り ませ ん が , と りあ 
えす くう 呼び ま しま 5。( 私 は マッ キン トー ッ 
シュ の マッ ク ペ イン ト で , 初め て この 機能 
を 使っ た と き の 感 動 ち あい まで も 覚え て いま 
す )。 

ポジ ショ ン 指 定 中 に 引か れる 線 は ライ ン 
カラ ー と は 異な り ま す が , 終点 を 指定 する 
と 実際 の 色 で 線 を 描き ます 。 

メニ ュー で Line の アイ コン が 左右 に 2 
つ あ り ま す が , 左 を 選択 する と 通常 の 始 
点 ・ 終 点 指定 の Line C, 右 の Line で は 前 
回 描い た 線 の 終点 を 次 の 始点 と し て 連続 的 
に 線 を 引 〈 一 筆 描き の 機能 が 使え ます 。 

後者 は 幾何 学 図 形 な ど を 描く 場合 に 便利 
die s 

も し 途中 で 始点 を 変更 し た 《 く な っ た ら 。, 
B ボ タン を 2 回 押し ます 。 1 度目 で メニ ュ 
ー に 入り , 再度 押し て 作画 モー ド に も どる 
わけ で す 。 


人 AGM 
Box 
[О г RESETS 


左 の 白い 四角 の アイ コン を 選択 する と , 
長方形 の わく を 描け る Box モー ド に な り 
ます 。 要するに, 

DINE, Y) (X1; Үр, : G, B 
で す 。 も ちろ ん , 描く 位置 は 四角 の わく に 
よる ダイ ナミ ッ ク ポ ジ シ ョ ニン グ で 視覚 的 
に 決め られ ます 。 

右 の 黒い 四角 の アイ コン を 選択 し た 場合 
は , 中 間 色 で 塗り つぶ し た 長方形 を 描け る 
Box filN モ ー ド と な り ま す 。 ポ ジ シ ョ ニン 
グ 中 は 対角線 が 引か れ た 四角 いわ 〈 く が 表示 
る れ る の で , た だ の Box モー ド と 見 分 けら 
れ ま す 。 

カラ ー チ ャ ー ト か ら 黒 の 色 を 選択 し , こ 
の Box fill を 使っ て 画面 を 部 分 的 に 消去 す 
$c EN EY. 


Circle 


椿 円 を 描 ( コ マン ド で す 。 も ちろ ん 正 円 
も 椿 円 の 一 種 び で すか ら , 描く こと が で きま 
す 。 ま ず , 円 の 中 心 点 を 指定 し ます 。 次 に , 
デバ イス か ら の 入力 位置 を 中 心 点 に 対す る 
長径 と 短 径 し し て ダイ ナミ ッ ク ポ ジ シ ョ ニ 
ング で 椿 円 を 描く ので, FO K š Š t ú 
平 率 を 自由 自在 に 設定 で きま す 。 

この 椿 円 を 描く マシ ン 語 ルー チン は 「 テ 
クノ ポリ ス 」85 年 1 月 号 に 掲載 され た (5 
の アル フォ ス な どの 作者 ) 森田 きん の プロ 
グラ ム を 参考 に し て 作り まし た 。 あ の 記事 
が な けれ ば Circle の ダイ ナミ ッ ク ポ ジ シ 
ョ ニン グ は あき ら め な けれ ば な ら な いと こ 
ろ で し た (森田 さん に 感謝 )。 な お , ほか の 
ルー チン は すべ て オリ ジ ナ ル で す 。 


Paint 


指定 位置 か ら , 選択 し て いる 中 間 色 で 選 
択 し て いる ライ ンカ ラー を 境界 色 ほ とし て ペ 
du ERE 

も し 境界 線 に 究 が あっ て 色 が は み 出 し た 
ら , すか る ず STOP キー を 押し て プロ グラ 
ム を 停止 し ます 。 ЖЕ, ファ ンク ショ ン キ 
—[ f・1 | を 押す と , メ ニュ ー モ ー ド か ら 
プロ グラ ム を 継続 する こと が で きま す 。 

また , Paint コマ ンド 実行 後 , つい つい 忘 
NT Brush コマ ンド の つも り に な り , 描こ 
うと し た ら 6 突然 ペイ ント が 始ま り び っ くり 
する な ん て こと は あま り 和 歓迎 で きま せん が , 
だ れ で も 1 度 は 体験 する と 思い ます 。 

今月 の 標語 一 「 コ マン ド の 選択 状態 に は 
Soy oU! 

な お , すでに 中 間 色 で ペイ ント され て い 
る 領域 を 新た に ペイ ント し 直す こと は で き 
ませ ん 。 こ の よう な 場合 は Box fill コマ ン 
ド で ある 程度 塗り , 細か いと ころ は Brush 
を 使っ て 塗り つぶ し ます 。 


View 
CT 
この View こそ が , マジ ックス ティ ッ ク 
の 入力 8 ビッ ト の 限界 を カバ ー し て あま り 


ある 機能 で , 実際 の 作画 可能 エリ ア を 一 部 
に 限る 高 分 解 能 モー ド と 考え て くだ さい 。 
View は 3 段階 あり , 横 512X 縦 200 ド ッ 
F, 256X100 ド ッ ト , 128X50 ド ッ ト に 作画 
エリ ア を 限り , その 範囲 内 で し か カー ツル 
は 動き ませ ん 。 

最大 の 横 512 ド ッ ト モ ー ド で は , 画面 の ほ 
ぼ 全 体 に 絵 を 描く (こと が で きま す 。 し か し , 
マジ ックス ティ ッ ク か ら の 入力 の 横 256 ド 
ッ ト を 2 倍 し て 512 ド ッ ト と し て いる た め , 
1 ドット お き の 偶数 ドッ ト の 座標 指定 し か 
で き な い 欠点 が あり ます 。 

次 の 横 2560 ド ッ ト モ ー ド で は , 横 の ドッ ト 
数 が マジ ックス テイ ッ ク と 同じ で すか ら あ 
る 程度 正確 な 座標 指定 が 可能 に な り ま す 。 

最小 の 128 ド ッ ト モ ー ド で は , マ ジッ クス 
ティ ッ ク か ら の 入力 を 横 は 2 分 の 1, 縦 は 
4 分 の 1 に し て いる の で , 大 変 正確 に ドッ 
ト 単位 で の 座標 指定 が で きま す 。 

View エリ ア の 設定 は 次 の よう に 行い ま 
す 。 メ ニュ ー に View の 3 つの アイ コン が 
示さ る され て いま す が , まず 望む 大 きる の も の 
に カー ツル を 合わ せ て 選択 し て くだ さい 。 
する と メニ ュー が 消え を, 作画 画面 上 に 2 本 
の 縦 線 が 出現 し ます 。 こ の 線 の 間 が View 
エリ ア と な り ま す 。 2 本 の 線 は マジ ックス 
ティ ッ ク に よっ て 位置 が 動き ます か ら , ¥ 
む 場 所 に 合わ せ て 選択 すれ ば そこ が View 
エリ ア と し て 固定 る され, その まま 作画 モー 
ド に 入り ます 。 

作画 中 View エリ ア を ほか の 位置 に 移動 
し た だ くす な っ た 場合 , いち いち メニ ュー に も 
どっ て いた の で は 非 能 率 的 で す 。 そこで 
作画 中 いつ で も キー ボー ド の カー ツメ ツル 移動 
キー に よっ て View エリ ア を 移動 で きる よ 
うに し て あり ます 。 で すか ら , 128 ド ッ ト の 
モー ド で Line コマ ンド を 使っ て も , 始点 
指定 後に View エリ ア を 移動 する こと で 画 
面 の 端 か ら 端 まで 線 を 引 《 こ と が で きる の 
で す 。 た だ し , View の 大 きる は メニ ュー か 
ら で な いと 変え られ ませ ん 。 

全体 的 な 使い 方 と し て は , まず 大 き な 
View の 状態 で 絵 の 形 を お お ま か に 描き , 
256 ド ッ ト モ ー ド で 細か く 描 き , 128 モ ー ド 
で ディ テー ル を 仕上 げ る よう に IS 

な お , 横 640 ド ッ ト に 対応 する モー ド が な 
い の は , 場所 に より 2 ドッ ト 開 いた り 1 ド 
ッ ト 開 いた り し て , 非常 に 具合 が 悪かっ だ 
か ら で す 。 


Кнын EE CUNG 
Lupe 
НЕ E OR DENE TE 

部 分 的 に 拡大 し て 見 る 機能 で す 。 こ れ を 
選択 し て 作画 エリ ア に 入る と, 画面 に 四角 
いわ 〈 く が 表示 され ( 図 18),、 この わく 中 の ド 
v hen 画面 右 下 に 出現 する 拡大 ウイ ンド 
ー に 4 倍 の 大 きる で 表示 る れ ま す 。 四角 い 
わく は ステ ィ イッ ク に よっ て 自由 に 移動 で き , 
拡大 部 分 も リア ル タ イ ム に アニ メ の よう に 
動き ます 。 

A ボ タン を 押す と 拡大 エリ ア が 固定 され , 
カー ツル が 拡大 ウイ ンド ーー 内 に 入り ます 。 
ここ は 拡大 きれ た エリ ア を 1 ドッ ト 単 位 で 
修正 で きる モー ド で す 。 ドット の 色 は ウイ 
ンド ー の 上 部 に 表示 され る 8 色 の カラ ー か 
ら 5 選択 し て くだ きい 。 

ウイ ンド ー の 左上 に TL と 書か れ た 部 分 
が あり ます が , ここ を 選択 する と 拡大 表示 
され た 部 分 の 左上 か ら 6 横 8 ドット, #@&4 F 
ッ ト の 部 分 が , な ん と 中 間 色 と し て 定義 き 
れ ま す 。 と いう こと は 。 カラ ーー チャ ー. ト に 
は な い 中 間 色 も 自分 で 作る こと が で きる し , 
タイ ルフ パタ ー ン を 作っ て スク リー ント ー ン 
の よう な 効果 を 出す こと も 可能 な わけ で す 。 

1 度 作 っ た タイ ル パ タ ー ン は , 登録 パレ 
ッ ト に 入れ て ぉ く 〈 と 便利 で す 。 

ウイ ンド ー の 下 の 部 分 を 見 た いと き は ど 
うす る か っ て ? そん な と き は 拡大 修正 モ 
ー ド で ウイ ンド ー 左 端 の 白い 部 分 を 選択 す 
れ ば , 拡大 ウイ ンド ー は 画面 右上 に 移動 し 
£ 
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Get Put 


SI 
BASIC の グラ フィ ッ ク 命 令 の GET, 
PUT の 記憶 範囲 指定 を マジ ックス テイ ッ 

ク か ら 6 で きる よう に し た も の で す 。 

Get の アイ コン を 選択 し た 6 ら 作画 モー ド 
に 入り , 記憶 し た い 部 分 を Box コマ ンド の 
要領 で 囲ん で 指定 し ます 。 す る と, 自動 的 
に Put コマ ンド に 移行 し ます か ら 。, 今度 は 
覚え た 絵 を 表示 し た い 部 分 に わく を 移動 し , 
選択 すれ ば を こ に 絵 が 出現 し ます 。 

フリ ー エ リア が 限ら れ て いる ため , あま 
り 大 き な エ リア を 読み 込む こと は で きま せ 
や 5 だ だ 5 二 ク ー ン ペー の 場合 は リー 


・ タ イル スト リン グ 登 録 
ここ を 選択 する と , 拡大 表示 の 左上 か ら 
横 8 ドット , 縦 4 ド ッ ト の 範囲 が 中 間 色 
と し て 定義 され る 。 


・ 上 下 移動 
この 部 分 を 選択 する と , 拡大 ウイ 


ンド ー を 画面 の 上 下 に 移動 で きる 。 


図 18 


エリ ア が 広い の で , か な り の 広範 囲 を 読み 
込む こと が で きま す 。 指定 範囲 を 読み 込め 
な い 場 合 は ビー プ 音 が 鳴り ます の で , それ 
より 狭い 範囲 で や り 直 し て くだ さい 。 

な お , いっ た ん Get ユマ ンド を 実行 し た 
ら , あと で 再度 Get コマ ンド を 使う まで デ 
ー タ は 記憶 し て いま すか ら 5, メニ ュー で 
Put コマ ンド を 選択 すれ ば いつ で も 絵 を 引 
き 出 すこ と が で きま す 5 

デー タ 書 き 出し の パタ ー ン は , あと で 説 
明 す る ドロ ー イ ング オプ ショ ン の 指定 で , 
PSET, PRESET, AND, OR, ХОК X E 
が 選べ ます 。 

E Ьа E SSS 


Type 
Аааа ER а 


画面 に 漢字 や アル ファ ベッ ト を 書き 込む 
タイ ビ ピン グ 機 能 で す 。 

左 の abc の アイ コン を 選ぶ と , アル ファ 
ベッ ト の タイ ピン グモ ー ド と な り ま す 。 作 
画 画面 に 入る と , 四角 いわ く の カ ー ソ ル が 
現れ ます か ら , ステ ィ ッ ク 操 作 で 文字 を 書 
きた だ い 位 置 に 合わ せ て 選択 し ます 。 こ の 状 
態 で キー ボー ド か らら アルファベ ッ ト や 仮名 
( 4 分 の 1 角 の 漢字 ) な ど を タイ プア プ 入力 で 
š š+, 文字 の 表示 色 は ライ ンカ ラー が 使 
われ ます 。RETURN キー を 押せ ば , も > 1 
度 タ イプ 位置 を 選べ る 状態 に な り ま す 。 
右側 の 「 カ ン 」 と いう アイ コン は 漢字 モ 
ー ド を 意味 し ます 。 こ の モー ド で は ,16 進 漢 
字 コ ユー ド を キー ボー ド か ら 入 力 し て 目的 の 
漢字 を 画面 に 表示 で きま す 。 ま た , 漢字 で 
は 縦 書 き の 場合 も 考慮 し て , カー ツル キー 


・ 拡 大 表示 ウイ ンド ー 
こ で 1 ドッ ト 単 位 で 修正 する こと が で きる 


・ カ ラー チャ ー ト 
拡大 エリ ア に セッ ト す る 色 を 選 
択 で きる 


操作 で 表示 カー ツル を 動か せる よう に な っ 
СЛУ 9 

コード 入力 時 に RETURN キー の み を 
押す と , 新た に 表示 位置 を 選択 可能 と な り 
ます が , ここ で B ボ タン を 押せ ば メニ ュー 
に < も SE Oka 

な お , マジ ッ ク ペ イン ト は ワー ドブ プロ セ 
ッ サ で は あり ませ ん か ら , 削除 挿入 な どの 
編集 機能 は も っ て いま せん 。 ま た , 当然 で 
す が , B&F ROM を 装備 し て いな けれ ば , 
この 機能 は 利用 で きま せん 。 
утту ку 


Utility 


ST, メニ ュー の コマ ンド の 紹介 は あら 
か た 終わ り ま し た が , マジ ッ ク ペ イン ト の 
機能 は まだ まだ あり ます 。 今度 は ユー ティ 
リティ 画面 の 説明 を し ます 。 

メニ ュー の 右 下 の Utility の 部 分 を 選択 
する と 突然 グラ フィ ッ ク 画 面 が 消え 和 失せ, 
スク リー ン は 図 19 の よう に な り ま す 。 こ れ 
が ユー ティ リティ 画面 で す 。 こ の 画面 で は 
カー ツル が 普通 の キャ ラク タカ ー ソ ツル に な 
り ま す が , いま まで 同様 ステ ィ ッ ク に より 
位置 動か の すこ と が で きま す 。 ま た A ボ タ 
ン で て 選択, B ボ タン で は メニ ュー に も どり 
まぁ 

ユー ティ リティ 画面 は , 以下 の よう な 14 
の 機能 を も っ て いま す 。 

1 グラ フィ ッ ク 画 面 の オン / オ フ 

ユー ティ リティ 画面 に 入る と グラ フィ ッ 
ク 画 面 は 消え て し まい まし た が , 消去 きれ 
た わけ で は あり ませ ん 。 画面 の 左上 の 
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ll Screen dsp 
の 部 分 に カー ツル を 合わ せ て 選択 する と, 
グラ フィ ッ ク 画 面 を 重ね て 見 る こと が で き 
ます 。 再 度 同じ 場所 を 選択 する と , 画面 は 
見 え を なくなり ます 。 
2 ハー ドコ ピー 

ドッ トブ リン 2 計 電 6OBYW2 て グラ ン ィ 
ッ ク 画 面 の ハー ドコ ピー を 出し ます 。 

本 当 は NEC の 新型 カラ ー プ リン タ 対 応 
に する 了 予定 び どっ た の で す が , 時 間 が な く て 
S де УЛАК ЛУГУ 
$, いずれ 何ら か の 形 で サポ ー ト する つも 
Уа 
з カセ ッ ト に セー ジ 

グラ フィ ッ ク 画 面 の ビッ ト デ ー タ を まる 
ご と カセ ッ ト テ ー ジ に 書き 込み ます 。 

ここ を 選択 する と ファ イル ネー ム の 入力 
を 要求 きれ ます か ら , 自由 な 名 前 を キー ボ 
ー ド か ら 6 タイ デ し ます 。 次 に , カセ ッ ト を 
セー ブ 状 態 に し た 6 RETURN x — £ fif 
+, と いう 意味 の 表示 が る れる の で その と 
お り 入 力 し ます 。 中止 し た い 場 合 は ここ で 
RETURN キー 以外 の キー を 押し て くだ る 
い 。RETURN キー を 押す と セー ブ プ 開 始 し 
ます が , 何と 7 分 以上 の 時 間 が か か り ま す 。 
人 間 が 耐え を る こと の で きる 限界 の 時 間 で す 
が 才 が まん し て くだ る さい 。 が まん で き な い 
人 に は , ディ スク ドラ イブ 購入 の 検討 を お 
33435Ui3. 

4 カセ ッ ト か ら ロ ー ド 

選択 し た ら , セー ブ し て ある テー プ の 頭 
出し を 行い 。 カセ モット を ロー ド 可 能 状態 に 
し て か ら 6 RETURN キー を 押し ます 。 す る 
t, テー プ か ら フ ァイル 名 を 読み , 画面 に 
表示 し て その ファ イル で よい か どう か 確認 
し て きま すか ら , 目的 の ファ イル な ら 
RETURN キー を 押す と 画面 デー タ の ロー 
ド を 開始 し ます 。 

テー プ の ベリ ファ イ 機 能 は 省略 し まし た 
か ら , 信頼 性 の 高い デー タレ コー ダ と テー 
プ を 使っ て くだ きい 。 

5 ディ スク に セー プ ブ (5.25 イ ンチ の み ) 

も ちろ ん , ディ スク に も 画面 セー ブ で き 
まだ だ (しぶ 普通 ゆめ デー タデ ィ ス グ と の 
共用 は で きず , 画面 ファ イル 専用 の ディ ス 
ク と し て 使い ます 。 1 枚 の ディ スク に 6 枚 
の 画面 を 保存 で きま す 。 

g rye a > t LUTI А y 
ト し た て の ディ スク を 用 意 , ドラ イブ に セ 
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ЭБЗЕ Е БЕ 20) 774 
画面 で ディ スク セー ブ を 選択 する と , 
DriveNo.? [1 2] 

と 表示 され ます か ら , カー ソ ツル を 目的 の ド 
ライ ブ 番 号 に 合わ せ て 選択 し ます 。 す る と, 
を その ディ スク に 入っ て いる 画像 ファ イル の 
名 前 が 6 つ 表 示さ る れ ます (新しい ディ スク 
の 場合 は , 当然 何 も フ ァイル は あり ませ ん 
が )。 ЖЕ, モ セーブ する ファ イル ネー ム を 入 
力 す る と , カー ツル は 先 に 表示 し た 6 つの 
ファ イル ネー ム の 頭 に 移動 し ます 。 こ こ で 
6 つの うち , どこ に セー し た ら よ いか カ 
ー ソ ツル を 動か し て 指定 し て くだ さい 。 指 定 
する と, 画面 が ゲ ィ スク に セー ブ さ れ ま す 。 

ちょ っ と 変わ っ た ファ イル の コン トロ ー 
ル で す 。 普通 の よう に ファ イル 名 を 入れ た だ 
6, 勝手 に ディ スク の どこ か に デー タ を 記 
憶 し て くれ る の で な く , ディ スク を 6 つ に 
分 け て 6 つの うち どこ に 記憶 する の か を 自 
分 で 指定 し な けれ ば な り ま せん 。 

な こめ し だ の tm セグ ラム が 
簡単 だ か 6 で す 。 その 代わ り , モー ブス ピ 
ー ド は 7 秒 ち ょ っ と と けっ こう 高速 で す 。 
6 ディ スク か ら ロ ーー ポ ボ ポ 

どちら の ドラ イブ か ら ロ ー ド する の か き 
いて きま すか ら 。 指定 し て や り ま す 。 デ ィ 
スク に 入っ た 6 つの 画面 ファ イル が 表示 る 
れる の で , カー ソル を 目的 の ファ イル に 合わ 
せ て 選択 する と, その 画面 デ ゲー タ を ロー ド 
し て 画面 に 表示 し ます 。 

ロー ド も ャ セーブ プ 同 様 7 牧 も ね ょ っ と で す が , 
これ で 速い な ど と 感心 し て は いけ な い ! 
私 は 現在 3 牧 で ロー ド す る こと に 成功 し て 
いま すし , 可能 性 と し て 2 秒 を 切れ る ノウ 
ハウ が あり ます 。 リ クエ スト が あれ ば , こ 
の プログ ラム も 公開 し ます 。 

な お ,。 ここ で 画面 セー ブ プ し た ディ スク は 
通常 の プロ グラ ム 用 デー タデ ィ ス ク と し て 
は 使え ませ ん 。 ま 夫 。 普通 の パック アッ ジグ 


lllScreen dsp(on off) 
lliHardcopy 
lllSave to tape 


Ш! ога from tape 
Save to disk 
Ш оаа from disk 
WiFiles [1 2] 


画 Quit [*] 


図 19 Magic paint 88 Ver2.0 Utility screen 


ポ 生 が みみ が で さき ビ ピー を 作る こと も で きま もそ 
тва 

7 ファ イル の 表示 

[06224 
の 1 か 2 に カー ソル を 重ね て 選択 する と , 
を その ドラ イブ の ファ イル 名 を すべ て 表示 し 
do 

8 ドロ ー イ ング オプ ショ ン の 指定 

Get Put コマ ンド の と ころ で 触れ まし た 
が , この ドロ ー イ ング オプ ショ ン の 指定 に 
よ で UL ペタ ュー) ER IR RSET 
PRESET, AND, OR, XOR の 5 つか ら ど 
れ か 1 つ 選 択 で きま す 。 ま た だ た, この ドロ ー 
イン グ オ プシ ョ ン は Put コマ ンド だ け で 
な く Brush t Box fill に も 有効 で す 。 

それ ぞ れ の オプ ショ ン の 違い は 8801 の で て 
ニュ アル を 参照 し て くだ きい 。 

た と えば , OR を 指定 する と, Put 命令 実 
行 時 に パタ ー ン の 重ね 合わ せ が で きま す 。 
ほか に も 使い よう に よっ て は 特殊 な 効果 を 
期待 で きま すか ら , 各自 で 研究 し て くだ る 
いら 

な お , 初期 設定 で は PSET が 指定 され て 
いま す 。 ま た だ , 1 度 オ プシ ョ ン を 指定 し だ 
6, あと で PSET に も どす こと を 忘れ な い 
X CIEGO XS 
9 デバ イス の 変更 

マジ ックス ティ ッ ク や マウ ス を 使っ て い 
て も , キー ボー ド か ら の 操作 に 切り 替え た 
いと き が あり ます 。 た と えば , Brush モー 
ド て で 中間色 の 直線 を 描く な ど , ケー スバ イ 
ケー ス で デバ イス を 変更 し て くだ きい 。 

10 キャ ラク タカ ラー の 設定 

View エ リア を 示す 2 本 の 縦 線 は は じ め は 
UC X 背景 が 白 の 場合 は みえ な く な っ 
て じまい ます 。 そん な と き は 。 キャ ラク グズ タ 
カラ ー を 青 と か 緑 に 変更 すれ ば OK です 。 

ユー ティ リティ 画面 の 字 の 色 も , この カ 
E b E 


Drawing option [PSET,PRESET,AND,OR,XOR] 
Device [Magic stick,Key board, Mouse] 

Chr color [01234567] 

Clear screen [01234567 TILE] 

圏 Scroll [Left right up down] 

WSoft focus [B-R-G G-R-B] 


カラ ー は 0 一 7 が あり ます が , 0 を 選択 
し た 場合 は 白 の ブリ ンク (HR) と な り ま 
ps 
11 画面 の 消去 
UT kb 390 U 25 ет, 2 
フィ ッ ク 画 面 を 消去 し ます 。TILE を 選択 
し た 場合 は , 中 間 色 に よっ て 画面 を 埋め つ 
CUu 
12 画面 の スク ロー ル 
グラ フィ ッ ク 画 面 を , 上 下 左右 に スク ロ 
ー ル で きま す 。 人物 を 画面 右 に 描い だ けど 
中 央 に 移動 きせ た い , な ど と いっ た と き に 
利用 し て くだ さい 。 
左右 は 8 ドッ ト 上 単位, 上下 は 1 ドッ ト 単 
位 で ど ス クロ ー ル し ます 。 実際 の スク ロー ル 
状態 を 見 た いと き は , グラ フィ ッ ク 画 面 表 
示 状態 に し て お きま す 。 
13 ソフ ト フ ォ ー カ ス 
グラ フィ ッ ク 画 面 は B, R, G の 3 画面 
か ら 成 り ま す が , B と G の 画面 を 左右 に 1 
pobd 03-639. 二胡 に コン ビデ コー 
タ で 描く 絵 は 線 が 固い 感じ に な り が ち で す 
D, これ に よっ て 白い 線 や エッ ジ が ぼや け 
や わら か い 表 現 が で きま す 。 
B-R-G 
を 選択 する と, R を 中 心 に し て B を 左 , G 
を 右 に ずら 6 し , 
G-R-B 
で は その 逆 に し ます 。 2 ドッ ト 以 上 ず 6 す 
と 効果 が 出 て きま す 。 
な お 青 , 赤 , 緑 な どの 単色 の 線 は 残念 な 
が ら ま る て 影響 を 受け ませ ん 。 
14 終了 
[*] 

の 星 に カー ツル を 合わ せ て 選択 する と , 7 
ラフ ィ ッ ク 画 面 を 表示 状態 に し て マジ ッ ク 
ペイ ント の プロ グラ ム を 終了 し ます 。 
以上 で マジ ッ ク ペ イン ト の 説明 は すべ て 


マジ シッ クベ オイ ント 
BASIC テ キス ト 


テキ スト 未 使用 エリ ア 


年 まだ まだ 拡張 の 余地 あり 


4C80 
GRAM 拡 大 エリ ア の 保存 バッ ファ 


5A80 
GRAM メ ニュ ー エ リア の 保存 パッ ファ 


8000 f- 
GRAM ア クセ ス サブルーチン (コピ ー) 


テキ スト ウイ ンド ー の 裏 に 


変数 。 フリ ー, スタ ッ ク な どの エリ ア 


G-RAM を アク セス する サ 
プル ー チ ン を 配置 G-RAM 


D700 
マシ ン 語 サブ ルー チン 
(メイ ン ) 


E200 
GrRAM ア クセ ス サ プ ルー チン (デー タ ) 


ズ タ ー ト 時 に 転送 


E600 
BASIC シ ステ ム 
ワー キン グ エ リ ア 
FFFF 


ワー クエ リア の 未 使用 部 分 も 
一 部 利用 し て いる 


図 20 メモ リマ ッ プ 


終わ り で す 。 最 後に 。 メモ リマ ッ プ を 図 20 
に 示し ます 。 


お つか れ さ ま 
p 3 


いや まっ た (お 疲れ さま 。 НЕШ e 
た め , 説明 も 大 変 長く な っ て し まい まし た 。 
読む だ け で 疲れ て し まっ た の で は な いか と 
思い ます 。 

к», 解説 を 読む より 使っ て 覚え だ 
方 が よい の で すか ら , 休日 1 日 を 使っ て プ 
ログ ラム を イン プッ ト し て くだ さい 。 け っ 
こう 長い プロ グラ ム で す が , 耐え て 入力 す 
る だ け の 価値 は あり ます 。 あ の 小林 篤 さ ん 
が 「 こ , これ は リキ が 入っ て いる 1!」 と 驚 
いた だ た ソフト で すか が から 。 

Cà, 締め 切り に 間に合わ な く て 省略 し 
て し まっ た 機能 ちい くつ か あり ます 。 НИ 


の コマ ンド な ど は , ぜひ 欲し い 機 能 な の で 
す が …。 い ずれ 実現 ね きせ る つも り で す 。 
それ は そう と , つい に 新 機種 8801SR, Hi 
まし た ね ーー。 と に カ か KS の の ス ビード 2 
プ は 相当 な も の で , マジ ッ ク ペ イン ト と も 
ベス トマ ッ チ ング で し た 。 あま り 気 に 入っ 
だ の で , ビデ オ を や め て 購入 する こと に し ま 
し た 。512 色 に 対応 し て マジ ッ ク ペ イン ト を 
バー ジョ ン ア ッ プ し た いと 思っ て いま す 。 
な お , 希望 者 が 多けれ ば PC-6000 シリ ー 
ズ 用 の A/D ユン バー タ を 作っ て みょう か 
思っ て いま す 。 で も , 私 は 8 ビット の 味 
方 で すか ら 69801 は パス (実は 9801 を も も っ て 
な いか ら )。 
マジ ッ ク ペ イン ト を 使っ て すばらし い 絵 
が 描け た だ たら, ディ スク に セー ブ し て 編集 部 
に 送っ て くだ さい 。 漢 字 機能 を 使っ て セリ 
フ を 入れ た だ , 1 画面 1 コマ の 6 コマ 漫画 も 
面白 に と 思い ます 。 楽し み に し て いま す 。 
kilos 
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1000 
1010 
1020 
1030 
1040 
1850 
1868 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1178 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1258 
1268 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1418 
1420 
1430 
1448 
1458 
1460 
1470 
1480 
1490 
1508 
1518 
1520 
1530 
1540 
1558 
1568 
1578 


` PROGRAM : Magic Paint 88 ADAPT : NEC PC-8881 with Magic stick 
' FUNCTION: Graphic tool DATE : 01/30/1985 
` VERSION : 2.0 AUTHOR : Atusi Ohsima 


CLEAR .&HD6FF:MOVMEM- &HD788 : CALL. MOVMEM:MOUSE0=&HD74B:CALL MOUSEB 
CLEAR ,&HD6FF:DEFINT A-Z:DEFDBL W 
X=0:Y=0:Z=0:X0=0:Y0=0:X1=0:Y1=0:Z1=0:1=0:J=0:RR=0:H=0:U=0:A$="" 
STICK9=&HD793:STICK1=&HD796:CUSON=&HD799:CUSOFF=&HD79C:ERS=&HD733 
MAG=&HD712:CIR=&HD739:CPSET=&HD724:CLINE=&HD727:BOX=&HD72A:FILL=&HD72D 
MNUEXX=&HD715:MAGEXX=&HD7 1 8: VDSP=&HD79F 
BRG=&HD71E:GREEN=&HD71B:TILSTR=&HD721 

ЅСКОО = &HD739: ЅОЕТ= &HD73C 
CLOAD=&HD73F:CSAVE=&HD742:DLOAD=&HD745:DSAVE=&HD748 
СОМ=&Н4290:СОЕ=&Н428В 

MASK=&HD75B:LAST=&HD77B:DEVICE=&HD752 
B=6:R=6:G=6:C=7:NOY= 1 : М№ОХ= 1 :VT=1 

МАСХ= 504: МАСҮ= 1 30 : МС=7 : РЕ=0 

ОРТ= &Н076В:РОТТҮР= 1 : РОКЕ ОРТ .PUTTYP 
TILE$=STRING$(12,255):TILTBL=&HD75F 

DIM PC$(7):DIM GDX(10) 


SCREEN .2:CONSOLE 0. 25.0,0:С1.5 

LOCATE 0.25 

PRINT TAB(16)"* Velcome to the new world of personal C.G.!!! 
PRINT TAB(18)"This is <<Magic paint 88 Ver.2.055.":PRINT 
PRINT TAB(18)"What's your device? 

PRINT TAB(18)"9:Magic stick 1:Key board 2:Mouse":PRINT 
PRINT TAB(18)"Input 8,1.2 : ": 

FOR 121 TO 15:BEEP 1:PRINT:BEEP 9:NEXT 

LOCATE 32.9:LINE INPUT A$:1-VAL(CA$):POKE DEVICE,I 

ВЕЕР 1:121^1^1:BEEP 0 

GOSUB xMENUINT:KEY 1,"GOTO xMENU8"*CHR$(13) 

СОТО *MENU 


° MENU MODE 


xDUMY 
xMENU8 : GOSUB xMENUEX 
\MENU: GOSUB xBELL 

LOCATE (NOX+(NOY\7 ) x4 ) ж2+63. ( (NOY-1 ) MOD 6)*2*13:CALL CON 
CALL STICK8(X.Y.2Z) 

IF Y>199 THEN Y-198 

IF X>127 THEN X-X-128 

X1=X+512:CALL CUSON(XI , Y) 

ON Z GOTO xCHOOSE.*JUMP:GOTO 1400 
x*CHOOSE 

IF Y<99 THEN GOSUB *COLSET:GOTO «MENU 

а uU» 

X=(X\16)+1:Y=((Y-98)\17)+1:IF X>4 THEN X=X-4:Y=Y+6 
IF Y=8 THEN xVIEWSET 

IF Y=12 THEN «UTILITY 

NOY=Y:NOX=X 

GOTO «MENU 


JUMP サク カ ~ モ ー ト ~ 
GOSUB «MENUEX:GOSUB xBELL:CALL СОЕ 
ON NOY GOTO x*BRUSH,*PENCIL.*CLINE,*BOX, *CCIRCLE, *CPAINT , «BRUSH , «DUMY , *LUPE 


X*GETPUT , *TYPE 


1588 
1598 
1688 
1618 
1628 
1638 
1640 
1650 
1660 
1678 
1688 
1690 
1700 
1718 
1728 
1738 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


#COLSET "ライ ンカ ラー セン タク 
CALL CUSOFF:X=X\16 
IF Ү<57 AND X20 THEN xTILSET 
IF Y<66 THEN *GREEN 
IF Y<85 THEN xPALET 
LINE(C*16*514,88)-STEP(13, 7) , 7, B 
C=X 
LINE(Cx16+514.88)-STEP( 13.7 ) ,1、B 
RETURN 
TILSET "チュ ウ カ ン シ ョ ク セン タク 
LINE(B*16*528, R*8) -STEP(16,8).7.B 
B=X-1:R=Y\8 
LINE(Bx16+528、Rx8)-STEP(16.8).1.B 
CALL BRG(B,R,G) :CALL TILSTR(TILE$) 
X=517:Y=79:X9=572:Y9=82:PORE ОРТ. 1: САШ. FILL(X.Y.X0.Y0): PORE OPT.PUTTYP 
RETURN 
\GREEN: IF X=9 THEN X=8 
LINE(G*164528,58)-STEP(I6.8).7.B 
GzX-1:CALL GREEN(G) y ; 
LINE(Gx16+528.58)-STEP(16.8).1.B 
RETURN 


xPALET 

IF X<4 THEN PFz1:RETURN 

IF Y<76 THEN X=X-4 

IF PF THEN 1900 

TILE$=PC$(X): J=TILTBL 

FOR 1=1 TO 12:POKE J.ASC(MIDSCTILES$.1.1)):J2J*1: NEXT 
GOTO 1740 

PC$(X)=TILE$:PF=9 

Y=(X Y 4) ж8+69:Үб=Ү+6:Х=(Х MOD 4)x16+577:X9=X+14 
POKE ОРТ, 1: СА. FILL(X:Y.X9、Y9):POKE OPT.PUTTYP 
RETURN 


` DRAWING COMMAND 


xBRUSH 

IF NOY=7 THEN NOX=NOX+4:NOY=1 

ON МОХ GOSUB 2000.2010.2020.2030.2000.2050.2060.2060:GOTO 2070 
RESTORE 200U0:RETURN:DATA &H80.0.0.0 

RESTORE 2010:RETURN:DATA &HC0.0.0,0 

RESTORE 2020:RETURN:DATA &H69.&HF9.&H69、9 
RESTORE 2030:RETURN:DATA 8H3C、&HFF .&HFF.&H3c 
RESTORE 2040:RETURN:DATA &HFF.&HFF.&HFF.&HFF 
RESTORE 2050:RETURN:DATA &H40.&HI10.8H80.0 
RESTORE 2969:RETURN:DATA &H11.8H40.8H8.8H21 
FOR I=0 TO 3:READ J:POKE MASK*I.J:NEXT 

IF (NOX>4 AND NOX«8) THEN 2120 


GOSUB «STICK 

IF Z=1 THEN CALL CPSET(X.Y):CALL STICK1I(X.Y.Z):GOTO 2110 ELSE 2100 
GOSUB «STICK 

[FLAC THEN 2128 

CALL CPSET(X.Y):FOR 1=0 TO 199:NEXT:CALL STICKI(X.Y.Z):GOTO 2130 


xPENCIL 
GOSUB *STICK:POINT(X.Y) 
CALL STICKI(X.Y.2):IF Z=1 THEN LINE-(X.Y).C:GOTO 2180 ELSE 2170 


x*CLINE 

POKE LAST.0:GOSUB *STICKB 

CALL STICKI(X.Y.Z):CALL ERS:CALL CLINE(X.Y.X0.Y0):IF Z=9 THEN 2220 
CALL ERS:IF Z=2 THEN xMENU9 

LINEC(CX.Y)-(X0.Y0).C:GOSUB xBELL 

IF NOX<3 THEN 2210 ELSE X0-X:Y0-Y:GOTO 2220 
xBOX 

IF NOX>2 THEN xBOXFILL 

POKE LAST.0:GOSUB *STICKB 

CALL STICKI(X.Y.Z):CALL ERS:CALL BOXCX.Y. XV. Y0):IF 2=0 THEN 2300 
CALL ERS:IF Z=2 THEN xMENU9 

GOSUB xBELL:LINECX.Y)-(X0.Y0).C.B:GOTO 2290 
xBOXFILL 

POKE LAST.0:GOSUB *STICKB:GOTO 2370 

CALL STICKIC(X.Y.Z):CALL ERS:POKE LAST.2:CALL ERS 

CALL BOX(X,Y.X0.Y0):CALL CLINE(X.Y.X0.YU):IF 7-0 THEN 2360 

CALL ERS:POKE LAST.2:CALL ERS:1F Z=2 THEN xMENUÓO 

GOSUB «BELL:CALL FILL(X.Y.X0,Y0):GOTO 2350 


*CCIRCLE 
POKE LAST,0:GOSUB *STICKB 

. CALL ЅТІСКІ(Х,Ү, 2.) : RR-ABSC(CX0-X) *1: IZABSCYO-Y ) $ 1: H2 INTC C256* T )/RR) 
CALL ERS:CALL CIR(X0.Y0.RR.H):IF Z=9 THEN 2430 


CALL ERS:IF Z=2 THEN xMENU9 
W=1/RR:IF W>l THEN RR=W*RR 
GOSUB x*BELL:CIRCLE(X8. YO) 、RR.C、..W:GOTO 2420 


жСРАІМТ 

GOSUB xSTICKB 

IF TILE$=STRING$(12,0) THEN PAINT(X,Y).0.C:GOTO 2500 
PAINT (X,Y),TILE$,C:GOTO 2500 


*LUPE 

POKE LAST.8:GOSUB *MAGEX 

IF MAGY>199 THEN I=&HED:J=&H40 ELSE I=&HC4:J=&HA0 

POKE &HD779,J:POKE &HD77A,I 

CALL STICKI1(X,Y,Z) 

IF X>698 THEN X-688 

IF Y>186 THEN Y=186 

X9=X-1:Y9=Y-1:X1=X+32:Y1=Y+14 

CALL ERS:CALL BOX(X0,Y0,X1.Y1):CALL MAG(X,Y):1F 2=0 THEN 2580 

IF Z=2 THEN CALL ERS:GOSUB «MAGEX:GOSUB xMENUEX:GOSUB 1740:GOTO xMENU 


327 


328 


2640 "カク タイ エリア 


2650 X0-X:Y0-Y:GOSUB *BELL 

2660 GOSUB *DELL j 
2670 CALL STÍCK0(X.Y,Z):1F Z=2 THEN GOSUB «BELL:CALL CUSOFF:GOTO 2580 
2680  X-zINT(X*.52):Y2 INT(Y*.27) : ХІ =МАСХ+Х: ҮІ  MAGY*Y 

2690 CALL CUSON(X1.Y1):1IF Z=9 THEN 2670 

2700 IF Y>12 THEN 2840 

2710 IF X>24 THEN X=(X-28)\14:CALL CUSOFF:LINE(MC*14+528 .MAGY+2 ) -STEP( 12、9) .7、B 
:MC=X:LINE(MCx14+528 、MAGY+2 ) -STEP(12.9) 、9.B:GOTO 2660 

2720. 91095 2* 

2730 H=&HD75F:SCREEN .1 

2740 FOR 1-0 TO 3:Z=128:X1=0:Y1=0:Z1=0 

2750 FOR J=0 TO 7:R-POINT(X0*J.Y0*1) 

2760 IF R AND 1 THEN X1=X1+Z 

2770 IF В AND 2 THEN Y1=Y1+Z 

2780 IF В AND 4 THEN 71=71+7 

2790 ВЕЕР 1:Z=Z/2:BEEP 0:NEXT 

2800 POKE H.X1:POKE H*1.Y1:POKE H*2.Z1:HzH*3 

2810 NEXT:CALL TILSTR(TILE$) 

2820 SCREEN .0:GOTO 2660 

2830 ' RIS 1»^«4vt 

2840 IF X<8 THEN 2890 

2850 X-(X-8)Y4:XlIzXx4:Yz(Y-13) Y4:YlzYx«4 

2860 CALL CUSOFF:LINECMAGX*8*XI . MAGY* 144 Y I) - STEIPC2.2) MHC. BE 
2870 PSET(X9+X、Y9+Y) MC 

2880 СОТО 2660 

2890 7892 4k*^ 

2900 GOSUB xMAGEX:IF MAGY=130 THEN MAGY=0 ELSE MAGY= 130 
2910  GOSUB *MAGEX:GOTO 2560 

2929 

2930 xGETPUT 

2940 POKE LAST、9:IF NOX>2 THEN 3030 

2950 GOSUB x*STICK:X0-X:YUzY:GOSUB «BELL 

2960 CALL STICKI1(X.Y.2):CALL ERS:CALL BOX(X.Y.X0.Y9) 

2970 IF Z-0 THEN 2960 ELSE IF Z=2 THEN CALL ERS: GOTO *MENUO 
2980 GOSUB *BELL:CALL ERS:GX=ABS(X9-X)+1:GY=ABS(Y9-Y)+| 
2990 1!=((GX+7)\8)xGYx3+4:IF (FRE(U)+256)<I THEN BEEP:GOTO 2960 
3000 ERASE GD:DIM GDXCulY2)*1) 

3010 CALL ERS:GET(X.Y)-(X0. Y8) . GD 

3020 '*PUT 

3030  NOX-4 

3040 CALL STICK1(X.Y.Z):CALL ERS:1F Z22 THEN *MENU9 

3050 X0-X*GX-1:1F X05639 THEN X4-639:X-X0-GX«1 

3060 Y0-Y*GY-1:1F Y02199 THEN ҮЙ=199:Ү=ҮИ-СҮ+1 

3070 IF Z=0 THEN CALL BOX(OX.Y.X0 -Y0) : СОТО 3040 

3080 GOSUB *BELL:ON PUTTYP GOSUB 30940.3100.3110.31L20.3130:GOTO 3040 
3090 PUT(X.Y) .GD.PSET : RETURN 

3100  PUT(X.Y).GD.PRESET: RETURN 

3110 PUT(X.Y) . GD. AND: RETURN 

3120 PUT(X.Y).GD. OR: RETURN 

3138  PUT(X. Y) .GD. XOR: RETURN 

3140 ' 

3150 «TYPE 

3160 IF NOX<3 THEN X1=7:X2=632:Y2=192 ELSE ХІ=15:Х2=624:Ү2=184 
3170 POKE LAST.0 

3180 CALL STICKI(X、Y、Z) 

3190 IF Z-2 THEN CALL ERS:CLS:GOTO *MENUD 

3200 IF X»X2 THEN X-X2 

3210 IF Y>Y2 THEN Y=Y2 

3220  X8-X*X1:YU-Y*XI:CALL ERS:CALL BOX(X.Y.X0.Y0) 

3225 IF Z=0 THEN 3180 ELSE GOSUBxBELL 

3230 wTYPING:GOSUB *KEYCLR 

3240  IF*NOX»2 THEN 3360 

3250 "アル ファ ヘット 

3260  I-ASCLINPUT$(I)):IF 1=13 THEN 3188 ELSE I=I+&H100 

3278  GOSUB 3399:X=X+8:IF X>X2 THEN X-X2 

3598 .X9=X47:CALL BOX(X.Y,X0.Y0):GOTO 3260 

3300 CALL ERS:PUT(X.Y) .KANJI CI), OR:PUTCX. Y) . KANJI CI), XOR: SCREEN 1 
3314 IF C AND 1 THEN SCREEN ,..0:PUT(X, Y). KANJI CI) .OR. 

3328 IF C AND 2 THEN SCREEN ..1:PUT(X. Y) .KANJI CI). OR 

3330 IF C AND 4 THEN SCREEN ,.2:PUT(X. Y).KANJICI).OR 

33480 SCREEN 9:RETURN 

3358 * カ ン シ ~ 

3368 CLS:PRINT “カシ コート: 

3370  A$=INPUT$(1):IF A$ く <CHR$(33) THEN 3400 

3380 PRINT A$::LINE INPUT Al$:1=VAL("&H"+RIGHT$(A$+A1$。4) ) 
3398  GOSUB 3399:GOSUB 3420:GOTO 3360 

3400 IF A$-CHR$(13) THEN 3188 

3418 ОМ ASC(A$)-27 GOSUB 3420,3430,3448,3450.3420:GOTO 3370 
3428 Х=Х+16:1Е X>624 THEN X-624:GOTO 3468 ELSE 3460 

3430 Х=Х-16:1Е Х‹@ THEN X=9:GOTO 3460 ELSE 3460 

3448 VY-Y-16:1F Y<9 THEN Y=9:GOTO 3468 ELSE 3460 


345@ 
3468 
3478 
3480 
3498 
3500 
3518 
3528 
3538 
3548 
3550 
3568 
3578 
3580 
3598 
3680 
3618 
3620 
3630 
3648 
3658 
3660 
3678 
3680 
3690 
3700 
3718 
3720 
3730 
3748 
3750 
3760 
3778 
3780 
3798 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4118 
4120 
4130 
4140 
4158 
4160 
4178 
4188 
4198 
4200 
4218 
4220 
4238 
4240 
4250 
4260 


Y=Y+16:IF Y>184 THEN Y=184:GOTO 3460 
X9=X+15:Y9=Y+15:CALL ERS:CALL BOX(X,Y,X9,Y9) : RETURN 


*V I EWSET 

CALL COF:CALL CUSOFF:GOSUB #MENUEX 

IF X=1 THEN VT-3 ELSE IF X-2 THEN VT-2 ELSE VT=1 
CALL STICK8(X,Y,Z):X2 INT(X/3.95):Yz2 INT(Y/13) 

IF VT=1 THEN Y=9:X=INT(X/4) 

IF VT-2 THEN X=INT(X/1 .33) :Y=INT(Y/1.4) 

CALL VDSP(X,Y.VT) 

IF Z=9 THEN 3510 ELSE IF Z=1 THEN GOSUB xBELL:GOTO 1570 
GOTO *MENU0 у 
xBELL 

ВЕЕР 1:1=1^1^1:ВЕЕР 9 

CALL STICK1(I,J.Z):IF 2=0 THEN RETURN ELSE 3600 


wKEYCLR: IF INKEY$<>"" THEN 3620 ELSE RETURN 


xSTICK 
CALL STICK1(X,Y,Z):IF Z=9 THEN CALL CUSON(X.Y):GOTO 3650 
CALL CUSOFF:IF Z-1 THEN RETURN ELSE RETURN *MENUO 


xSTICKB 

CALL STICK1(X,Y,Z):IF Z=9 THEN CALL CUSON(X.Y):GOTO 3698 
CALL CUSOFF:IF Z=2 THEN RETURN xMENUO 

X9=X:Y9=Y:GOSUB *BELL: RETURN 


\MENUEX 
SCREEN .1:CALL CUSOFF :CALL MNUEXX:SCREEN .9:RETURN 
\MAGEX 
SCREEN .1:CALL CUSOFF :CALL MAGEXX(MAGX . MAGY ) : SCREEN 、9:RETURN 


' メニ ュー ヒョウ シ ~ 

\MENUINT:'OUT (104).0 

CONSOLE ..9.9:COLOR 9.,.7 

SCREEN 0.1:CALL MNUEXX 

VIEW(512.9)-(639.199): CLS 3 : LINE(1.0)-(639,96).7.BE 
G=9:CALL GREEN(G) 

FOR R=9 TO 6:FOR B=9 TO 6 
X=Bx16+529:Y=RX8+1:X9=X+14:Y9=Y+6 

CALL BRG(B.R.G) :CALL FILL(X、Y.X9、Y9) 

NEXT: NEXT 

I=0@:Y=59:Y0=65 

FOR G=0 TO 6 

X=Gx16+529:X9=X+14 

CALL BRG(CI.1.G):CALL FILLCX.Y.X0.Y0) 

NEXT 

LINE(I6.58)-STEP(16.8).1.B 

PUT(6,0),KANJI C&HI IC), PSET. 1,7: PUT(6.8D0) , KANJI (&HI 42) . PSET. 1.7 
PUT(6,40).KANJI (&H152) , PSET.2.7:PUT(6.48) . KANJI C&HI IF) . PSET.2.7 
PUT(6.59).KANJI C&HI 47) . PSET. 0.7 
LINE(4,69)-STEP(57.14).0.B 
LINE(0.86)-STEP(I27.0).0 

FOR 1=0 TO 6:LINECIX*16*2,89)-STEPCI2.5). 1. BF: NEXT 
LINE(114.88)-STEP( 14、7 ) 、1 .B 

FOR 1=0 TO 7:PC$(CI)-STRING$(12.0) 

IF I AND 1 THEN В=6 ELSE B=9 

IF I AND 2 THEN R=6 ELSE R=9 

IF І AND 4 THEN G=6 ELSE С=0 

CALL BRG(B.R.G):CALL TILSTR(CPC$CII) 
NEXT:B=6:R=6:G=9 

1=9:FOR Ү=0 TO 1:FOR X=9 TO 3 
LINE(Xx16+65.Yx8+69)-STEP(14.6) , I. BF 

1=l1+1:NEXT :NEXT 

ув 

LINE(1,98)-(127.199), . BF: COLOR ..,0 
LINE(63.115)-(64.199).、B 

FOR Y=9 TO 5:LINE(9、Yx17+114)-STEP( 127、9) :NEXT 
RESTORE *COMNAME 

Y=106:X=-5 

FOR 1=1 TO 12:READ A$ 

FOR J=1 TO LEN(A$) 

PUT(X+Jx8、Y ) .KANJI (8&H199+ASC(MID$(A$.J、1 ) ) ) 、PSFT 、1 .7 
NEXT:YzY*17:1F Y»200 THEN Ү=106:Х=59 

NEXT 

*COMNAME 

DATA Brush,Pen,Line、Box、Circle、Paint 

DATA -.View,Lupe.Get Put.Type,Utility 


'P4u» 392" 


829 


330 


4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4358 
4360 
4370 
4380 


. 


**Brush 
LINE(9,103)-STEP(1,0) 

CIRCLE(23,103),1:PAINT STEP( 9 .8 ) 
CIRCLE(39,103),3:PAINT STEP(0.0) 
CIRCLE(55,103).5:PAINT STEP(0,0) 

РЅЕТ (71,103) 

СІВСІЕ (87,103) .3 

СІВСІЕ (103, 103) ,5 
CIRCLE(119.103),5:CIRCLE(119.103).2 

'xPen 

LINE(5,120)-STEP(4, -2):LINE-STEP(5.0) :LINE-STEP(16,4):LINE-STEP(8. 0) : LINE-S 


TEP(8, -5):LINE-STEP( 4.0) : LINE-STEP(7.6) 


4399 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4918 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5068 
5070 


'*Line 4 

LINE(7.133)-STEP(22,5) 
LINE(48,134)-STEP(12, 10) : LINE-STEP(-10.8) :LINE-STEP(8, -8) 

`wBox d 
LINE(8.150)-STEP(15.5)..B:LINE(39.150)-STEP(15.5)., BF 

"*Circle 

CIRCLE(48.171).8 

‘Paint 

LINE(58.186)-STEP(-5.5):LINE(50,186)-STEP(5.5) 
CIRCLE(58,192),5,,3.14,6.28:PAINT STEP(Q,0) 

`wView 

LINE(70.117)-STEP(4,2),.B 

LINE(83.117)-STEP(10.5)..B 

LINE(188.117)-STEP(23.10).,B 

'«Lupe 

CIRCLE(105,137).8:LINECII1, 140) -STEP( 18.5) 

"*Getput 

LINE(72,150)-STEP(15,6)..B. 8H5555:LINE(107.150)-STEP(15.6)..B 
LINE(91,153)-STEP(12.0):LINE(I01.152)-STEP(-4.-1):LINE(101.154)-STEP(-4.1) 
A$-"abc カン " 

FOR Х=1 TO 6:PUT(Xx8+62.166 ) 、KANJI(8&H199+ASC(MID$(A$、X、1 ) ) ) 、PSET 、 0. 7: NEXT 
LINE(85,187)-STEP(20.0):LINE(101.186)-STEP(-4.-1):LINECIOL.188)-STEP(-4. 1) 


"カク タ ~ イエ リア 

VIEW(MAGX 、139 ) -(639.199) 

CALL MAGEXX(MAGX . MAGY ) 

COLOR ..7:CLS 2 

LINE(1.1)-STEP(135.11).. BF:LINE(38,12) -STEPCILO) .0 
LINE(1.14)-STEP(5.53)..BF:LINE(1.69)-(135.69) 

FOR 1=0 TO 7:LINE(Ix14«*25.3)-STEPCIO. 7). 1. DF: NEXT 

LINE STEP(1.1)-STEP(-12.-9).0.B 

PUT(3.3) .KANJI CBHI54) . PSET: PUT( 1 .3) . KANJI.CRHI AC) 、PSET 

РОТ (0, 18). KANJI CBHI IE) . XOR 

PUT(0.56).KANJI C&H11F).XOR 

CALL MAGEXX(MAGX . MAGY ) 

SCREEN 0.0:VINDOU(O.0)-(639.199) : VIEU(0.0)-(639.199): COLOR T f. 
WIDTH 89、25:X=9:Y=9:CALL VDSP(X.Y,VT) 

RETURN 

' ユーティリティー 

UTILITY 

F=9:CLS:GOSUB xMENUEX : SCREEN ,3 

PRINT TAB(20):"Magic paint 88 Ver2.9 Utility screen" 

PRINT "r"STRING$(77."—")"4" 

PRINT "I" TAB(78) "h" 

LOCATE 2.3:PRINT "B Screen dsp ( on/off ) 

LOCATE 2.5:PRINT "W Hardcopy 

LOCATE 2.7:PRINT “Ш Save to tape 

LOCATE 2.9:PRINT "Bi Load from tape 

LOCATE 2.11:PRINT "B Save to disk 

LOCATE 2.13:PRINT "B Load from disk 

LOCATE 2.15:PRINT "B Files ( 1 21 5 
LOCATE 26.3:PRINT "B Drawing option С PSET .PRESET. AND . OR .XOR 1 
LOCATE 26.5:PRINT "W Device"TAB(43)"[ Magic stick. Key board. Mouse ] 
LOCATE 26.7:PRINT "B Chr color"TAB(43)"[ 0 1 2 34 5 6 7 ] 

LOCATE 26.9:PRINT "B Clear screen"TAB(43)"[ 9 1 23 4 5 6 7 TILE ] 
LOCATE 26.11:PRINT "B ScrolltTAB(43)"L left rigl. uP down ] 
LOCATE 26.13:PRINT "B Soft focus"TAB(43)"[ B-R-G G-R-B ] 

LOCATE 26.15:PRINT "B Quit"TAB(43)"[ ж ] 

PRINT "ヒー イエ" STRING$(75,"—") "4|"; 

PRINT " ©” STRING$(76."—") "2" 

FOR Y=3 TO 15:LOCATE 8.Y:PRINT"I";:LOCATE 78.Y:PRINT"11";:NEXT 
CONSOLE 18.7:CLS 

CALL STICKQ(X.Y.Z):1F Z=2 THEN CONSOLE 0.25:CLS:SCREEN ,9:GOTO xMENUÓ 
X=INT(X/3.5)+2:Y=INT(Y/12) 

LOCATE X.Y:CALL CON:IF Z-0 THEN 5040 

IF Y<3 OR Y>15 THEN 5040 


5080 IF (Y*1) AND 1 THEN 5040 

5090 Y9=(Y-3)\2+1:IF X525 THEN IF X45 THEN 5040 ELSE Y0-Y0*7 

5100 GOSUB «BELL 

5118 ON ҮЙ GOSUB *DSP.*HC.*ST,x*LT,x*SD.xLD.*FL.xDO, xDV, *CC, *CS, xSC, жЕ, «QUIT 
5128 GOSUB *BELL:GOTO 5040 


5140 *DSP 
5150 IF F THEN SCREEN ,3 ELSE SCREEN .1 
5168 F=NOT F:RETURN 


5180 xHC 
5198 COPY 2 
5288 RETURN 


5220 *ST 

5230  CLS:PRINT "Type file name:";:GOSUB *KEYCLR:LINE INPUT A$ 
5248 PRINT "Set recorder then hit [RETURN]"; 

5258 IF INPUT$(1)<>CHR$(13) THEN CLS: RETURN 

5260 PRINT:PRINT "Now saving..."; 

5278 OPEN "cas1:" FOR OUTPUT AS #1: PRINT #1 ,А$: СІ ОЅЕ 

5280 CALL CSAVE:CLS:RETURN 


5300 Т 

53180  CLS:PRINT "Set recorder then hit [RETURN1"; 

5320 GOSUB xKEYCLR:IF INPUT$(1)<>CHR$(13) THEN CLS: RETURN 
5330 OPEN "cas1:" FOR INPUT AS #1:INPUT 41.A$:CLOSE 

5348  PRINT:PRINT "Found: "A$ 

5350 PRINT " ...Ok?"; 

5360 IF INPUT$(1)<>CHR$(13) THEN CLS: RETURN 

53780  PRINT:PRINT "Now loading..."::SCREEN 、9 

5380 CALL CLOAD:CLS: RETURN 


5408 *SD 

5418 CLS:PRINT "Drive No.? (rA 12 Ден 

5420 CALL STICK0(X,Y.Z):1F Z=2 THEN RETURN 

5430  X=X\128:D=X+1:LOCATE 15+Xx2.18:CALL CON 

5440 IF Z-0 THEN E420 

5450 GOSUB *DIR 

5460 LOCATE 49、19:PRINT "Type file пате: ": 

5470 GOSUB *KEYCLR:LINE INPUT A1$:A1$-A1$*STRING$(9.0) 

5480 LOCATE 49、21:PRINT "Select saving position." 

5490 CALL STICK0(X.Y.Z):1F Z=2 THEN RETURN 

5500  Y=Y\43:LOCATE 21.18*Y:CALL CON i 
5510 IF Z=0 THEN 5490 ELSE SCREEN.1 : D=D-1:CALL DSAVE(D.Y) 
5520 Al1$=LEFT$ も $(A1$.9)+STRINGS( 2 、9 ) 

5539  X=VARPTR(#9)+8:FOR 1=1 TO 11:POKE X+Yx16+I、ASC(MID$(A1$、! 、1) ) :NEXT 
5540 DD+1 :DSKO$ D.1.18.1 

5550 POKE Х+1.&НС1:05КО$ D.1.18.14 

5560 CLS:RETURN 

5570 ' 

5580 р 

5598 CLS:PRINT "Drive No.? 「 55s 

5600 CALL STICK0(X.Y.Z):lF Z=2 THEN RETURN 

5610  X=X\128:D=X+1:LOCATE 15*X*2.18:CALL CON 

5620 IF Z=9 THEN 5600 

5630 GOSUB *DIR 

5640 LINE(95.182)-STEP(20.0) 

5650 LINE -STEP(-J4.,-2):LINF STEP(CU.8) -STEP(CA4.-2) 

¿| 5660 CALL STICK@(X.Y.Z):IF Z=2 THEN RETURN 

£x 5670  Y=Y\43:LOCATE 21、18+Y:CALL CON 

і 5680 IF Z-0 THEN 5660 ELSE SCREEN .1:DzD-1:CALL DLOAD(D.Y):CLS: RETURN 


pin 5708 *DIR:CLS:PRINT "Drive":D:"contains" 

5718 A$=DSKI$(D.1.18.1) 

5720 FOR 1=0 TO 5:LOCATE 20.18+1:РКІМТ I:":"; 

5738 Al$=MID$(A$、Ix16+1、1) 

5740 IF А1$=СНЕ$(@) OR А1 $=СНЕФ( 255) THEN PRINT"--------- " ELSE PRINT MID$(A$.I 
*16*1.9) 

5750 NEXT: RETURN 


5770 *FL 
5780 IF X414 THEN I=1 ELSE I=2 
5790  CLS:FILES I:RETURN 


5810 xDO 
5820 X=X-45:X=X\6+1:POKE OPT.X:PUTTYPzX: RETURN 


5840 +#СС 

5850 IF X559 THEN RETURN ELSE X=X-45:IF X AND 1 THEN RETURN ELSE X=X/2 
5860 IF X-0 THEN CONSOLE ,..8:X-2:ELSE CONSOLE ...l 

5870 COLOR X:CONSOLE 9、25:CLS:RETURN 4820 
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*DV 
IF Х<56 THEN I=0 ELSE IF Х<66 THEN 1=1 ELSE I=2 
POKE DEVICE.I:RETURN 


*CS 

SCREEN .1 

IF X>59 THEN X=0:Y=0:X0=639:Y0=199:CALL.FILL(X.Y.X0.Y0):SCREEN .2:RETURN 
X=X-45:IF X AND 1 THEN RETURN ELSE Х=Х/2 
LINE(0.0)-(639.199).X.BF:SCREEN .2:RETURN 


*SC 
IF X264 THEN RETURN ELSE X=X-45 
X2XY5*1:CALL SCROOL( X ) : RETURN 


*SF 
IF X<45 OR X559 THEN RETURN 
IF X<51 THEN X=1 ELSE X=2 
CALL SOFT (X) : RETURN 


»QUIT ** (EYEE S" (コン マ ) の 区 別 が 
IF X<>45 THEN RETURN < v. 3 ¿= 
SCREEN 8.1:CONSOLE 8.25:CLS し に くい よう で す が ピ リオ ド の ある 行 は 
LOCATE 35.19:PRINT "Good bye!" 1230, 1240, 2680, 3510 (3.95 の と ころ 

END 


の み ), 3530, 4820, 5050, 5260, 5350, 
5370, 5410, 5480 (position. の と ころ 
の み ), 5590 の 各行 で す 。 


: +2 +3 +4 +5 +G +7 +8 +9 +A +B +C +D +E 
D700 : сз BD D7 сз 13 08 сз 27 D8 сз CE D7 C3 D3 D7 
D719 : D2 DE сз D8 ру сз DD ш 7 C3 E7 D7 C3 
b728 : DF СЗ GI DF C3 FB ро CJ GC DA CJ GF DB сз OB 
ризи : C3 41 DC CJ BD DE C3 F4 EB C3 GE DE ЄЗ ES DE 
D740 : F8 DF сз 35 EM сз 93 EU CJ 68 EM CJ D9 09 СЗ 
D758 : D7 C9 81 99 99 99 99 8и 80 ий 01 3C FF FF 3C 
D760 : ЕЕ ЕЕ FF FF FF FF FF FF FF FF FF 01 WI ие 99 

H дө ви өө ви си ви VA зе EE ви ие ве ий 
ве ве 99 ви OU ов ио OO UO 00 ие 0A 
99 00 80 си Ее ғи FB CC се си ив ив 
10 00 11 QU 11 99 11 44 11 44 55 AA 
77 DD FF FF FF FF 55 22 55 22 
11 99 80 01 VA 04 ED BO C3 92 
CD EC D7 IF 88 CD EC D7 22 80 
EC D7 28 88 CD EC D? 2R 80 F3 
E 89 Оз 7M ЕЗ 7 ЗЕ 22 99 
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РС- 8801 


1984 年 7 月 掲載 


本 誌 6 月 号 ベーシック, BASIC で も 
解説 る きれ て いた よう に , PC-8801MKII で 
は CMD TURTLE な どの 拡張 命令 が 使え 
る よう に な っ た 。CMD SING 以外 の 命令 
は その まま PC-8801 で も 使え を る の で , この 


潜伏 中 の Oh! PC 工作 
班 が 実際 の 製作 を 担当 
し た 。 近々 , Oh! PC T. 
作 班 も 復活 を 予定 。 お 
楽し み に 。 


CMD SING 命令 も 使え る よう な 簡単 な ボリ (編集 部 ) 
ー ド を 紹介 し ょ う 。 谷 崎 る きん の 投稿 を 元 に , 
{EAE des А 


必要 ソフ ト と し て 


ハー ド 製 作 に 加え , 
PC-8837-2W 
を 用 意 し て くだ きい 。 こ れ は PC-8801MKII 
model20, 30 付 属 の シス テム ディ スク て 定 
価 7, 000 円 で 別売 9 し 


ジス テム ディ スク 


最寄り の NEC マ イコ 
WE AIT 0 < 
C CITAS 

な お , PC-8801MKII 
model10 付 属 の テー プ 
は 別売 り し て いま せん 。 


PC-8801MKII 用 の 拡張 命令 CMD 
SING を PC-8801 で も 使用 で きる よう に , 


ボー ド を 作り ます 。 初 
心 者 は Oh! PC に 掲載 
る ね れ て いた だ "PCIE 
AFT の 83 年 5 月 号 を 
参照 し て くだ きい 。 


工作 入門 


今回 作る ボー ド は 写真 の よう に , 3 個 の 
ШОИРА ux トランジスタ が ] 個 
ずつ , それ に 抵抗 2 個 と いう シン プル な 構 
БСУ 
өзк=гтн 

И ЛСТ, REI, = x 2*, 
2 ジグ カ 3 の 4 ば いい でしょ よう 。 


カッ タダ 
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人 必要 な 部 品 
表 1 を 参照 し て くだ 
きい 。 


な お , 初心 者 の 場合 


ト の 工具 の ほか に 配線 
用 の 0.3 ミ リ 単 志 の リ 
ー ド 線 を 必ず 買っ て 〈 
だ きい 。 1 メー トル あ 
れ ば 大 丈夫 。 


с IMEEM 

15174 1574, LSI75 で も 可 時 価 

тї. 15139 LSI39 C t =] А 

15 27 c LS22 32 4 

Pa Hes LS27 用 | 個 458 

lec LSI74, LSI39 用 各 | 個 50 円 
IK ШЕ) 3H 

E * 419 キロ オー ム で は な い の で 注意 10A 

電解 コン デン サ 47/FD 耐圧 は 25V ほ どの も の 50 円 

トラ ンジ スタ T ciais 汎用 C^ タ イプ トラ ンジ スタ な ら 可 30 一 50 円 
も セラミック コン デン サ 0.0! 一 0.022F 程度 の も の 20 円 
ge Re y PC-880I 用 | PC-880| 用 ユニ バー サル 基板 2,000—4,800F3 
* オ ー デ ィ オ 出力 用 に は , お 手持 ちの オー ディ イオ に 合わ せ た プ ラグ と コー ド が 必要 で す (た と ぇ ! 
ば ミニ プラ グ な ど )。 スピ ー カ ー 出 力 の 場合 , ス ピー カー ユニ ッ ト が 必要 で す 。 プ ザー も 同様 。 
表 1 部 品 表 


図 1 


SEN MEN UY zo Nl p 


PC880| 用 ユニ バー サル ボー ド ー ナ ザー- (オプ ショ シ ) 
nido で @. 


Г 99^ 
セラ ミッ ゥ ッ ク 


ШЕ түл E L 


IBI ソケット 
(ブザー A: As. 回 路 図 を 参照 し て くだ さい 。) 


部 品 配置 図 


WM 12345678 
КОРУ Л ES sq OW 


ユニ バー サル 基板 裏面 


-- ا 
ボ ー ド は 高価 な の で 自作 の ボー ド に つけ 足し も 可能‏ * 
ネ * ボ ー ド の 裏表 は スロ ッ ト に 差し 込ん で 実際 に 確かめ め て くだ さい‏ 
図 2 配線 図 ( 面 より )‏ 


⑧ 部 品 の 購入 先 

最寄り の パー ツ シ ョ ッ プ 。 東 京都 近郊 の 
人 は 秋葉 原 の パ ー ツ 専門 店 , 大 阪 近郊 の 人 
は 日 本 橋 に 専門 店 が 多く あり ます が TTL 
に 関し て は , あら か じ め 電 話 で 在庫 確認 を 
する の が 無難 で し ょ う 。 
人 @ 部 品 の 配置 

部 品 の 配置 図 を 図 1 に 示し まし た 。 配線 
図 (012), 回 路 図 ( 図 3) も 参照 の 上 , Bu 
線 を まち が えな いよ うに て くれ で れ も 注 意 し 
CO e 

詳細 な 工作 上 の テク ニッ ク に つい て は こ 
こ で は 述べ ませ ん が , ハー ド 工 作 の 場合 , 
ショ ー ト な ど で 本 体内 の 故障 を 誘発 する 危 
険 が あり ます 。 配線 は くれ ぐれ も まち が を え を 


(1) r 枠 内 代用 例 (7) 


Рае Саса کے‎ 


B20 


on ыйын GE ha Saa: 


枠 内 代用 例 


5655 
(3) 庄 電 素 子 
SOUND 
OUT 
圧電 ブザー | SOUND 


(5)LSI74 の 代用 LS74 


図 3 回 路 図 


(6)LSI74 の 代用 LSI75 


ҮП) 


な いよ うに 。 今回 は と くに TTL の 挿入 方 
向 と 電源 部 (GND) へ の 入出 力 に 気 を つけ 
ОТ 6) 


ポ ボード の 挿入 


PC-8801 の 拡張 用 スロ ッ ト 1 に 完成 し 
た ボー ド を 

い 場 合 は ミニ プラ グ を オー ディ オ の 入力 端 
+S EDA TC Ç だ さい 。 


使用 方 法 


® © Rp ME 


3mó 


(7)LSI39 の 代用 L S138 


LS27 Pin6 


PC-8801 の 電源 を 入れ , PC-8801MKII 
の 拡張 命令 パッ ケー ジ を 立ち 上 げ ま す 。 デ 


ィ ス ク で は 
RUN `@load,n8@” Q 
T cx 
load `@ ех” @ 
RUN Q 


で す 。 こ れ で CMD SING 命令 が 使 を る よ 
うに な り ま す 。 
書式 は , た と えば 
CMD SING “X 0 T12005L 8” 

の よう に な り ま す 。 書 式 の 内 容 に つい て は 
表 2 を ご らん くだ きる い 。PC-8801MKII の 
ユー ザー ズ マ ニュ アル 15-11 か ら 15-14, お 
ょ び よ び BASIC リ ファ レン スマ ニュ アル 4 
-4, 4-5 に も 掲載 され て いま す 。 


CMD SING 命令 を 使う た め に 必要 最低 
限 の シス テム と いう こと で , 今回 の ボー ド 
に な り ま し た が , 欲 を いえ ば トー ンコ ント 
ロー ル や AY-3-8910 な ども つけ 加え て , 
* モ ッ キ ン ボ ー ド ” に 負け な い シ ステ ム に 
し だ くも な り ま す 。 腕 に 自信 の ある 人 は ト 
э АЕС IE eos 

欲 の な い 人 , 工作 の 苦手 な 人 で も , 拡張 
パパ ッッ ケー ジ どる え あ れ ば な ん と か 音 は 出せ ま 
す 。 こ の ボー ド を 梅 コ ユー ス と し た ら 6, ЖЬ 
竹 に 当たる コー ス で す 。 参 考 ま で に ご 紹介 
ВЕ 622-205 

久松 コー ス 


“@exst” O 0DEE1H を 80H か ら 20H に 
変更 し ます 。 ポート 40H の ビッ ト 7 を ON/ 
OFEF に し て いた だ の を 、 ビ ッ ト 5 に 変更 する 
わけ で す 。 

ポー ト 40H の ビッ ト 5 内 蔵 プ が ザー, つま 
り ビ ー プ 音 の 制御 を し て いて , ビッ ト 5 が 
1 な 6 ВЕЕР ON, 0 な 6 BEEP OFF で 
+. この 方 法 で は , ВЕЕР 音 と CMD SING 
の 音 が 混じっ て バー スト 状態 に な り ま すか 
6, 音質 は 非常 に 落ち ます 。 音 階 が 聞き と 
れる 程度 で す が , ハー ド な 改造 な し で 手軽 
СТА Е ISIC UES 
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⑧ 竹 コー ス 


CMT コネ クタ か ら 信 号 を 出し て , PC- 
8801 外部 の 装置 に 接続 。 こ れ も 簡単 な 工作 
が 必要 で す が , 信号 を CMT コネ クタ か ら 
取り 入れ る 形式 な の で 本 体 が 壊れ る 心配 の 
な いと いう 点 で 初心 者 向き か も し れ ま せん 。 

ここ で も , `@exst” O0EFIH # 80H 2° 

ら 40H に 変更 し ます 。 こ れ は , I/O ポー ト 
40H の ビッ ト 6 が ユー ザー 用 出力 と し て 
CMT コネ クタ の 8 ピン に 出力 制御 し て い 
る た めで す 。 回 路 例 を 図 4 に 示し て お きま す 。 


以上 が 私 の 試み た 松 一 梅 コー ス で す が , 
要する に PC-8801MKII の 1/O ポー ト の 
40H の 第 7 ビッ ト に パル ス と し て 出 て いた 
音 の 信号 を PC-8801 に 合わ せ て コン トロ 
ー ル し て や れ ば いい わけ で す 。 な ぉ , CMD 
SING 命令 $ ぉ イマ イチ 使い に くい ぃ ので, РС 
-8801 ユー ザー の みな さん に ミュ ー ジ ッ ク 
エディ タ の 自作 , 投稿 を 望み ます 。 

な お , I/O && 6 月 号 な ど に いく つか 同種 
と わり 


の 工作 が 発表 きれ て いる こと を お こ 
し て お きま す 。 


6 1IC の 電源 配線 
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書式 
CMD SING “ サ プ コ マン ドス トリ ング ” 
+ 

f: CMD SING *Тп Опіп Rn(.) С” 
CMD SING 


*X0T10004 L4RP8(CDEF GAB) 
* テン ボ ホ 100 で この 譜 を 8 回 繰り 返す 


テン ポ の 設定 。 VUPUUEDUIEYXEIC NET uTTIEYRSUOTT] 
指定 する 。 


オク ター プ を 設定 する 。 n の 値 と C 一 B で 演奏 する オク ター プ の 対応 は 次 の と お り 。 


n=3 n=4 n=5 n=6 


音符 , 休 符 の 長 さ の デフ ォ ル ト 値 を 設定 する 。 n の 値 で 何 分 音符 ( 休 符 ) か を 指定 する 。 


п= 1 п=2 n=4 n=8 п=16 п=32 

в, ДЕЈ. e RS 
$85 29815 4 分 音符 8 分 音符 16 分 音符 32 分 音符 

- = 1 7 3 3 
全休 符 2 分 休 待 4 分 休 符 8 分 休 符 16 分 休 符 32 分 休 符 


R[n][・] | ミ n 全 32 | М, n の 値 で 休 符 の 長 さ を 指定 する 。 指 定 の 方 法 は L コ マン ド と 同じ 。 省 略し た 場 

合 は [コマ ンド で 指定 し た 値 と する 。 符 点 休 符 に は ” . "(ビリ オド ) を つけ る 。 
С-В I <n S255 | 音符 。C 一 B て で 音符 を 指定 する 。“+" で 半音 上 が り , “-" で 半音 下がる 。 
+ 
[2:92 J 0 コマ ンド で 指定 し た オク ター プ 

C+ D+ F+ G+ A+ 
E TEE 

n の 値 で 音符 の 長 さ を 指定 する 。 符 点 音 符 に は " . "(ピリ オド ) を つけ る 。 

Xn n= 0 また は | テキ スト 画面 の 表示 を 制御 する 。X0 で テキ スト 画面 を 消し , XI で も と に も どす 。 澄 ん 
n= I だ 音 を 出す と き は 最初 に X0 を 行う 。 

RPj[…] I < j <255 | […] を j 回 繰り 返す 。 ネ ステ ィング は 8 レベ ル ま で 。 


(コマ ンド は 小文字 で も 可 ) 


表 2-2 


CMT コ ネ ク タ 
8 ビン 


ry 


š ЛЫ кез ДД Hg چا کا‎ #Е У 


IOK-2 


VR(IOV : 100g くらい) 


or: d 


ゲー ム ブ ログ ラム 集 


1983 年 5 月 号 -1984 年 3 月 号 


1984 年 3 月 号 SPACE NOVA・3D フ ライ トゲ ー ム 


望月 敬三 
1983 年 5 月 号 さい ころ ゲー ム 


小林 正弘 


SPACE NOVA‘ 


at 


PC-8801 


ZH NE 


E — O o 


ライ トゲ ー ム 


1984 年 3 月 掲載 


大 迫力 の 3D 
OO — ——— 


は じ め に 
о з 


みな さん の 8801 は お 元気 で すか ? 私 は 
仕事 で 使う こと が 多い の で す が , あの 
ГТАМАКА の フラ イト シミ ュ レ ー タ 」 を 
RC, PC-8801 で も , 3 D の リア ル タ イ ム 
ゲー ム を 作り た く な っ た の で す 。 3 D グ ラ 
フィ ックス の 部 分 に は 少々 目 を つぶ っ て も , 
リア ル タ イ ム で 操作 で きる こと を 目標 に 作 
り ま し だ た 。 や ぜひ, お 試 じ て だ さい: 


ゲー ム の 説明 


ゲー ム の 遊び 方 

写真 1 の よう な 画面 が 表示 され ます 。 NO 
VA の コッ クビ ピット で す 。 左側 が スク リー ン で 
中 央 に ター ゲッ トス コー フ ' が つい て いま す 。 
この スコ ー プ の 男 囲 内 に 敵 衛星 を 捕え て , 
ビー ム 砲 を 発射 する わけ で す 。 
ビー ム 和 砲 発射 は 図 1 の よう に スペ ー ス バー 
を 使い ます 。 オ ー ビ タ ー の 操縦 は テン キー 
の 8 , 2 , 4, 6 で 上 昇 , FE, 右 旋回 , 左旋 
回 で す 。 コ ンピュータ に よる 軌道 航行 シス 
テム (Orbital maneuvering system) で す 
か ら 簡 単 で す 。 ス ピー ドア ッ プ , ダウ ン に 
は カー ソル 移動 キー| 1|, [1] を 使い ます 。 

敵 衛星 (ター ゲッ ト ) は 距離 に 応じ て З 
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次 元 的 に 表現 きれ て いま す 。 ビ ー ム 砲 が タ 
ー ゲ ッ ト に 達する 時 間 も , 距離 に 比例 し ま 
す 。 で すか 65, ターゲット を スコ ユー プ の 中 
央 に と ら え だ た と き に ビー ム 砲 を 発射 し た と 
し て も , ビー ム 砲 が が わき され て し まう 場合 
も あり ます 。 タ ー ゲ ッ ト が 移動 し て いる と 
き に は , 中 央 に くる 少し 手前 で . ビー ム を 
発射 し て くだ きい 。 と いっ て も 日 で いう ほ 
ど 簡 単に は 当たり ませ ん 。 

敵 衛星 か ら の 反撃 も , も ちろ ん あり ます 。 
距離 が 遠い 場合 は ,NOVA の 防衛 シス テム 
で 防げ る の で す が , 近 距 離 に な る と スク 
リー ン ? の 下方 に DANGER と 表示 きれ ま 
Fo ここ で 逃げ る か , 敵 衛星 を 破壊 し な い 
と ダ メー ジ ポ マ 代 ジジ S ト AVM の SS も 5 て 。 
NOVA の スピ ー ド は 最低 の 20( 絶 対 ス ピー 
F) に な り , ター ゲッ ト の 方 は 最高 速 で 逃 
げ て ゆき ます 。 ダ メー ジ 5 で ゲー ム 終 了 で 
す が , 地球 を 17 周 し て 打ち 上 げ 地 点 に も ど 
っ て くる と ダメ ー ジ が 1 つ 減 り ま す 。 


キー 操作 の ポイ ント 


ビー ム を 左手 , その ほか の 操作 を 右手 で 


で きる よう に , キー を 配置 し まし た 。 

ST, ビー ム 砲 は 1 回 発射 する と , 連続 
し て 発射 は びき ませ ん 。 こ れ は エネ ルギー 
補充 の 時 間 で す 。 バー を 押し 続け る と 一 定 
間隔 で 自動 発射 し ます 。 

スピ ー ド 調整 は 絶対 スピ ー ド 20 一 90 の 範 
囲 で 可能 で す 。 敵 衛星 と の 相対 スピ ー ド を 
0 に する の が コツ で す ざ スピ ドー ド を 上げ 
ぎる t, すぐ 攻撃 党 炉 て じまい ます 。 

上 昇 , 下降 キー (8, 2) は 一 般 の 操縦 杏 
の 感覚 と は 逆 に な り ま す が , ター ゲッ ト の 


フィ ックス が リア ル タ イ ム で 展開 


動き と キー 操作 が 一 致す る は ず で す 。 ここ 
TIMMA CASAT знг SCR 
時 入力 が で きま す 。 (た と えば |4 | と |8| と | 1 
ЖЕ) まな た [MW| コ ィ ンド は 一 時 ゲー ム を ス 
[екан ыт くだ さい 2 
ム を 再開 する に は RETURN キー を 押し 
d dn 


画面 左下 に SPEED と DIST, 近い ター 
ゲッ ト の 相対 スピ ー ド と 距離 が 表示 きれ ま 
す 。 タ ー ゲ ッ ト が 見 あたら な いと き に は , 
絶対 スピ ー ド と 中 離 31.500 を 表示 し ます 。 
NEAR RADER 

ター ゲッ ト が 1 機 の と き は 必要 が な い の 
で す が , 2 機 の と き に は 常に 近い 方 の ター 
ゲッ ト を 表示 し ます 。 遠く に いた ター ゲッ 
ト の 方 が 近づい た と き に は , 表示 対象 が そ 
ちら の 方 に 変わ り ま す 。 
DISTANT メー ター 

画面 右 下 の SPEED と DIST は 2 機 の タ 
ー ゲ ッ ト が 現れ て いる 場合 に , 遠い 方 の 相 
対 ス ピー ド と 距離 を 表示 し ます 。 1 機 の と 
き は , 絶対 スピ ー ド を 表示 し ます 。 

MAP 

日 本 近く の 打ち 上 げ 地 点 か ら 東 90 度 の 方 
向 に 発射 され , 円 軌道 上 を 飛行 し て いる オ 
ー ビ タ ー の 航跡 を と シミュ レー ト し た も の で 
す 。 高 度 10000 メ ー ト ル で 飛行 し て いま す 。 
軌跡 は キー 操作 で も ズレ ませ ん が , RITE 
度 に は 対応 し て いま す 。 
DANGER 

NEAR メー ター の DIST が 12,500 以 下 


に な る と , ター ゲッ ト か ら の 攻撃 が 避け に 

く 《《 な り ま す 。7000 前 後 を 目安 に し て くだ 

さき い 。 

DAMAGE 

攻撃 きれ て 受け た ダメ ー ジ の 数 を 示し ま 

す 。 前 に 述べ た よう に , 打ち 上 げ 地 点 ま で 

も どっ た と き に は 1 か 所 修理 され た と いう 

こと で ダメ ー ジ が 減り ます 。 

デー ム オ ー バ ーー 
раа PROS A 

の モー ド が あり ます 。 

© 前 と 同じ ゲー ム が 再 ス ター ト し ます 。 

実行 し た と き と 同 じ 状態 で ど ス ター 
ト し ます 。 打 ち 上 ば げ 地 点 に も どる ま 
で は ター ゲッ ト は 1 機 , その あと 2 
機 に 増え ます 。 

2| 1 周回 れ な い 人 , ある に は ター ゲッ 
F 1 つ で は た りな い 場 合 に 使用 する 
キー で 最初 か 6 2 機 で て きま す 。 


プロ グラ ム の 打ち 込み 方 法 


ファ イル の 数 が 全部 で 7 本 に な っ て いま 
す 。 リ スト 1 一 7 を 順に 打ち 込ん で くだ さる 
い 。 と くに カセ ッ ト の 人 は 必ず 順番 を 守っ 
て さだ る kk。 BERET DDI ERIE 
る お それ が あり ます 。 


まず , 8801 の スイ ッ チ を 入れ た と き の , 

How many files (0 ~15) ? 
に は 必ず 

0 Q 

と し て くだ さい 。 以後 の チェ ッ ク サ ム お よ 
び 実 行 時 も 同様 で す 。 た だ , RETURN 
キー を 押し た だ け で は , リス ト 7 の ファ イ 
ル が 入力 で きま せん 。 

d INO 

CALL A 
は バグ 取 り が 完全 に 終わ る まで は , 

GOSUB * CALL A 

ELT, ディ スケ ッ ト の 保護 し て 《 だ さき 
い 。 それから , 全部 打ち 終え たら, 必ず バ 


ッ ク ア ッ プ を と っ て (Sau ЭО ES 


Vt RCC; 
How many files (0—15)? 
に 


Q 

Cum ДИСӘ; 
また だ, DISK BASIC の バー ジョ ン に よっ 

т, リス ト 2 の 一 部 を 次 の よう に 変更 し て 
ぐだ さい 。 
© PC-8834-2W AUGUST  ePC-8837-2W 
e PC-8884 は すべ て 

1350 CLEAR,&HB29F,160 
(8 イン チ を つない だ と き は 必ず 8 インチ 
の ディ スク BASIC АГЗЫ St) 


前 に 述べ まし た よう に , 必ず リス ト 1 か 
ら 6 順に 打ち 込ん で くだ きい 。 


まず , テー プ を 3 本 用 意 し ます 。 lH 
に チェ ッ ク サ ム プ ログ ラム , 2 本 目 を デバ 
ッ グ 用 , 3 本 目 を メイ ン テ ー プ に する と い 
いで し よう 。 228 E 0 35 AC XXE 
ェ ッ ク を 完全 に し て か ら , 3 本 目 に リス ト 
順に セー プ す る わけ で す 。 こ の と き , プロ 
グラ ム セ ー ブ は 十分 に 問 を と っ て , 頭 出し 
が 科 単 に びき る よう に し て くだ さい 。 あと, 
ベリ ファ イ は 十分 に 行い , 打ち 込ん だ 苦労 
が ムダ に な ら な いよ う 注 意 し まし ょ 2 う 。 

また , テー プ 版 の 方 は 以下 の 注意 を し て 
くだ きい 。 
変更 点 
① リ スト 1 の 一 部 を リス ト C-1 ЖЬ 


TU 
Е@Ж X CX X XX) 


に 


L 


A red ИШ ШО c 
ввавввавевававай 


CIPRO n пасат 


еве! 7 


OOD OHS 


A 


ray 


図 1 


1984 年 1 月 23 日 , 日 本 初 の 実用 放送 衛星 
「BS-2」 が 打ち 上 げ ら れ た 。 上 空 3 万 6 千 キロ 
の 空間 に , 2 枚 の 太陽 電池 の 翼 を 広げ た 現代 の 
“ペガサス ” で ある 。 

83 年 暮れ に は 「 ス ペー ス ・ シ ャ トル 」 に 乗り 
組む 日 本 人 スタ ッ フ の 募集 が 行わ れ た 。 

12 歳 の 少年 , 星 夫 が 宇宙 飛行 士 に な る こと を 夢 
見 た と し て も 不思議 は な い 。 

HRD, 映画 「 ラ イト ・ ス タッ フ 」 に 
よっ て きら に 強まっ た 。 ア メリ カ の 宇宙 飛行 二 
の 第 1 期生 7 人 (グレ ン , シェ パー ド な ど ) を 
主人 公 に し た ドラ マ で ある 。 

そし て , ある 夜 …。 

スク ラン ブル ! の 赤い マー ク が , パネ ル 上 
で 点 減 し て いる 。 

「 ま た 掃除 屋 か 

ホシ オ は つぶ や き な が ら , 緊急 発進 用 の フラ 
イト デッキ , PC-843 に 向かっ た 。 


1990 年 代 に な り , 国際 衛星 機構 が で きる まで 


SPACE NOVA DREAM | 


に 各国 が 競っ て 打ち 上 げ て いた 軍事 衛星 は , 衛 
星 機構 の 成立 に と も な っ て 大 部 分 回 収 さ れ た 
が , コン トロ ー ル で きず に 放置 され た 衛星 が 軌 
道上 に 残り 。 スペ ー ス シャ トル の 航行 を おび や 
PETENS 

衛星 機構 が 軍事 衛星 破壊 用 に 開発 し た の が , 
1 人 乗り タイ プ の オー ビタ ー “スペ ー ス ・ ノ フッ" 
で ある 。 指向 性 の 粒子 ビー ム を 備え た スペ ー 
ス ・ ノ バ を 操縦 する スタ ッ フ は 各国 空軍 の テス 
ト パ イ ロ ッ ト か ら 6 選抜 きれ た 精鋭 で ある 。 ホ シ 
オォ も ハー バー ド 基 地 で の 1 年 間 の 訓練 を 終え 
“スペ ー ス ・ ノ フ マ に 配属 きれ た の だ 。 
MR US 2 š т” 

カウ ント ・ ダ ウン の 習慣 は まだ 残さ れ て い 
る 。 

“у” 

白島 に た と えら れ て いる “スペ ー ス ・ ノ ンマ 
の ホワ イト ・ セ ラミ ッ ク 製 の 機体 が 空 に 舞い 上 
が っ た 。 
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2 の 一 部 を リス ト C-2 に 変更 し て くだ さる 
い 。 


リス ト 1 を 実行 する と , 自動 的 に リス ト 
2 が 読み 込ま れ ま す 。 
@ ROLL — CLS 2 
③ リ スト 2 で は 
A-&HX*XX*x--CALL A 
| 
DEF USR0= & H x x x x 
…A=USR 0 (0) 


④ レ ァイル ディ スク リプ タ に デバ イス 名 と 
GT 
CAS : 
を 入れ て 《 だ さい 。 
Pil : RUN "NOVA" 
— RUN 'CAS:NOVA" 
- プログ ラム ・ セ ー プ の 方 法 
リス ト 1 一 7 は それ ぞ れ , 次 の ファ イル 
名 店 セ モ そし で くだ るい 。 
テー プ 版 の 方 は 前 項 の 注意 を 参照 し て く 
だ きい 。 
リス ト 1 
SAVE "NOVA. N88" 
リス ト 2 
SAVE "NOVA. BLD" 
リス ト 3 
ВЅАУЕ“СНК 1”, &HBDF0, &H1410 


写真 1 NOVA の コッ ク ピ ッ ト 


= DANGER 


ター ゲッ ト が 近く な る と 表示 され る 


リス ト 4 

BSAVE'LIN.2", &HB500, &H6C0 
VATS 

BSAVE"RDR.3^, &HCFD0, &H220 
リス ト 6 

ВЅАУЕ“МАР.4”, &HBAEO, &H430 
リス ト 7 

BSAVE'MAIN.5", &HB2A0, &H1010 


チェ ッ ク タク サム 


リス ト 8 と し て チェ ッ ク サ ム の プロ グラ 
ム を つけ まし た 。 プン ジン 語 び チチ デック ば 
RESEN Ub IU. 
サム は 縦 , 横 そ れ ぞ れ の 単純 す サム で , 7 
ドレ ス は 計算 し て いま せん 。 す で に , 同形 
式 の チェ ッ ク サ ム プ ログ ラム を お ぢ 持ち の 方 
は , 
CLEAR, &HB29F 
を 実行 し て ぉ 使い くだ きい 。 こ れ で , out 
of memory に な っ た と き に は , 
CLEAR, &HB29F, 200 
くら 6 いで 実行 し て くだ さい 。 それで も エラ 
ー に な る よう な ら , リス ト 8 の プロ グラ ム 
を 使っ て くだ きる い 。 も ちろ ん , チェック サ 
ム プ ログ ラム を 持っ て いな い 人 は 最初 か ら 
リス ト 8 を 打ち 込ん で 《 だ きい 。 


サム の 使い 方 


① CLEAR, &HB29F 
(初回 ど だ け で けっ こう で す ) 
© BLOAD パフ ァイル 名 / 
@ RUN 
な お , プリ ンタ を 持っ て いる 人 は 用 紙 の 
ミシン 目 の す ぐ で 下 の と ころ に , プリ ンタ の 
ヘッ ド を 合わ せ て くだ さい 。 


ゲ が oo みみ の スタ エト . 


ST, 打ち 込み が 終わ り , サム の 確認 , 
オー プン ファ アイ 贅 数 が 0 で あぷ こら (テー 
プ 版 の 変更 点 な どい まま で 書い た 注意 点 が 
まち が いな いと 確信 し た ら , 

RUN "NOVA. N88’ Q 
EEK 

テー プ の 人 は 

RUN "CAS: NOVA. N88’ Q 
C d 
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[ Distant J 
Speed 


お わり に 
к а 


る て , SPACE NOVA は ぉ 楽し みい た だ 
76 で に よう か が 7 FRIESE 


id, 同一 軌道 を 飛ぶ オー ビタ ー が 敵 オ 
TEATEIL う と ログ ント エン ジン を 
噴射 し て 加速 する と , 現実 に は 離れ て し ま 
いま す 。 こ の ゲー ム で は 近づく こと と し ま 
し た 。 ま た だ , ビー ム 砲 が 命中 し て も , 数 パ 
ー セ ント の 確率 で 撃墜 びき な いこ と が あり 
3e cq 8, 

縦 400 ド ッ ト の ディ スプ レン レイ (PC-8853 
ほか ) で この ゲー ム を する と , 絵 の 動く ス 


くつ か 気 に な る 点 が あり まし た の で , 書い 
て お きま す 。 


ビー が お る を く な っ て し まい ます 
マシ ン 語 の 勉強 の つも り で 組ん だ 


а 
“1 NOVA.N88 | 
д “83/12/30 | 
*| K.MOCHIZUKI | 
人 


Г 


CLEAR ,&HE500 
DEFINT 4-0,Q-Z 
CONSOLE ,,0,1 
COLOR 4,,0 
WIDTH 80,25 
CLS 


Р=3.14159 
FOR I-0 ТО 7 
COLOR=( I , I) 
NEXT 
COLOR=(3, 1) 
SCREEN @,@ 
OUT &H51,0 : "ーー つつ 

GOSUB xTILING 

GOSUB xSTITLE 
RESTORE xNDATA 

GOSUB xNOVA 

RESTORE xPLNDATA 

GOSUB xNOVA 

GOSUB xTCHI 

WIDTH 80,25 : ‘ーー 

LOCATE 9,24:PRINT °> Push Апу Кеу" ; :_ОСАТЕ 0,0 
D$-INKEYS:IF D$-'' THEN 1290 
GOTO xGSCREEN 

xSTITLE 

FOR 1=1 TO 12 

POINT(52,12) 

CIRCLE STEP(I,00,40,1, .4, 
POINT(42,37) 

CIRCLE STEP(I,0),43,1, 
NEXT 

xP 

FOR I-1 TO 8 
POINT(120,50) 

CIRCLE STEP(I,02,30,1, 1.4, 
POINT(91,29) 

CIRCLE STEP(I,0)2,30,1, 
POINT(123,34) 

CIRCLE STEP(I,0),30,1, 
POINT(190,36) 

CIRCLE 5ТЕР(І,0), 23,1, , , ・45 
POINT(190,35) 
CIRCLE STEP(I,0),25,1, , 
POINT(235,34) 
CIRCLE STEP(I,0),20,1, 


4.7, 3 


2.8, 3 


2.8, 2 
4.4, 5.8, 2 


3.6, 2.1, .4 


351; 


SPACE NOVA 作成 中 の 失敗 談 だ どけ で 1 
民 の 本 が で き を そう で す が , アル ゴリ ズム を 
し っ か り 組 み 立 て て ゆけ ば マシ ン 語 と いっ 
て 恐れ る こと は な いと 感じ まし た 。 

まだ まだ 8801 の 能力 を 使い きっ た と は い 
えま せん が , スピ ー ド 感 の 出る よう 苦心 し 
Tu 

最後 に , Oh!PC834£ 1 月 号 に 掲載 され 
た 弓 寺 一 光 氏 の 「 超 高速 画面 クリ アル ー チ 
ン 」 を 使わ せ て いた だ きま し た 。 弓 寺 氏 に 
お 礼 を 申し上げ ま す 。 
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1520 POINT(258,35) М 
1530 CIRCLE STEP(I,0),25,1, .3, 5.9, .4 

1540 POINT(329 , 39 ) 

1550 CIRCLE ЅТЕР(І,0),22,1, 4.4, 3.2, .22 
1560 LINE (2984*1,302-(298*1,39),1 

1570 POINT(323,39) 

1580 CIRCLE STEP(I,00,25,1, 3.1, 5.8, .2 

1590 NEXT 

1600 RETURN 

1610 xNOVA 

1620 BEEP 1 

1630 READ S,C,X,Y 

1640 ВЕЕР 9 

1650 IF X<100 THEN xNEND 

1660 IF S=0 THEN PSET (X,Y),C+CM 

1670 IF S=1 THEN LINE -(X,Y),C+CM 


1680 IF S-2 THEN READ R,PS,PE,PH:CIRCLE (X,YO,R,C,PS,PE,PH 
1690 IF S-3 THEN READ K:IF K<8 THEN PAINT (X,Y),C+CM,K+CM ELSE READ D:K-K-8:PAIN 


T (X,Y),C$(D),K 
1700 GOTO xNOVA 
1710 xNEND 
1720 RETURN 
1730 xTCHI 
1740 BEEP 1 
1750 CIRCLE (799.,539 ) , 1999 ,5 

1769 BEEP 9 

1779 RETURN 

1780 ' 

1790 xGSCREEN 

1800 CLEAR ,&HE300 

1810 DIM C$(3) 

1820 SCREEN ,2 

1830 CLS 

1835 LOCATE 5,5:PRINT "<<< WAIT >>>"; 

1840 ROLL 197?:ROLL З 

1850 SCREEN 0,0 

1860 GOSUB xUAK 

1870 GOSUB xTITLE 

1880 GOSUB xLD 

1890 GOSUB xEXPL 

1900 RUN 'NOVA.BLD' 

1910 END 

1920 “ 

1930 xUAK 

1940 WINDOW (9,9)-(639,199 ) 

1950 COLOR ,,1 

1960 CLS 

1970 LOCATE 5,5:PRINT "<<< WAIT >>>°; 

1980 COLOR S:LOCATE 54,5:PRINT "= By K.MOCHIZUKI 
1990 COLOR 4:LOCATE 0,0 

2000 COLOR-(1,1) 

2010 COLOR=(2,1 ) 

2020 COLOR=(3, 1 ) 

2030 COLOR=( 4 。2 ) 

2040 COLOR=(5,5 ) 

2050 COLOR-(6,6) 

2060 COLOR=(7,2 ) 

2070 LINE (9,1)-(395。198 ) , 3,B 

2080 LINE (7,3)-(392,194),3,B 

2090 LINE (0,198)-(7,194),3 

2100 LINE (395,198)-(392,194),3 

2110 PAINT (2,25,5,3 

2120 PAINT (199,196),4,3 

2130 LINE (396, 0)2-(639, 59 ) , 4,B 

2140 LINE (396,30)-(640, 305,4 

2150 PAINT (499,2),6,4 

2160 LINE (396, 512-(640,120)2,4,B 

2170 LINE (396,121 )-(639, 199 ) , 4 ,B 

2180 LINE (397,147)-(638,147),4. 

2190 PAINT (400,122)5,3,4 


="; 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


RETURN 
xTITLE 
CM=1 
WINDOU (230,140)-(620,199) 
VIEW (425,5)-(620,27?) 


RESTORE 


XNDATA 


GOSUB xNOVA 
SCREEN 90,0 


RETURN 
xEXPL 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


12, 8:PRINT 
16,10:PRINT 
16,11:PRINT 
16,13:PRINT 
10,15:PRINT 
16,17:PRINT 
16,19:PRINT 


*p Key List =H" 


"C^] Speed ЧР" 
"ГУЗ Speed DOWN" 
"Е85 Head UP" 


‘Ead ШЕРТ C6J RIGHT 


"上 2] Head DOWN" 
"ESpace] FIRE" 


A=&HF889:B=&H1E:POKE А,В 
A=A+120 :В=&Н1Р:РОКЕ А,В 


RETURN 
xLD 
FOR I=0 TO 11 


LINE (421,152*1*4)-(508,152*Ix4),3 
LINE (42141x8,152)-(421*Ix8,196),3 


NEXT 


COLOR 4:LOCATE 0,0 


RETURN 

XNDATA 

DATA 0,2,230,140 
DATA 1,2,256,140 
DATA 0,2,238,140 
DATA 1,2,238,199 
DATA 0,2,230,199 
DATA 1,2,256,199 
DATA 0,2,248,199 
DATA 1,2,248,140 
DATA 0,2,247,140 
DATA 1,2,301,199 
DATA 0,2,249,140 
DATA 1,2,303,199 
DATA 9,2,248,149 
DATA 1,2,302,199 
DATA 1,2,302,140 
DATA 0,2,294,140 
DATA 1,2,320,140 
DATA 0,2,312,140 
DATA 1,2,312,199 
DATA 0,2,294,199 
DATA 1,2,320,199 


DATA 3,2,240,142,2 
DATA 3,2,305,142,2 
Š 9] 


=== É 
DATA 0,2,350,140 
DATA 1,2,340,145 
DATA 1,2,340,194 
DATA 1,2,350,199 
DATA 1,2,405,199 
DATA 1,2,415,194 
DATA 1,2,415,145 
DATA 1,2,405,140 
DATA 1,2,350,140 
DATA 1,2,350,199 
DATA 0,2,405,199 
DATA 1,2,405,140 


DATA 3,2,345,145,2 
DATA 3,2,410,145,2 


De UE 

DATA 0,2,425,140 
DATA 1,2,456,140 
DATA 0,2,433,140 
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2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3569 
3570 


3590 
3600 
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3580 “ 


DATA 1,2,472,199 
DATA 0,2,462,199 
DATA 1,2,495,199 
DATA 0,2,445,140 
DATA 1,2,484,199 
DATA 1,2,518,140 
DATA 0,2,509,140 
DATA 1,2,527,140 
DATA 0,2,485,199 
DATA 1,2,519,140 
DATA 0,2,486,199 
DATA 1,2,520,140 
DATA 3,2,442,144,2 
'-- CAJ 

DATA 0,2,515,199 
DATA 1,2,532,199 
DATA 0,2,522,199 
DATA 1,2,550,140 
DATA 0,2,523,199 
DATA 1,2,551,140 
DATA 0,2,524,199 
DATA 1,2,552,140 
DATA 0,2,542,140 
DATA 1,2,572,140 
DATA 9,2,552,140 
DATA 1,2,595,199 
DATA 0,2,588,199 
DATA 1,2,616,199 
DATA 0,2,607,199 
DATA 1,2,564,140 
DATA 0,2,532,178 
DATA 1,2,580,178 
DATA 3,2,560,142,2 
DATA 9,9,9,9 
XPLNDATA 

^ --- BODY UNDER ----- 


DATA 0,3,302,109 
DATA 1,3,398,102 
DATA 1,3,368,102 
DATA 1,3,398,097 
DATA 1,3,510,091 
Lc fiim BODY UP 
DATA 0,3,309,108 
DATA 1,3,320,105 
DATA 1,3,330,100 
DATA 1,3,336,098 
DATA 1,3,386,092 
DATA 1,3,450,089 
DATA 1,3,510,091 
^ ---- LEFT WING FRONT === 
DATA 0,3,398,102 

DATA 1,3,430,102 

DATA 1,3,460,103 

DATA 1,3,510,106 

K... LEFT MING END ---- 
DATA 0,3,498,109 

DATA 1,3,531,105 


DATA 1,3,498,098 
DATA 1,3,455,099 
DATA 1,3,488,095 
DATA 1,3,474,093 
DATA 2,3,490,098,6,0,1.8,0.5 
< ーーーーー RIGHT WING FRONT --- 
DATA 0,3,386,092 
DATA 1,3,406,087 
DATA 1,3,416,081 


RIGHT WING END 
DATA 0,3,410,077 
DATA 1,3,435,075 


4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


4280 
4290 


447,082 
418,086 
451,085 
463,089 

3650 DATA 2,3,448,084,3, 5.7 , 1.8 , 0.7? 

3660 | === TAIG ペテロ ニー デ 

3679 DATA 0,3,470,090 

3680 DATA 1,3,486,085 

3690 DATA 1,3,495,079 

3700 DATA 1,3,510,077 

3710 DATA 1,3,500,091 

32720 (“s---r COCKPIT GES 

3730 DATA 0,3,321,105 

3740 DATA 1,3,336,104 

3758 DATA 1,3,339,101 

3760 DATA 1,3,329,101 

つの 9。 さ スミ ーー モデ エー で PAINT AGG- 

3780 DATA 3,6,498,101,11,2 

3790 DATA 3,6,435,079,11,2 

3800 DATA 3,4,448,090,11,0 

3810 DATA 3,5,508,078,11,2 

3820 DATA 0,0,0,0 

3830 xTILING 

3840 RESTORE xTDATA 

に に た 1 roc COLOR 8 

3860 TD-54 

3870 GOSUB xTILREAD 

3880 C$(0)-T$ 

3999 ^ -——-——m COLOR 1 

3900 TD- 

3910 GOSUB xTILREAD 

3920 C ま (1 )=T$ 

230 ニュー ニョ COLOR 2 

3949 TD=6 

3950 GOSUB xTILREAD 

3960 C$(2)-T$ 

3970 RETURN 

3980 xTILREAD 

3990 T$-'"' 

4000 FOR I-1 TO TD 

4010 READ D$ 

4020 DT$-CHR$(VAL C" &H' +0%) ) 

4030 T$-T$*DTS$ 

4040 NEXT, 

4050 RETURN 

4060 xTDATA 

4070 DATA FF,00,FF 


DATA FF,08,F? 
DATA FF,80,7F 
DATA FF,44,BB 
DATA FF,22,DD 
DATA FF,49,B6 
DATA FF,AA,55 
DATA FF,00,AA 
DATA FF,55,AA 
DATA FF,6B,94 
DATA FF,B6,49 
DATA FF,DD, 22 
DATA FF,BB,44 
DATA FF,DD,22 
DATA FF,F7,98 
DATA FF ,7F ,80 
DATA FF,FF,00 
DATA FF,FF,00 


DATA FF,55,AA 
DATA FF,AA,55 
0,0,0,0 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1140 
1150 
1160 
1170 


1180 °“ 


1190 
1200 
1210 
1220 
1230 


1240 * 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


1130 x 


L83/12/07?1 
| K.MOCHIZUKI | 


CLEAR ,&HB4FF 

DEFINT A-Z 

CONSOLE ,,0,1:COLOR 4 
SCREEN 0,80 

GOSUB ※INBL 

END 


BLOAD 'MAP.4" 
А=&НВАЕ@ 

CALL А 

POKE &HBAEA, &H5D 


CLEAR ,&HB29F 

A=&HB2A9 

BLOAD "MAIN. 5" 

LOCATE 5,5:INPUT ">> Hit RETURN Key !',D$ 
IF D$-2'N' THEN END 

CES 

GOSUB *SCP:CALL A 


COLOR 4 :* 123456789012 [GRPH]+ 

LOCATE 19, 9:PRINT ' の Qx xU 
LOCATE 19,10:PRINT ` у 
СОСАТЕ 19,11:PRINT © — eeu ЧГ 


$ ZZ ZZ 
LOCATE 19,12:PRINT ç 
LOCATE 19,13:PRINT | 
LOCATE 19,14:PRINT ° = =$ 17 Аж *5 

COLOR 6:LOCATE 56,15:PRINT STRING$(20,CHR*(&H890 ) ) 

LOCATE 55,16:PRINT ' 4"; 

COLOR 4:PRINT ` Damage : Limit 4'; 

COLOR 6:PRINT " Ҹә" :° == SPC ラ 1 ケイ ルル 

LOCATE 55,17:PRINT "М; 

COLOR 2:PRINT SPC(17?); 

COLOR 6:PRINT ' 4" :' -- SPC э 1 7 イル ル 

LINE (446,143)-STEP(160,0),6 

COLOR 4:LOCATE 55,4:PRINT 'HI-SCORE 90'; :.' SEES 

LOCATE 58,5:PRINT 'SCORE вө“; to SELEN 

COLOR 4:1 0САТЕ 10,22:РВІМТ "e" STRING$(12,"—"); '—';STRING$(C14, '7'); "s ° 
LOCATE 9,23:PRINT "4| "iLOCATE 23,23:PRINT "11":LOCATE 39,23:PRINT A 
COLOR 3:LOCATE 12,23:PRINT 'Speed ';:COLOR 4:PRINT * 00"; :” SPC 1 5 
COLOR 3:LOCATE 27,23:PRINT 'Dist';:COLOR 4:PRINT ° 00900 `;: SPC 1 P 
COLOR 6 

LOCATE 10,21:PRINT SPC(30); 
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1689 LOCATE 54,18:COLOR 4:PRINT "Near Radar" 

1690 LOCATE 67,19:COLOR 6:PRINT "С Distant 2" 

1700 LOCATE 70,20:COLOR 3:PRINT 'Speed' 

1710 LOCATE 7?2,21:COLOR 4:PRINT `00` 

1720 LOCATE 70,22:COLOR 3:PRINT `Dist' 

1730 LOCATE 79,23:COLOR 4:PRINT '00000" 

1740 RETURN 

1750 xCALLA 

1760 CONSOLE 0,5 

1770 CLS 

1780 LOCATE 3,2:1NPUT ">> 7“427 / 79 Э 7795 Hit RET Key !',0$ 
1790 CLS 

1800 CALL A 

1810 LOCATE 3,4:INPUT ">> テ " ィ スク Э Set 595 Hit RET Key !',D$ 
1820 CLS 

1830 CONSOLE 0,25 

1840 RETURN 


テー プ を 使用 する 場合 は , リス ト | の 一 部 を リス ト C- | に , 
リス ト 2 の 一 部 を , C- 2 に 変更 し て くだ さい 。 


1900 A$-'LOAD '*CHR$(&H22)* "CAS :NOVA .BLD "+CHR$( &H22 ) +СНЕФ( 13) + RUN " +CHR$( 13 ) 
1901 FOR 1=1 TO LEN(A$) 

1902 POKE &HEFD8*I,ASC(MID$(CAS$;I,1)) 

1903 NEXT 


1904 POKE &HEFCD,LEN(A$)-1 
1905 POKE &HEFCE,31 


1130 xINBL 

1140 ° --------------- 
1150 GOSUB «TAPERD 
1160 DEF USR-&HBDFO 
1170 A=USR(9 ) 

1180 ' --------------- 
1190 GOSUB xTAPERD 
1200 DEF USR-&HB500 
1210 A-USR(0) 

1220 DEF USR=&HB699 
1230 A=USR(9 ) 

1240 ° ---------------- 
1250 GOSUB xTAPERD 
1260 DEF USR=&HCFD9 
1270 A-USR(O) 

1280 ° -—— 
1290 GOSUB *TAPERD 
1300 DEF USR-&HBAEO 
1310 A-USR(0) 

1320- POKE &НВАЕА, &Н50 
1330 A=USR(0) 

1340 で 3 に つ に モー ニュ ーーー ュ ーー 
1350 CLEAR ,&HB29F 
1360 DEF USR=&HB2A9 
1370 GOSUB xTAPERD 
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138@ 
1390 
1400 
1410 
1420 
1430 


1750 
1760 
1770 
1780 
1790 


LOCATE 5,5:INPUT °>> Hit RETURN Key !',D$ 
IF D$2'N' THEN END 

CLS 

GOSUB xSCP:A-USR(0) 

CLS 

RETURN 


XTAPERD 
CONSOLE 0,4 :CLS А 
A$-' mon ' «CHR$( 13) € "R'`+CHR$(13)+CHR$(2)+"CONT'+CHR$(13) 
FOR 1=1 TO LEN(A$) 
POKE &HEFD8«I,ASC(MIDS(CAS,I,1)) 
NEXT 
POKE &HEFCD,LEN(A$)-1 
POKE &HEFCE,31 
STOP 
CLS:CONSOLE 0,25 
RETURN 


SC ШИ cene : 
: ЗЕ Wan C8B@ : 
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349 


350 


um sb 2 
(n арР га EU 


n 
70 


351 


352 


Sum : SD 62 B5 69 69 BS 6B 69 Aé 7B 69 85 75 64 96 66 : 83 


ей “83/12/27 | 
n K.MOCHIZUKI | 


Мај 22. ЗЕ ра 2М872288. 


CLEAR ,&HB29F , 200 
DEFINT A-Z 


TI$=">> START- &H & & --> END= &H & &' 


xST 

INPUT "> FILE NAME -',FIL$ 

INPUT `> START ADRESS =&H`,STADR$ 
INPUT "> END ADRESS =&H',EDADR$ 
INPUT `> 1 LINE ? 8 or 16 -',G 

IF G=9 THEN G-16 

6126-1 

PRINT 

INPUT '»» PRINTER ? (Y/N) =`,PR$ 
INPUT ">> ALL or SUM ONLY ? (A/S) -',AS$ 
INPUT `> SURE ? (Y/N) =`,DM$ 

IF DM$-'N' THEN xST 


LK=9 :FK=1 
ST-2VAL(C"'&H' *STADR$) 


ewe] 


1250 ED-VAL('&H' *EDADR$) 

1260 * 

1270 PRINT 

1280 IF PR$-'Y' THEN LPRINT USING TI$;HEX$(ST),HEX$(CED) :LPRINT :LPRINT “FILE NAM 
E = ';FIL$;SPC(5); PAGE-' ;FK:LPRINT :LPRINT 

1290 PRINT USING TI$;HEX$(ST),HEXS$CED) : PRINT 
1300 FOR ADR-ST TO ED STEP G 

1310 ADRS$-RIGHT$( "0000 ' -HEX$CADR) ,4) 

1320 SUM=9 

1339 SH=INT(ADR/256 ) 

1349 SL=ADR AND 255 


1369 IF PR$-2'Y' THEN LPRINT USING'& & : ";ADR$; 
1379 PRINT USING'& & : ';ADR$; 
1380 FOR I-0 TO 61 

1390 D=PEEK( ADR+1 ) 

1499 DT$-RIGHT$('00'«HEX$(D),2) 

1410 50М=50М+0 

1420 IF AS$-'S' THEN xSUMNEX 

1430 IF PR$="Y' THEN LPRINT USING '&& ';DT$; 
1440 PRINT USING '&& ';DT$; 
1450 xSUMNEX 

1460 NEXT 

1470 ALSUMS-RIGHT$("'00'*HEX$(SUM) , 2) 

1480 IF AS$-'S' THEN GOSUB xSMONLY:GOTO xADRNEX 
1490 IF PR$-'Y' THEN LPRINT USING ` : &&';ALSUMS$:GOSUB xTOF 
1500 PRINT USING ° : &&';ALSUM$ 


1510 xADRNEX 

1520 D$-INKEY$:IF D$4»'' THEN FOR I=1 TO 2:0$-INKEY$:I-1-(D$4»'"):NEXT 
1530 NEXT 

1540 IF PR$-'Y' THEN LPRINT:LPRINT CHR$(&HC); 

1550 END 

1560 xTOF 

1570 LK=LK+1 

1580 IF LK-50 THEN LK-0:FK-FK*1:LPRINT CHR$(&HC); :LPRINT “FILE NAME = ';FIL$;SP 
C(5);'PAGE-';FK : LPRINT:LPRINT 

1590 RETURN 

1600 xSMONLY 


1610 IF PR$-'Y' THEN LPRINT USING '&& ° SALSUMS ; 
1620 PRINT USING '&&';ALSUM$ 

1630 RETURN 

1640 xXN 


1650 LL-0:FK-FK*1:LPRINT CHR$(C&HC); 

1660 xPFILE 

1670 LPRINT ‘file name = ';FIL$;SPC(4);'page-';FK : LPRINT 
1680 RETURN Š 
1690 “ 

1700 *LSUM 

1710 LPRINT $ТЕ1Мб$(61,°-') 

1720 LPRINT ' Sum : `; 

1730 FOR J-0 TO 15 

1740 LPRINT USING'&& ';RIGHT$('00' *HEX$(SCJ)),2)2; 

1750 NEXT 

1760 LPRINT USING" : &&';RIGHT$('00'*HEX$(AS) , 2) :sLPRINT 
1770 RETURN 

1780 * 

1790 xPSUM 

1800 PRINT STRING$(61,'-') 

1810 PRINT ' Sum : '; 

1820 FOR J-0 TO 15 

1830 PRINT USING'&& ';RIGHT$('0Q' *HEX$(SCJ)2,2); 
1840 NEXT 

1850 PRINT USING’ : &&';RIGHT$('0Q' +НЕХФ(А5),2): PRINT 
1860 FOR I-0 TO 15:S(1 )=9:NEXT:AS=9 

1879 RETURN 


リス ト 8 に, プリ ンタ を 使用 し な い 場 合 は , リス ト P-|, 
使用 する 場合 は リス ト P- 2 を 打ち 込ん で くだ さい 。 


DIM SC15) 

^ ===- Dw ト ———- 
S(I)=S(I)+D 

AS=( AS+SUN) AND 255 

IF SL=&HF9 THEN GOSUB xP. 


18085 DIM S(15) 
1350 “° -——— Jab ==== 


1415 S(I)=S(I)+D GOSUB «LSUM 


GOSUB xPSUM 
* ---- Вә ---- 
IF SL=&HF@ THEN GOSUB «LSL 


1465 AS=(AS+SUM) AND 255 
1505 IF SL=&HF9 THEN GOSUB xPSUM 
1545 GOSUB xPSUM 
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2 人 で 遊ぶ よ ゲ ー ム シリ ー ズ ・ き いこ ろ ゲ 


КАТ ES 


遊び 方 は 簡単 。 準 備 と し て タイ トル 表示 
Dik, 2 人 の 名 前 を 入力 し ます 。 の を 押し 
TAAS PT To 
この 先 は GO か STOP の どちら 6 か を 選 


ぶ だ け で す 。GO を 選べ ば サイ コロ が 振ら 
n, 出 た 目 の 数 が 得点 と な り ま す 。 た だ し , 
1 の 目 が 出る と 得点 は 0 に な っ て し まい ま 
す 。 STOP を 選ぶ と それ まで の 得点 が 自分 
の も の と な り , プレ ー ヤ ー 交 代 と いう わけ 。 
画面 の 指示 に し た が っ て 進め て くだ きい 。 


1983 年 5 月 掲載 


先 に 100 点 に な っ た 方 が 勝ち で す 。 

(注意 ) この プロ グラ ム を 実行 する に は 漢 
FROM が 必要 で す 。 漢字 ROM を 持っ て 
いな い 人 は 1150 行 の パサ イコ ロ ゲ ー ム ? と 
表示 する 部 分 と 1480 行 と 1520 行 の 数 字 を 表 
示す る 部 分 を 書き 換え る か , 除い て くだ きい 。 


1000 “x 
1010 “を サイ コロ y"—-h Ver.3 for N88 BASIC (with kanji ROM) 
1020 “x by M.Kobayashi 82/11/23 
1030 “x 
1040 : 
1050 xINITIALIZE 
1060 DEFINT A-Z 
1070 DEF FNX=Nx5+135 :DEF FNY=PLx59+199 
1080 DIM S(997,5),NA$C1), TENC1) 
1090 TEN.UIN-100 :PL-1 :FLG-Q 
1100 RANDOMIZE VAL(MIDS(TIMES,4,2))X60*VAL(RIGHTSCTIMES,2)) 
а 1110 UIDTH 80,20 :CONSOLE 0,20,0,1 :COLOR 7,0,0,7 :SCREEN 0,0 :CLS 3 
را‎ 1120 : 
A 1130 wTITLE 
1140 FOR N=0 TO é 
= 1150 READ KN$ :PUT(NX20,0) ,KANJI(VAL(C' &H' *KN$)) 変数 リス ト 
・ 1169 NEXT TENWIN ーー 勝つ た め に 必要 な 点 雪 
= 1170 DATA 2535,2524,2533,256D,2532,213D,2560 プレ ー ヤ ー の 番号 (0ori ) 
\ i ィ ー ム 終了 な ら 1 と な る フラ グ 
い 1190 FOR N-0 TO 5 Ве do s s 
c 1200 LINE (Nx197+4,39 )-STEP(92,59 ) , 7,BF эон 
2 1210 LINE (Nx107,32)-STEP(100,46),7,BF "PL の プレ ー ヤ ー の か り の 点数 
7 1220 NEXT さい の 目 一 1(0 か ら 5 ま で) 
| 1239 COLOR の さい の 目 の グ ラフ ィ ッ ク バ ター ン 
0 1240 CIRCLE (50,55),15 :PAINT STEP(9,9) - 
1250 COLOR ,,,0 
1260 FOR N-1 TO 20 
1279 READ X,Y :CIRCLE (X,Y2,10 :PAINT STEP(0,0) 
1280 NEXT 
1290 DATA 137,65,177,45,238,68,264,55,290,42,345,42,397,42 
1300 DATA 345,68,397,68,452,42,504,42,452,68,504,68,478,55 
1310 DATA 559,40,559,55,559,70,611,40,611,55,611,70 
1320 : 
1330 FOR N=0 TO 5 
1340 GET (Nx107,30)-STEP(100,50),S(0,N) 

s: 1350 NEXT 

; 1360 ' 
1370 «START 
1380 LOCATE 0,10 :COLOR 5 
1390 INPUT ‘1st player,uhat/s your name';N$ :NA ま (9 )=LEFT も (N$, 14) 
1400 INPUT ‘2nd player,uhat/s your name';N$ :NA$( 1 )=LEFT ま も (N$, 14) 
1419 PRINT 
1420 INPUT ‘Please hit RETURN key to start. `,DUMMY$ 
1430 : 
1440 LINE (0,0)-(639,80),0,BF :CLS 
1450 FOR T=8 TO 100 :BEEP 1 :BEEP 0 :NEXT 
1460 LINE (0,10)-(639,10),5 
1470 : 
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1480 PUT (0,100),KANJI(&H2331),PSET,0,5 

1490 LOCATE 3,10 :COLOR é :PRINT NA$(0) :COLOR 5 

id LOCATE 3,11 :PRINT 'SCORE'; :COLOR 2 :PRINT ` 0" :COLOR 5 
1 : 

1520 PUT (9,159 ) ,KANJI(&H2332 ) ,PSET,0,5 

1530 LOCATE 3,15 :COLOR é :PRINT NA$(1) :COLOR 5 

SS LOCATE 3,16 :PRINT 'SCORE'; :COLOR 2 :PRINT ` 9' :COLOR 5 
1560 : 

1570 xNEXT.PLAYER 

1580 PL=1-PL 

1590 : 

1600 xFURI.HAZIME 

1610 FTN=TEN(PL ) :KTN-FTN 
1620 LOCATE 0,0 :COLOR é :PRINT NA$(PL); :COLOR 5 :PRINT '... ; 
1630 PRINT " Hit 1 or 2 key. ( 1...60 2...STOP y ";ТАВС79) 

1640 : 

1650 x*xSAI.FURI 

1660 LINE (150,30)-(440,80),0,BF 

1670 LOCATE 60,0 :PRINT SPC(5) 


А 1680 ж60.08.5ТОР 

$ 1690 IF INP(0)=&HFD THEN CH$=" GO ' :GOTO 1720 
1700 IF INP(9@)=&HFB THEN CH$-'STOP' :GOTO 1720 
1710 GOTO ж60.08.5ТОР 


1720 LOCATE 60,0 :PRINT CH$ 

1730 SA-INT(RNDxó) :PUT (199,39 ) ,S(9,SA ) 

1749 SB=INT(RNDx6) :PUT (346,30) , S( 9 , SB ) 

1750 t 

ые IF CH$="STOP' OR $А#5В=@ THEN xFURI.OUARI 
1770 1 

1780 GOSUB xKARITEN 

1790 IF FLG=1 THEN KTN-TEN.UIN :GOSUB *TENSU :GOTO xUIN 
1800 GOTO xSAI.FURI 

1810 : 

1820 xFURI.OUARI 

1830 IF CH$-'STOP' THEN GOSUB xTENSU :GOTO 1850 
1840 IF SAxSB-0 THEN GOSUB xKESU 

1850 GOTO xNEXT.PLAYER 

1860 * 

1870 x*xTENSU 

1880 FOR N-FTN*1 TO KTN 


1890 C=INT(N/29 )+2 
1900 ВЕЕР 1:BEEP @:LINE (FNX,FNY )-STEP(2,45) ,C,BF 
1910 NEXT 


1920 TEN( PL )=KTN 

1939 COLOR 2 :LOCATE 9,PLx5*11 :PRINT USING "###°;TEN(PL) ¿COLOR 5 
1940 RETURN 

1950 * 

1960 xKARITEN 

1970 NT=KTN+SA+SB+2 

1980 FOR N=KTN+1 TO NT 


1990 ВЕЕР 1:LINE (FNX,FNY)-STEP(2,45),1,BF :BEEP @ 
2000 IF N-TEN.UIN THEN BEEP :FLG-1 :RETURN 
2010 NEXT 


2020 KTN=NT 
2939 RETURN 


2949 

2050 xKESU 

2060 BEEP 1 

2070 FOR N-KTN TO FTN*1 STEP -1 

2080 LINE (FNX,FNYO-STEP(2,45)2,0,BF 
2090 NEXT 


2100 ВЕЕР 9 
2110 TEN(PL)-FTN 
2120 RETURN 


2130 
2140 *WIN 

ti 2150 ВЕЕР 

т 2160 FOR N=0 TO 10 
2170 ВЕЕР 1:BEEP @ :COLOR=(9,INT(RNDx7)+1 ) 
2180 FOR T=1 TO 100 :NEXT 
2190 NEXT 


2200 COLOR=(0,0) 

2210 LOCATE 0,0 :PRINT SPC( 79) 

2220 LOCATE 0,0 :COLOR 6 :PRINT NA$(PL); :COLOR 5 :PRINT '... "; 
2230 COLOR 3 :PRINT 'seeexx WIN 3eexx«x '; 

2240 COLOR 2 :PRINT "XXX※※ OMEDETO жээ" 

2250 IF INKEY$»«'' THEN 2250 

2260 : 

2270 END "ニーーーーーーーーーー 一 end of list ------------ 


Y 
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プロ グラ ム ・ バ グ の E 


お 問い 合わ せ は 編集 長 ・ 橋 本 五朗 
月 曜日 一 金曜 日 の 影山 エ 


午後 4 時 か ら 時 の 間 | шанз 
下記 の 電話 に て お 受け | ^E 


ポレ ポレ 企画 

いた し て お り ま す 。 ао эс" 

東京 03 THÉ 小林 秀一 大 島 第 小林 第 
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較 |985 年 12 月 15 日 発行 (毎月 | 日 発行 ) 第 4 巻 9 号 通巻 45 号 
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Computer Technical Creation 


通 プ リエ イト 


沢山 売れ る と 思 っ て 安く し まし た 。 
ユー カラ KZ、 新 発 宛 。 


特長 
強力 に な っ た 変換 機能 と 学習 機能 で 抜群 の 変換 効 
率 を 実現 し ます 。 


変換 機能 よ ま ワ ー プ ロ の 命 。 ユ ー カ ラ に では 4 つ 

の 工夫 で ます ます 確か な 変換 効率 を 実現 し て いま 

す 。 ま ま 、 一 括 入力 逐次 変換 。654 字 まで 続け て 入 

力 、 あ と か ら ま と め て 変換 し ます 。 思 いつ くま ま 、 

ある い は 原稿 か ら 目 を 離さ す ス ラス ラ 入 力 で きま 

す 。 ど つめ の 工夫 、 辞 書 を 一 新 し ま し た 。 新 た に 

選び 直し た タイ ム リー な 語 が 万 語 (5 0D). 7 
88 (5 PDD、PHD)。 さ ら に つめ は 、 文節 判 断 

の 学習 機能 。 通 常 の 学習 機能 に 加え て 文節 の 区 切 

り も 、 直 前 に 変換 し た 通り に 、 学 習 し て 実行 し ま 

す 。4 つ め は 、 再 変換 も で きま す 。 

※ コ ユー カラ KG の 辞書 は 株 式 会 社 学習 研究 社 の 許諾 ・ 御 協力 に 
より 、 同 社 刊 「 学 研 国語 辞典 第 二 版 」( 石 森 延 男 編 ) を 原典 と 
し て (株 ) 東 海 ク リエ イト が 日 本 語 入 力 処理 用 に 、 加 工 、 再 
編成 し た も の で す 。 


豊富 な 字 種 と 文字 飾り ・ カ ラー 印字 で 、 幅 の ある 
表現 力 を 保証 し ます 。 

文字 の 種類 が た くさ ん ある と それ だ け で 楽し いで 
すね 。 ユ ー カ ラ K 己 で は 大 き さ だ け で 種類 。 ス 
倍角 文字 と ど 種 類 の 倍角 ( 縦 と 横 )。 そ し て 半角 と 、 
も っ と 小さ い ] 4 角 文 字 (漢字 で も OK)。 1 ン 
4 角 文 字 は 、 上 付き 、 下 付き 、 英 ・ 数 字 な ら 上 下 
両方 に も 付き ます 。 ま た 決定 後 も 簡単 に 文字 の 大 
き さ が 変更 で きま す 。 文字 飾り も いろ いろ 。 網 か 
けら 種類 。 下 線 / 種 類 。 打ち消し ライ ン ら 種類 。 
<S IC 3FfR158828, 強調 印字 も 加え て こわ いも の 
無し 。 し か も 、 画 面 上 で も 印刷 イメ ー ジ その まま 
に 表示 され ます 。 


се инее アウ ト を 約束 


野 線 に よっ て 分 割 さ れ た 領域 を 意識 し て 編集 を 行 
いま す 。 た と えば 肢 線 で 囲ま れ た 枠 内 を 編集 する 
と き は 、 文 字 列 は 時 線 を また いで 入力 され る 

は あり ませ ん 。 た と えば 文字 幅 の 枠 内 に 選 文 字 以 
上 入力 する と 、 フ 文字 めで 自動 的 に 改行 され 行 区 
が 足り な く な っ た ら 、 縦 界 線 が 伸び て 、 自 動 的 に 
枠 を 広げ ます 。 ま た 、 窓 開け 機能 を 利用 すれ ば 
文書 中 に 後 か ら で も グラ フ や 図 を 入れ る スペ ー ス 
を 簡単 に 作る こと が で きま す 。 


いま ユー カラ を お 使い の 皆様 へ 

ユー カラ に K 己 は ユー カラ の 資産 を 継承 し ます 。 ユ 
ー カ ラ の 使い や すさ 、 す ぐれ た 機能 の ほか に ユー 
カラ で 作成 し た 文書 を 呼出 し 再編 集 す る 事 に より 
お 手持 の 文書 資産 を より 豊か に 表現 で きま す 。 


ユー カラ K2 特 別 交換 サー ビス の お 知ら せ I 
ля >> 


4| 
機能 
字 種 JIS 第 1 水準 
JIS 第 2 水準 (第 2 水準 仕様 に つい て は 本 体 に 第 2 水準 ROM 
が 必要 で す ) 
HEE e 漢字 辞書 5"2D 約 44.000 語 5`2DD/5`2HD#973.00085 
e 外字 5'2D 最 大 2.500 娘 字 5'2DD 最 大 5.000 文 字 
5 2HD/8 2D 最 大 8.000 交 字 
短文 登録 52D 約 900 語 5'2DD 約 5.000 語 
5'2HD/8"2D 約 20.000 語 
処理 方 式 @ 処理 方 式 ファ ンク ショ ン メ ニュ ー 方 式 に 加え て コマ 
入力 方 式 ンド 呼出 方 式 を 搭載 
変換 方 式 で 入力 方 式 ロー マ 字 か な JIS コ ー ド 入力 
e zi 一 括 入 力 騰 次 文節 変換 (ひら が な で 一 括 入 
力 し た 後 先頭 か ら 順 に 文節 還 位 に 漢字 に 変 
換 し て いき ます ) 
再 変換 (決定 後 の 女 字 種 補 更 も 可能 ) 

ө 従来 の 学習 機能 に 加え て 、 強 力 な 文節 学習 まで サポ ー ト 
編集 領域 全角 で 横 80 桁 まで の 編集 (41 桁 - 80 桁 まで は 横 ス クロ ー ル ) 
使用 文字 種 | 全角 横 倍角 / 縦 倍角 AE vam !4 角 上 付 ・ 下 付 
装飾 emus 15 種類 

өті 7 種類 

e> 5 種類 

打ち消し ライ ン 2 種類 

@ 強調 ご ル ヒ 打ち 
編集 機能 検索 、 置 換 、 禁 則 処 理 


印刷 


必要 機器 構成 


e 本 体 


PC-8801/mkII/SR/TR/FR 
PC-8801mkIIMR 
PC-9801/E/F2/M2/VM/VF 


/U2 


@ ディ スク 
2 ドラ イブ 必要 
@ ディ スプ レイ 
640X400 ド ッ ト の 高 解 像 度 
@ プリ ンタ 


複写 ( 交 字 列 、 領 域 ) 

ACIFA) EFTA 

カー ソル 移動 (次 頁 プ 前 頁 プ 先頭 行 ン ges 頁 指 定 ) 

ブロッ ク 編 集 

均等 割り 付け 

位置 タプ 、 桁 タプ 、 イ ン テ ン ト ( 段 頭 揃 え ) 、 

プ ( 桁 揃え ) 

窓 あけ 、 窓 と じ 

PRA, ERA. HMA 

演算 (平方 根 、 キ + ノー、 御 破 算 、 カ ンマ 編集 、 四 捨 五 入 、 

切り 捨て 、 実 行 桁 、 実行 桁 一 ) 

半 改 行 、 ル ヒ 改 行 、 ロ コ 改 行 (印刷 時 に 行間 隔 を 密着 する ) 

段落 処理 (表示 分 割 グ 結合 ) 

左右 端 の 変更 

メモ 機能 (画面 に 表示 され る が 印刷 は 行わ な い ) 

アゲ イン 機能 256 ド 選択 で 使用 し た 機能 を も う 一 度 
呼び 出す こと が で きる ) 


デシ マル タ 


アン ドゥ 機能 
° ае 


設定 文字 間隔 、 行 間隔 、 開 始 頁 、 終 了 頁 、 
部 数 АВ. 縦 書き 、 ト ッ プ マー ジ 
シ 、 レフ ト マー ジン 、 紙 幅 、 差 し 込み 
印刷 、 袋 と じ 印 刷 

試験 印刷 

e ブリ ンタ 設定 

@ レイ アウ ト 指 定 

@ カ ラー 印刷 

ユー カラ 文書 の 呼び 出し 

же хат пи. 文書 名 変更 、 文 書 番号 整理 、 文 書 


И な い 記 号 や マー ク を 作成 、 修 正 、 
た りす る 


登録 し 


株 式 会 社 東 海 ク リエ イト 


PC-8800/PC-9800 コ リー ズ “ 


(PC-8800 シ リー ズ 用 第 2 水準 ROM ボ ー ド 付 ) 


編集 画面 


ブロ ッ ク 編集 に より レイ アウ ト は 思い の まま 

01/46 、 上 付 下 付 文字 か ら 4 倍角 まで の 多彩 な 文字 種 に 
より 表現 力 は 無限 。( 例 化学 計算 式 、 商 店 の POP、etc ) 

人 @15 種 類 の 野 線 、7 種類 の 下線 、5 種 類 の 網 か け 等 、 使い 
方 は 、 あ な た 次 第 。 


ユー カラ K2、 ス ウィ ング 
デモ ンス トレ ーション の お 知ら せ 
ユー カラ K2、 ス ウィ ング の 発売 を 期し し デモ ンス トレ ー シ 
ョ ン と 講習 会 を 行い ます 。 な お 講習 会 は 予約 制 で す の で 、 
お 早め に お 申し 込み 下さ い 。 
ВЕ f£ 日 12 月 15 日 、18 日 、22 日 、25 日 
開催 場所 秋葉 原 カミ ング イベ ント ホー ル 
Tel.03-255-3503 


時 間 /11:00 一 12:00( ユ ー カ ラ K2) 
12:00 一 13: 00( ス ウィ ング ) 
14:00 一 15: 00( ユ ー カ ラ K2) 
15:00 一 16: 00( ス ウィンク ) 
定 員 / 各 々 20 名 


(定員 に な り 次 第 締め 切ら せ て いた だ きま す ) 

予約 方 法 / 弊 社 イ ン フ ォ メ ーション セン ター まで 、 お 電話 
に て お 申し 込み 下さ い 。 

定価 PB,U00 幅 

定価 55,000 円 

H 


ワー ド プ ロ セ ッ 


т 108 東京 都 港 区 三田 3-1-7 三 田 東 宝 ビ ル 4F 


イン フォ メー ショ ン セ ンタ ー ТЕ 03-456-4610 


お THT 性 別 年 齢 会 社名 職業 

既に 「 ユ ー カ ラ 」 を お 持ち の お 客 様 を 対象 に 、 下 記 の 要領 で 、 交 換 サ ービス を | お ぉ | 名 男 ・ 女 
実施 させ て いた だ きま В] 
өне (155 215529211 (OIR £3 SOEUR 届 | 
© 特別 交換 価格 (送料 は サー ビス ) け | | フリ カナ CHEER | 勤務 先 

PC-88 シ リー ズ 000 円 £| Z= 5 

PC-88 シ リー ズ 用 (第 2 水準 ROM ボ ポー ド 付 ) b ПЕ 佳 | 〒 電 

PC-98 シ リー ズ 18.000 円 所 話 ( ) ( ) 
* 交換 申 込 方 法 郵送 を ご 希望 の 場合 右記 の 申込 書 に ご 記入 ・ 切 取り の 上 

299 又は ユー カラ リリ シス テム ディ スク 原本 (東海 クリ エイ ト 製 ) を 同 圭 | 

し て 下記 お 送り 下さ い . He ч m ` 

108 東京 都 港 区 三田 3-1-7 三田 東宝 ビル 4F ご 注文 物件 | 発売 時 期 ( 子 定 】 特 別 交換 価格 ご 希望 媒体 X 金 方 Ж 
。 (株) 東海 ク リ ニ イ ト プロ ダク ツ 販 売 事業 部 交換 サー ビス 人 | 

品 E] А 
SUE EROR NEU e CORO са ив PC-8800 シ リー ズ 用 | 60/12/3 \18.000 現金 書留 
その 間 は 、 パ バック アッ プシ ステ ム を ご 利用 くだ さい 。 | 52D п} А 
直接 お 受け 取り に な り た い 場 合 PC-8800 シ リー ズ 用 а 
MRD ARRAS 7 |. aT => yd С; | (第 2 水準 ROM ボ ポー ド 信 | 50/12/3 ¥38.000 5200 e 振込 手数 料 は お 客 様 の 負担 と と せ て いた だ きま す 
А て し ( ) る シス テム 2 ETE А 
ディ スク を ご 持参 くだ さい 。 そ の 場 で ユー カラ K2 と 区 所 いた し ます 。 5 2HD e 振込 用 抵 控 は 商品 到着 まで 保管 し て 下さ い 
秋葉 原 カミ ング M ° : Еа 
sv: жатырк әмены L2 山田 ピル SF TEL 03-255-3503 | PC-9800 シ リー ズ 用 | 61/2988 | Y 18.000 8 2p e 振込 先 ・ 富 士 銀行 三田 支店 
業 時 間 9:30- 17:30 日 曜 ・ 祝 日 定休 当座 
営業 時 M9:30 113 Е SIS 20D шаа No 3890 

T530 大 阪 市 北 区 梅田 大 阪 駅 前 第 三 ビル 2F TEL 06-348-9331 CU SEI 株 式 会 社 東海 クリ エイ ト 
営業 時 間 10:00-17:30 日 曜 ・ 祝 日 定休 l 


* 


プリ ンタ 名 を 必ず 御 記 入 下さ い 。 


※ 該 当 す る [ ] に に ] チ ェ ッ ク を 入れ て 下さ い 


日 本 語 ワ ー プ ロ JET シ リー 
nn ЕН 


ePC-8801 SR/6001mk II SR 
@3.5 イ ンチ ( ら 枚 組 ) Y29000 


MET 


ePC-8001mkII SH 
@5 イ ンチ ( ら D)3 枚 組 \29.000 


MEZAN! / 
A 
exiturbo / XIZU—X 

@5 イ ンチ ( ど D)3 枚 組 \35.800 


支 FM-7/77 シ リー ズ 、MZ-2200/2000 シ リー ズ も 、 好 評 発売 中 
(仕様 が 異な り ま す の で 詳し く は 、 お 問い 合わ せ 下さ い ) 


コン ニチ バハ./ 僕 、 大 江 大 作 24 歳 、 まだ で きた て 
の ホヤ ホヤ 社会 人 で す 。 仕事 に 、 レジ ャ ー に 、 を し て 
パソ コン ゲー ム に と 、 何事 に も 熱狂 的 に な っ て し まう の 
で 、 会 社 の 上 司 か ら は 「 ま だ 子供 だ ね 」 な ん て 言わ れ 
る こと も し ば し ば 。 

で も 、 仕 事 に ワー プロ を 使う ょ うに な っ て か ら は 、 自 他 
と 5 に 認め る ビジ ネス マン と し て 意識 し て いる 今日 この 頃 
Су» 

「 僕 は ドジ ネス マン な ん だ /」 

LIAT., 僕 が 相棒 と 上 し て ワー プロ JET と 付き 合う よ 
うに な る に は 、 ち ょ っ と し た 事件 が あり まし た 。 そ れ は 、 あ る 
金曜 日 …… 

「 大 江 君 、 君 の 提案 書 は 何だ ね 。 修 正 液 だ どら け て で 、 
お まけ に 誤字 。 熱心 な の は わか る が 、 これ で は 説得 し 
СХА, 書き 直し て いら っ し ゃ い 。」 と 、 
山田 部 長 に 注意 を 受け て し まっ た の で す 。 少し 恥ず か 
し いけ ど 、 そ の 時 提出 し た レポ ー ト は これ で す 。 
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EE + EE 
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4 + ーー é 
人 人 思え ば 、 我 な が がら 、 よ く こん な レポ ー ト を 提出 し た も 
の だ と 思い ます 。 


「 リ ー フ ブロ 選び の 5 つの チェ ッ ク ポ イン ト 


書き 直し の 宿題 が 出 た 瞬間 、 ひ ら め ゆき は 『 ウ ー プ ロ 。 
の 4 文字 。 ア フタ ー5 は パソ コン ショ ッ プ 巡り と 決め まし 
た 。 僕 の 8 ビッ ト パ ソ コン PC-8801mkII で 使え 4 ワー 
プロ ソフ ト の 検討 開始 で す 。 ` 
@ 4.215 5EDRI £ C OO E IE (2 88 Hi 2^ ? 
@ 編 集 機能 は 充実 し て いる か ? 
@ 漢字 変換 機能 と 辞書 内 容 は 強力 か ? 
@ 表 現 力 は 豊富 か ? 
@⑱ メ ン テ ナ ンス 等 、 サ ポー ト 体 制 は し っ か り し て 
いる か ? 
ワー ブロ 初心 者 の 僕 に に っ て 、 こ の 5 つの チェ ッ ク ポ 
イン ト を クリ ア し て いる ソフ ト で な いと 心配 で す 。 パン フレ 
ッ ト だ け で は 良く わか ら な い の で 、 シ ョ ッ プ ' の 人 の 話 を 
開い た り 、 デ モ を 見 た り し な が ら 1 つ の 結論 に 達し まし た 。 
「JET-8801A に し よう 


) 共 ほれ た コス ト パ フ ォ ー マ ンス 


JET-8801A は 、 入力 か ら 印刷 まで 全て の 作業 を 、 
シス テム か ら の メッ セー ジ に 従っ て メニ ュー 画面 て 選 
択 し て 行い ます 。 そし て 、 各 モ ー ド で の ファ ンク ショ ン キ 
ーー 内容 も 画面 に 表示 され て いる の で 操作 が 楽 で す 。 

文字 入力 モー ド に は 、 カ ナ 入 力 、 ロ ー マ 字 入力 、 コ 
ー ド 入力 、 を し て 、 記 述 記 号 、 単 位 記号 、 ギ リ シ ャ 女 字 
な ど を 入力 する 文字 記号 入力 モー ド が あり ます 。 文 字 
の サイ ズ も 豊富 で 、 全角 、 半角 、 横 倍 角 は 当然 で す 
が 、 縦 倍角 、4 倍 角 、 角 も 指定 で きる の で す 。 し か も 、 
イタ リッ ク 体 の アル ファ ベッ ト ERER 

これ に は びっ くり 72 

れ に は びっ く 〈 し まし ANN SN 


SSN 


V — = с —= 


手書き の 廊 書 で は 、 追 加 ・ 削 除 ・ 修 正 を する と 見 に 
くく な っ て し まい ます 。 JET-8801A な ら ば 、64 文 字 X96 
行 の 範囲 で 自由 自在 な 画面 編集 が で きま すか ら 、 納 
得 で きる 文書 が で きた と ころ で 印刷 すれ ば よい の で 
す 。「 も っ と 早く か ら JET を 使え を ば よかっ た 」 と PC-8801 
ユー ザ の みな さん も 感じ る こと で し ょ う 。 

と に ころ で 僕 の パソ コン は JIS 第 - - 水 準 の 漢字 (2965 
E) し か 使え ませ ん 。 で も ブリ ンタ に JIS 第 二 水 準 の 漢 
* ROM が サポ ー ト され て いれ ば 、 JET-8801A の 
ュー ド 入 力 で 指定 する こと が で きま す 。 その 上 、 抜群 
の 文法 解析 に よる 文節 変換 で 、 重 変換 、 再 変換 機 
能 と も 合わ せ て 漢字 へ の 変換 効率 は 8 ビッ ト と し て トッ 
プク ラス 。 漢字 の 苦手 な 僕 に と っ て 、 3 万 5000 語 の 辞 
書 を 持つ JET は 心強い 相棒 えま す 。 し か も 、 僕 だ け 
の プラ イベ ー ト な 5000 語 を 辞書 登録 で きる の で す 。 
弁護 士 や 医者 の 先輩 に も 、 専 門 用 語 辞書 を 作っ て あ 
げた いな 。 こ の ほか ^、 短 文 や 定形 句 の 登録 、16x16 
ドッ ト 、24 x 24 ド ッ ト の パタ ー ン に よる 外字 登録 が で き 
る の て 便利 で す 。 

そう る そう 、 も 5 一 つ 辞 書 に つい て 話し て お か な 〈 て は 。 
JET-8801A の 辞書 は 自動 学習 機能 を 持っ て いる の 
で す 。 この 機能 は 、 使用 頻度 の 高い 単語 を 優先 的 に 
変換 候補 に し て くれ る と いう も の で す 。 つま り 、 JET efl 
い 込 め ば 使い 込む ほど 、 僕 に びっ た り の 辞書 を も つ ワ 
ー プ ロ に な っ て くれ る わけ で す 。 


уэе 

僕 に に っ て は パソ コン ゲー ム で も お 馴染 み の キ ャ リ 
ー ラ ボ が 、 ワ ー プ ロッソ フト JET-8801A の リリ ー ス 会 社 
な の て 感激 し て し まい まし た 。 ビ ジネス 分 野 で は Mul- 
tipian の 『 実 務 フ ォ ー ム 集 』 も 扱っ て いる 会 社 と あっ て 、 
技術 力 、 を し て アイ デア に 満ち た ス タッ フ が 揃っ て いま 
す 。 こ れ な ら ば 、 わ か ら な いこ と が あっ て も 気軽 に 質問 で 
きま す 。 何と いっ て も 、 ソ フト メン テ ナ ン ス が し っ か り し だ た ソ 
フト メー カ の 製品 を 使う こと が 、 ユ ー ザ に と っ て 一 番 の 
メリ ッ ト 。 

JET-8801A の 高 機能 、 を し て キャ リー ラボ の メン テ 
ナン ス 、 こ れ が わずか 35,800 円 で 手 に 入る の で す 。 


Шшаржысәго 


JET-8801A を 買っ た 僕 は 、 さ っ そく (レポ ー ト を 作成 
し まし た 。 指 使い は た ど た ど し 〈、 ぶっ つけ 本 番 で あり な 
が ら 入 力 は 以外 に スム ー ズ 。 それ も 、 商品 に つい て る 
『 入 門 』 の お か げ 。 ぶ 厚 い マ ニュ アル を 読ま な く て 5 も 、 基 
本 的 な 操作 手順 が わか りや す 〈 書 かれ て いる の で 横 
HT 見 な が ら 操 作 す る こと が で き て し まう と いう ワケ で す 。 
レポ ボー ト の 半分 も 書き 終わ る ころ は 、 移 動 や 複写 な どの 
テク ニッ ク も 試し て みる 余裕 が で る ほど で す 。 

月 曜日 の 朝 。 い よい よさ 山田 部 長 に レポ ボート を 提出 で 
+ 僕 の 胸 は ドキ ドキ 。 レ ボー ト に 目 を 通す 山田 部 長 。 
し ば し 沈黙 ……… 。 こ の 間 は 長く (感じ まし た 。 そ し て …。 
е ГАТА, DDL 

ー ト だ ね 」 と し ば し JET 談 議 と な っ て し まい まし た 。 
кы. レポ ー ト は これ で す 。 


% り ET-8801A 仕 様 一 覧 
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どう で す 。 初め て に し て は な か な か の 出来 で し ょ う 。 

じつは JET-8801A は 、26 種 類 の 網 か け 品 0 種類 の 
アン ダー ライ ン 、 そし て 野 線 ・ 作 表 機 能 を 持っ て いる の 
で 、 思 い の ま ま の 表現 が で きる の で す 。 

後日 、 僕 の アイ デア を 盛り 9 こん だ ラブ レタ ー 作 戦 を 
お 話し する こと に し まし ょ う 。 


文書 領域 


1 文書 64 文 字 x96 行 用 で きる ソ 


画面 表示 


な お 、BASIC コン バー 
手 170 円 分 を 同封 の うえ 、 当 
問い 合わ せ 下 さい 。 貢 料 を 


40 文 字 x16 行 (400 ラ イン 使用 時 ) 
40 文 字 x10 行 (200 ラ イン 使用 時 ) 


JIS 第 一 水 差 漢字 2965 文 字 、 非 漢字 403 文 字 、 


X 字 種 | シス テム 外字 311 文 字 、 ユ コー ザー 外字 192 文 字 。 
佑 角 、 半 角 ( 英 数 字 )、1 BF. WBA BALF ぱれっと 
BIR, MA. NÉ. МАШЕ, NS. 97. セン リン グ 、| (株 ) ダ イナ ウェ ア 


tSt. 225—572. 015. S3. L7 2 - 875. 


130727-62-8210 
切り 貼り 、 文 書 複 活 (200 ラ イン 時 ) etc 


カラ ー 印 刷 キ ッ ト 。J 


| m Ee XIR ка мае зш. EON. ETX8FDDSSE 
連続 ペー ジ 印 刷 etc 文字 を 読み 込み 、 カ ラ 
ー イ ラス ト と 合成 し て 


хвзнев. хавев. хаа. хасон | 
XESEE Х-НА, 1 枚 の FD に 最大 64 文 書記 録 
可能 。 パ スワ ー ド に よる 柳 李 保護 有り 


ブリ ンタ に 印刷 で きる 。 
@ 日 本 語 処理 シス テム 


シス テム 設定 辞書 ХЕС. Уши. ШЕВ. 
тат. ТЭН, хаад 


CORE ТМ 
まで ご 連絡 くだ さい 


سے 


E リ ー・ ラ ボ E 


T862 8 


5 本 市 大 江 6 丁目 25-25 金子 ヒ MIF 


096-363-0211 FAX 096- 


© JET-8801A デー タリ ンク ソフ ト 

JET-8801A の 文書 ファ イル を デ 
フト が 各社 か ら 販 売 さ れ て いま す 。 詳 
細 は 直接 販売 会 社 へ お 問い 合わ せ 下さ い 。 


ー タ と し て 利 


に 関し まし て は 、 切 
社 キ ャ リー ラボ まで お 
お 送り 致し ます 。 


印刷 工房 


(株 / モ ー リ ン 
R03-457-7478 

JE T の 文書 か ら 直 接 
文字 を 読み 込み 8 ビン 
プリ ンタ で 24 ド ッ ト 明 
朝 体 の 印刷 を する 。 


JET-CORETM 


JET-8801A 画面 


JET-8801A А 
価格 \35.800 ш... 


NEC PC-880l/mkIL/SR 


日 本 語 マ イカ ー ド 
(株 ) ア バロン 
203-476-0187 


カー ド 型 デー タベース 。 


JET 文 書 の BAS1C 
コン バー タ ガ が 必要 。 


文字 べ え 君 
(株 モー リン 
B03-457-7478 
JET の 文書 FD ガ ら 
直接 文字 を 読み 込み イ 
ン フ ボッ ト の イラ スト 
と 合成 する 。 印刷 は イ 
ン フ ボッ ト て 行なう 。 


5 イン チ (2D) 3 枚 組 


MAC88 V2.0 
(株 ) エ ス ・ ビ ー・ シ ー 
11045-201-8480 

テー タベース 。 JET 
の 文書 FD ガ ら 直 接 文 
字 を 読み デー ツタ と する 
こと が で きる 。 


ロム 坊 ・ 加 藤 く ん 


マイ クロ ベー ス 北 九州 
2093-951-6610 

ロム 坊 は PC-8800 用 J 
IS 第 2 水準 ROM ボ ー 
К» JURE HIJET 
8801A 用 第 2 水準 漢字 
エー ティ イリ デマ 。 


「 日 本 語 ワ ー フ ロ JET-8801A」 の 日 本 語 処理 (か な 漢字 変換 ) 部 分 を 再 構成 し た 「 日 本 語 処理 シス テム JET- 


4」 を OEM 供給 いた し ます 詳細 に つき まし て は 、 書 面 ま た は ファ ックス に て 当社 企画 部 CORE( コ ア ) f 


£) 一 般 の お 客 様 に は 市 販 い だ し ませ ん の て こ 了 承 て くだ さい 


サポ ー ト セン ター (月 一 金曜 日 14:00 一 17:00) 
電話 に て 受付 096-363-0047 
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THEIR TREMENDOUS POTENTIAL Ф 
IS CERTAIN TO SATISFY 
s。 YOUR EXPECTATIONS. 
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NEC バ ー- ソ ナル コン ビュ - タ PC-8800 コ リフ === = 
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本 体 標 準 価格 (IM バイ ト タ イ プ 5 イ ンチ FDD2 人 台 内 蔵 )……238.000 円 


AUSSA جم چچ‎ B (w I ay 


model 30 本 体 標準 価格 zok< лат 000 円 
model 20 本 体 標 準 価格 Gzok… イ ト タ ィ プ 5 インテ Fot 全 内 基 148,000 F3 
model 10 本 体 標準 価格 epp ォ ァ シ ョ ジウ ………………99.800 円 


08-8000 SERIES 
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Е 1 不動 の ベス ト セラ ー、 機 能 を 高め て 新 発 売 
a ul BE LE ト セ ラー 機 と し て 愛さ れ 、 親しま れ 続け て きた PC-8800 
レン ング シリ ー ズ が 期待 の 高まり の 中 で ライ ン ナ ッ プ を 一 新 し ま し た 。 新 PC-8800 
. シリ ー ズ は 、 ニ ー ズ に 応じ て 使い こなせ る 3 タイ プ 。 ハイ テッ ク な 感性 を 
EC パー ソナ ルコ ンピュータ PC-8800 ヲ リー ズ - 刺激 する 機能 を 満載 し た 強力 な ライ ン ナ ッ プ ( こ 8 ビ ッ ト パ 
88 ッ プ は まさ に 8 ビ ピッ トペ ツン コン 
„нй id bia の 次 世代 を 開く に ふさ わし い 、 記 念 す べき 高 性 能 で す 
(取付 工事 費 は 含み ませ ん ) 
高 性 能 は ヒト を や きい する 。 AREALA 日 本 電気 グレ ー プ NEC パ ソコ ン イ ン フ ォ メ ーション セン ター 


МЕСО 70) SU GVA coe eme -m-TBu-l0 nae - m) —в(03)452-8000 
1 
※ 電 話 番号 は 、 よ く お 確 か めのう え お か け く だ さい 。 
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i 発行 株式 会 社 日 本 ソフ トバ ンク T102 東京 都 千代 
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